Операторы языка Turbo Pascal - презентация

1 Операторы языка Turbo Pascal while … do … Дибиров Магомедшапи Дибиргаджиевич

2 Оператор цикла с предпроверкой условия: while … do … Оператор while … do … применяется в тех случаях, когда количество повторения действий в цикле заранее не известно и зависит от выполнения какого-либо условия. Общий вид оператора while … do … Для завершения цикла необходимо, чтобы оператор или список операторов влияли на значение выражения условие. while условие do оператор; while условие do begin список операторов; end ;

3 Блок схема оператора цикла с предпроверкой условия: while … do … Условие оператор да нет

4 Пример: Найти максимальное из натуральных чисел, не превышающих 5000, которое нацело делится на 39. Program Demo1; uses CRT; var a : integer; begin clrscr; a:= 5000; while a mod do a:=a-1; write ( Искомое число =, a : 5); readkey end.

5 Задания: Составить программу для вычисления значений функции F(x) на отрезке [a, b] с шагом h. Результат представить в виде таблицы, первый столбец которой – значения аргумента, второй – соответствующие значения функции:

6 Программа: Program P1; Uses crt; Var F,x:real; Const H=0.25; a=0; b=5; Begin clrscr; Writeln (Tablica znachenij funkcii:); x:=a; While x