Операторы языка Turbo Pascal

Содержание

1. Операторы языка Turbo Pascal
2. Оператор цикла с предпроверкой условия: while …
3. Блок схема оператора цикла с предпроверкой условия: while … do …Условиеоператорданет
4. Пример:Найти максимальное из натуральных чисел, не превышающих
5. Задания: Составить программу для вычисления значений функции
6. Программа: Program P1; Uses
7. Скачать презентанцию

Оператор цикла с предпроверкой условия: while … do …Оператор while … do … применяется в тех случаях, когда количество повторения действий в цикле заранее не известно и зависит от выполнения какого-либо

Слайды и текст этой презентации

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

Слайд 2Оператор цикла с предпроверкой условия: while … do …
Оператор while

… do … применяется в тех случаях, когда количество повторения

действий в цикле заранее не известно и зависит от выполнения какого-либо условия.

Общий вид оператора while … do …

Для завершения цикла необходимо, чтобы оператор или список операторов влияли на значение выражения условие.

Оператор цикла с предпроверкой условия: while … do …Оператор while … do … применяется в тех случаях,

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

…
Условие
оператор
да
нет

Слайд 4Пример:
Найти максимальное из натуральных чисел, не превышающих 5000, которое нацело

делится на 39.

Program Demo1;
uses CRT;
var a : integer;
begin clrscr;
a:= 5000;
while

a mod 39 <> 0 do a:=a-1;
write (‘ Искомое число = ’, a : 5);
readkey
end.

Пример:Найти максимальное из натуральных чисел, не превышающих 5000, которое нацело делится на 39.Program Demo1; uses CRT; var a :

Слайд 5Задания:
Составить программу для вычисления значений функции F(x) на отрезке

[a, b] с шагом h. Результат представить в виде таблицы,

первый столбец которой – значения аргумента, второй – соответствующие значения функции:

Задания: Составить программу для вычисления значений функции 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<=b do
Begin
F:=x-sin(x);
Writeln (‘x=’, x: 7:2,’F(x) =’:9, f: 7:2);
X: =x+h
End;
Readkey
End.