Презентация на тему "Запись алгоритмов в Паскале"
презентация к уроку по информатике и икт на тему

Слайд 2

Полное if условие then begin оператор 1 end else оператор2; Например: если А>C тогда D:=A иначе D:=C Ветвление

Слайд 3

Неполное If условие then оператор1; Например если B > C то D := B Ветвление

Слайд 4

program test; var x,y:integer; begin writeln(' Введите число 1'); read(x); writeln(' Введите число 2'); read(y); if x>y then write(‘ Наибольшее число’, x) else write(‘ Наибольшее число’, y); end. Даны два числа вывести наибольшее их них.

Слайд 5

program chetno; var x:integer; begin writeln(' Введите число'); read(x); if (x mod 2)=0 then write(' Число четное') else write(' Число не четное'); end. Проверить является ли число четным.

Слайд 6

С параметрами форма записи: for I:=m1 to m2 do Begin оператор; End; Если шаг отрицательный вместо do пишется downto Цикл I – параметр цикла, m1,m2 – начальное и конечное значения параметра цикла

Слайд 7

С предусловием форма записи: while условие do Begin операторы; End;

Слайд 8

С постусловием форма записи: repeat список операторов until условие;

Слайд 9

Program zadacha; var n,s,i:integer; Begin write(‘ введите натуральное число n=’); readln(n); s:=0; for i:=1 to n do s:=s+i; writeln(‘ сумма=’, s); End. Вычислить S=1+2+3+ … +n

Слайд 10

Задача. Даны два числа вывести наибольшее из них. Написать блок-схему и программу на языке Паскаль. Домашнее задание