© А. В. Розанов Лицей-интернат при СГАУ им.

© А. В. Розанов Лицей-интернат при СГАУ им. Н. И. Вавилова

Алгоритмами и программами циклической структуры называют алгоритмы и программы, включающие в себя циклы - последовательности операторов, которые могут выполняться несколько раз.

В языке PASCAL имеются ТРИ оператора цикла: ОПЕРАТОРЫ ЦИКЛА Оператор цикла с параметром Оператор цикла с предусловием Оператор цикла с постусловием

БЛОК-СХЕМА оператора цикла с параметром: I: =n 0 I < n. K ? ДА Оператор I: =I+1 НЕТ

Program PRIMER 1; var I, n 0, n. K : integer; Begin Введите n 0 и n. K 1 10 Write. Ln(‘Введите n 0 и n. K’); Read( n 0, n. K ); FOR I: =n 0 TO n. K DO Write( I : 4 ); Write. Ln; End. 1 2 3 4 5 6 7 8 9 10

Program PRIMER 2; var I, n 0, n. K : integer; Begin Введите n 0 и n. K 10 1 Write. Ln(‘Введите n 0 и n. K’); Read( n 0, n. K ); FOR I: =n 0 DOWNTO n. K DO Write( I : 4 ); Write. Ln; End. 10 9 8 7 6 5 4 3 2 1

Program PRIMER 3; { Таблица tg(x) } Var I, K : integer; F, x, x 0, xk, h : real; Begin Введите x 0, x. K, h Write. Ln('Введите x 0, xk, h); 1 4 1 Read(x 0, xk, h); x tg K: =TRUNC((xk-x 0)/h)+1; 1 1, 56 x: =x 0; -2, 19 Write. Ln(' ': 13, 'x', ' ': 11, 2 'tg(x)'); 3 -0, 14 FOR I: =1 TO K DO 4 1, 16 begin F: =sin(x)/cos(x); Writeln(x: 15: 2, F: 15: 4); x: =x+h end; End.