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

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



Program summa_doku_1;

var i,n,s:integer;

begin

writeln('vvedit kilkist naturalnix chisel');

write('n=');

readln(n);

i:=1;

s:=0;

while i<=n do

begin

s:=s+i;

i:=i+1;

end;

writeln('s=',s);

readln;

end.

Program doku_2;

var i,n:integer;

a:real;

begin

n:=10;

i:=1;

while i<=n do

begin

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

i:=i+1;

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

end;

readln;

end.

Program dobutok_3;

var i,n:integer;

a,d:real;

begin

d:=1;

n:=5;

i:=1;

while i<=n do

begin

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

d:=d*a;

i:=i+1;

end;

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

readln;

end.

Категорія: ПАСКАЛЬ лекції | Додав: Sergiy9325 | Теги: Додаток_до уроку_7.txt, пасккаль, контрольна, тематична
Переглядів: 704 | Завантажень: 265 | Рейтинг: 0.0/0
Всього коментарів: 0
Додавати коментарі можуть лише зареєстровані користувачі.
[ Реєстрація | Вхід ]