Вказівка повторення Вказівка повторення з передумовою
while <умова> do begin
<команда 1>;
<команда 2>;
...
<команда n>;
end
Задача_3. Скласти програму яка буде рахувати суму усіх цілих чисел від 1 до 10.
program sumachysel; {назва програми}
const a=1; b=10; {розділ констант (сталих величин)}
var x,s:integer; {розділ змінних}
begin x:=1; s:=0; {початок програми, змінна х:=1, s:=0}
while x<=10 do begin {цикл, поки х<=10 робити такі команди}
s:=s+x; {s:=s+x}
x:=x+1; {x:=x+1}
end; {кінець циклу}
writeln('suma chysel vid 1 do 10 rivna ', s);
{видрукувати suma chysel vid 1 do 10 rivna і значення s}
end. {кінець програми}
(зверніть увагу, в цій програмі немає команди readln(?), а натомість є розділ констант const. Всі дані потрібні для розв'язування програми є в розділі констант, тому їх вводити непотрібно)
Вказівка повторення з післяумовою
repeat <команда 1>; <команда 2>; ...
<команда n>;
until <умова>
Задача_4. Скласти програму яка буде рахувати суму усіх цілих чисел від 1 до 10, з використанням циклу з післяумовою.
program sumachysel; {назва програми}
const a=1; b=10; {розділ констант (сталих величин)}
var x,s:integer; {розділ змінних}
begin x:=1; s:=0; {початок програми, змінна х:=1, s:=0}
repeat {повторювати такі команди}
s:=s+x; {s:=s+x}
x:=x+1; {x:=x+1}
until x>10; {поки умова х<=10}
writeln('suma chysel vid 1 do 10 rivna ', s);
{видрукувати suma chysel vid 1 do 10 rivna і значення s}
end. {кінець програми}
Вказівка повторення з параметром for <параметр:=вираз 1> to <вираз 2> do begin
<команда 2>;
<команда 2>;
...
<команда n>;
end;
Наприклад
for i:=1 to 7 do begin
s:=s+i;
i:=i+3;
end;
Задача_5. Скласти програму яка буде рахувати суму усіх цілих чисел від 1 до 10, з використанням циклу з параметром.
program sumachysel; {назва програми}
var i,s:integer; {розділ змінних}
begin s:=0; {початок програми змінна s:=0}
for i:=1 to 10 do begin {початок циклу}
s:=s+i;
end; {кінець циклу}
writeln('suma chysel vid 1 do 10 rivna ', s);
{видрукувати suma chysel vid 1 do 10 rivna і значення s}
end. {кінець програми}
| 