Методические рекомендации по выполнению практического занятия по теме: Циклическая структура алгоритмов в TurboPascal

Методические рекомендации по выполнению практического занятия

по  теме: Циклическая структура алгоритмов в TurboPascal

Program Example_1; Var y,n:longint; Begin y:=sqr(20); For n:=19 downto 1 do y:=sqr(20); y:=sqr(y+sqr(n)); Writeln(‘Значение выражения равно’); Writeln(y); End.

Program Example_2; Var y,n:longint; Begin y:=sqr(20);n=19; while n>1 do begin y:=sqr(y+sqr(n));n:=n-1;end; Writeln(‘Значение выражения равно’); Writeln(y); End.

Program Example_3; Var y,n:longint; Begin y:=sqr(20);n=19; repeat y:=sqr(y+sqr(n)); n:=n-1; until n<1 Writeln(‘Значение выражения равно’); Writeln(y); End.

Program Example_4; Var k,n,p1,p2,s:integer; Begin Writeln(‘Введите целое число’); readln(n); y:=sqr(20);n=19; repeat y:=sqr(y+sqr(n)); n:=n-1; until n<1 Writeln(y); End.