DELPHI 7

vk.com/club152685050 | vk.com/id446425943

Условный оператор повторения

Repeat

тело цикла

Until условие выхода из цикла;

vk.com/club152685050 | vk.com/id446425943

Пример реализации цикла repeat - until

var k, i: integer;

begin
k:=1; I:=1;	repeat

k:=k*i; writeln(i, k); i:=i+1;

until i > 5;

end.

vk.com/club152685050 | vk.com/id446425943

Определение числа шагов при нормальном завершении цикла

	N		кон.знач. нач.знач.		1
			шаг

vk.com/club152685050 | vk.com/id446425943

Пример реализации цикла while - do

var s, i: real; begin

s:=0; x:=1; while x <= 5 do begin

s:=s+x; x:=x+0.04; end; writeln(s);

end.

vk.com/club152685050 | vk.com/id446425943

Определение числа шагов при нормальном завершении цикла

N		5 1		1		4		1	101
		0.04				0.04

vk.com/club152685050 | vk.com/id446425943

Пример реализации цикла repeat - until

var s, m: real; begin

s:=1; m:= - 0.23; repeat

s:=s+m; m:=m+0.14; until m > 3; writeln(s);

end.

vk.com/club152685050 | vk.com/id446425943

Определение числа шагов при нормальном завершении цикла

N		3 ( 0.23)		1		3.23		1 23.07 1 24
		0.14
						0.14

vk.com/club152685050 | vk.com/id446425943

Процедуры ввода данных

Read (элемент1, элемент2, …); ReadLn (элемент1, элемент2, …);

Read (a, b, c, i, j, k);

ReadLn (x, y, z);

vk.com/club152685050 | vk.com/id446425943

Процедуры вывода данных

Write (элемент1, элемент2, …); WriteLn (элемент1, элемент2, …);

Write (a, b, c, i, j, k); WriteLn (x, y, z);

WriteLn (x, ' ', y, ' ', z); - печать с пробелами

vk.com/club152685050 | vk.com/id446425943

Примеры вывода данных

X:=2; Y:=4; z:= 6;

Процедура вывода	Результат
WriteLn (x, y, z);	246
WriteLn (x, ' ', y, ' ', z);	2 4 6
WriteLn (' Привет всем ');	Привет всем