Решение задач машиностроения средствами Turbo Pascal. Крупенников О.Г - 32 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

31
Программы циклической структуры могут быть организованы, например, с
помощью комбинации условного оператора IF и безусловного оператора
GOTO или специальных операторов цикла.
Пример 4.1. Составить программу для вычисления площади листовой за-
готовки в виде круга, если ее радиус изменяется от 50 до 70 мм с ша-
гом 5 мм. При реализации цикла использовать комбинацию операторов
IF и
GOTO.
PROGRAM KRUG;
USES CRT;
LABEL 1;
VAR S, R: REAL;
BEGIN
CLRSCR;
R:=50;
1: S:=PI*SQR(R);
WRITELN (‘S=’,S:4:2,’ ПРИ R=’,R:4:2);
R:=R+5;
IF (R<=70) THEN GOTO 1;
READKEY
END.
В языке TURBO PASCAL имеются специальные операторы циклов (FOR,
WHILE и REPEAT), позволяющие организовать циклы с известным или неиз-
вестным числом повторений.
Оператор цикла FOR. Организует выполнение одного оператора с зара-
нее известным числом циклов.
Существует два варианта FOR:
1. С увеличивающимся параметром
FOR <I>:=<START> TO <FINISCH> DO <ОПЕРАТОР>;
2. С уменьшающимся параметром
FOR <I>:=<START> DOWNTO <FINISCH> DO < ОПЕРАТОР
>; .
Здесь <I> – параметр (индекс) цикла, являющийся переменной порядково-
го типа; <START> – начальное значение параметра цикла; <FINISCH> – конеч-
ное значение параметра цикла; < ОПЕРАТОР > – выполняемый оператор.
Если в первом варианте значение <START> больше значения <FINISCH>,
а во втором варианте – <START> больше <FINISCH>, то оператор цикла FOR
не выполняется ни разу.
В цикле FOR нельзя задавать шаг, отличный от 1.

Страницы