Transcript Виды алгоритмов - Vrn

Презентация по информатике
Тема : Виды алгоритмов
Что такое алгоритм ?
Алгоритм — это
точный набор
инструкций,
описывающих
последовательность
действий некоторого
исполнителя для
достижения
результата
Какие бывают алгоритмы?
Алгоритм
Циклический
С Пост условием
С пред условием
Линейный
Разветвляющийся
Линейный алгоритм
Простейшие задачи имеют
линейный алгоритм
решения (имеют структуру
"следование").
Алгоритм линейной
структуры представляет
собой последовательность
действий и не содержит
каких-либо условий
Таким образом, в таких
алгоритмах все этапы
решения задачи
выполняются строго
последовательно.
Разветвляющийся
алгоритм
Разветвляющийся
алгоритм - это алгоритм,
где ответ зависит от
выполнения или не
выполнения
поставленных условий.
Дальнейшие решения
будут идти только по
одной ветке.
Циклические алгоритмы
Цикл – это многократное повторение действий.
Циклические алгоритмы
С пост
условием В этом
цикле с
начало
проверяется
условие,
затем
происходит
действие
С пред
условием –
Здесь в
начале
происходит
действие
,далее
проверяетс
я условие
условием
Пример цикла с пост условием
Пример цикла с пред условием
Далее пойдут примеры записи алгоритмов
на языке программирования «Паскаль»
Линейный алгоритм
Program pokupka;
Uses crt;
Var
a, b, d, den: real;
ostatok: real;
begin
clrscr;
write ('введите стоимость перчаток, портфеля и галстука ');
readln (a, b, d);
write ('введите количество имеющихся у вас денег ');
readln (den);
oststok := den – a – b – c;
writeln ('после покупки у вас останется ', ostatok:5:2, 'руб. ');
readln;
end.
Разветвляющийся алгоритм
Program (имя);
Var
x, y : integer; {вводимые числа}
Begin
writeln('Введите 2 числа '); {вводим два целых числа через пробел}
readln(x,y);
if x>y
then
writeln (x) {если х больше y, то выводим х}
else
writeln (y) {иначе выводим y}
End.
Цикл с предусловием
program (имя программы);
var
sum:real;
n:real;
BEGIN
sum:=0;
n:=1;
while n < =30 do
begin
sum:=sum+n;
n:=n+0.5;
end;
writeln('Сумма равна: ',sum);
END.
Цикл с постусловием
Program (имя программы);
Var b:Real;
Begin
b:=100;
Repeat b:=b/2;
Until b<10;
Writeln(b:0:2);
End.
Значения представленных
операторов вы можете узнать у
преподавателя
Всем спасибо за внимание