Додаток_до_уроку_8.txt - ПАСКАЛЬ лекції - Інформатика - Каталог файлів - Сайт Переспівської ЗОШ I-III ст.
Головна » Файли » Інформатика » ПАСКАЛЬ лекції

Додаток_до_уроку_8.txt
[ · Скачати дистанційно () ] 13.02.2013, 10:39

Додаток_до_уроку_8.txt.



program summa_povtoriti;

var i,n,s:integer;

begin

writeln('vvedit kilkist naturalnix chisel');

write('n=');

readln(n);

i:=1;

s:=0;

repeat

S:=s+i;

i:=i+1;

until i>n;

writeln('s=',s);

readln;

end.

program repeat_2;

var i,n:integer;

a:real;

begin

i:=1;

n:=10;

begin

repeat

a:=3+cos(2*i);

i:=i+1;

writeln(i:4,a:8:3);

until i>n;

end;

readln;

end.

Program dobutok_3;

var i:integer;

a,d:real;

begin

i:=1;

d:=1;

repeat

a:=2+abs(sin(3*i));

d:=d*a;

i:=i+1;

until i>5;

writeln('d=',d:5:3);

readln;

end. 

Категорія: ПАСКАЛЬ лекції | Додав: Sergiy9325 | Теги: Урок_тематична.doc, пасккаль, контрольна, Додаток_до_уроку_8.txt, Опис вказівки повторення за допомог, тематична
Переглядів: 249 | Завантажень: 52 | Рейтинг: 0.0/0
Всього коментарів: 0
Додавати коментарі можуть лише зареєстровані користувачі.
[ Реєстрація | Вхід ]
Вітаю Вас, Гість!
Субота, 03.12.2016