FindSlide.org - это сайт презентаций, докладов, шаблонов в формате PowerPoint.
Email: Нажмите что бы посмотреть
Алгоритм – это четко определенный план действий для исполнителя.
1970 – язык Паскаль (Н. Вирт)
Оператор – это команда языка программирования высокого уровня.
Протокол:
2+2=?
Ответ: 4
Псевдокод: алгоритм на русском языке с элементами Паскаля.
имя не может начинаться с цифры
Какие имена правильные??
AXby R&B 4Wheel Вася “PesBarbos” TU154 [QuQu] _ABBA A+B
тип – целые
список имен переменных
{вывод текста и значения переменной c}
write( a );
writeln( a );
writeln( 'Привет!' );
writeln( 'Ответ: ', c );
writeln ( a, '+', b, '=', c );
Протокол:
Введите два целых числа
25 30
25+30=55
компьютер
пользователь
a
?
5
5
b
?
5+2
7
a
5
7*4
28
Пример:
b
7
7+1
8
Какие операторы неправильные?
имя переменной должно быть слева от знака :=
целая и дробная часть отделяются точкой
нельзя записывать вещественное значение в целую переменную
x:=(5*c*c-d*(a+b))/((c+d)*(d-2*a));
1 2 4 5 3 6
2 3 5 4 1 10 6 9 8 7
15 45
1545
12.35
всего символов
всего символов
в дробной части
1.23E+001
1.234568E+001
1,234568∙101
Алгоритмы, в которых последовательность шагов зависит от выполнения некоторых условий, называются разветвляющимися.
Особенности:
перед else НЕ ставится точка с запятой
вторая часть (else …) может отсутствовать (неполная форма)
если в блоке один оператор, можно убрать слова begin и end
if a > b then begin
a := b;
else begin
b := a;
end;
if a > b then begin
a := b;
end;
else begin
b := a;
end;
if a > b then begin
a := b;
end
else b > a begin
b := a;
end;
begin
end
begin
end
неполная форма условного оператора
max := a;
a > b
if a > b then begin
a := b;
end;
else b := a;
if a > b then
else begin
b := a;
end;
if a > b then
a := b;
else b := a; end;
a := b
end
a := b
if b >= a then
b := a;
равно
не равно
4 1 6 2 5 3
if not (a > b) or (c <> d) and (b <> a)
then begin
...
end
Сложные условия
True
True
FALSE
(-∞; 6)
∅
(6; 10)
(10; ∞)
(-∞; 10)
(-∞; 6) ∪ (10;∞)
(-∞; ∞)
(6; ∞)
x < 6
x > 10
x < 10
x > 6
True
True
считаем очередной шаг
for i:=1 to 5 do
Если в цикле более одного оператора:
for i:=1 to 5 do begin
write('Привет');
writeln(', Вася!');
end;
begin
end;
i := 1; { очередное число }
i2 := i*i; { его квадрат }
i3 := i2*i; { куб }
writeln(i:4, i2:4, i3:4);
i := 2;
...
задать начальное значение переменной цикла
проверить, все ли сделали
вычисляем квадрат и куб
вывод результата
перейти к следующему i
переменная
цикла
начальное значение
конечное значение
for i:=8 1 do begin
i2 := i*i;
i3 := i2*i;
writeln(i:4, i2:4, i3:4);
end;
downto
Увеличение переменной на 1:
for <переменная> := <начальное значение>
downto
<конечное значение> do begin
{тело цикла}
end;
Уменьшение переменной на 1:
for i:=1 to 8 do
writeln('Привет');
n := 8;
for i:=1 to n do begin
writeln('Привет');
n := n + 1;
end;
нет зацикливания
for i:=8 downto 1 do
writeln('Привет');
writeln('i=', i);
i=9
i=0
НЕ ДОКУМЕНТИРОВАНО
a = 1
a := 1;
for i:=1 downto 3 do a := a+1;
a = 1
a := 1;
for i:=3 downto 1 do a := a+1;
a = 4
Как изменить шаг?
Задача. Вывести на экран квадраты и кубы нечётных целых чисел от 1 до 9.
Особенность: переменная цикла должна увеличиваться на 2.
Проблема: в Паскале шаг может быть 1 или -1.
Решение:
i mod 2 = 1
i2 := i*i;
i3 := i2*i;
writeln(i:4, i2:4, i3:4);
выполняется только для нечетных i
???
for k:=1 to 5 do begin
i2 := i*i;
i3 := i2*i;
writeln(i:4, i2:4, i3:4);
???
end;
i := i + 2;
i := 1;
i = 2k-1
for k:=1 to 5 do begin
???
i2 := i*i;
i3 := i2*i;
writeln(i:4, i2:4, i3:4);
end;
i := 2*k – 1;
