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

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

додаток до уроку 6.txt.

program bank;

var d:integer;

gr:real;

begin

writeln('dolary grivni');

for d:=1 to 10 do

begin

gr:=5.05*d;

writeln(d:4, gr:15:2);

end;

readln;

end.

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

program Elements;

var i,n:integer;

a:real;

begin

n:=10;

for i:=1 to n do

begin

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

writeln(i:4,a:15:2);

end;

readln;

end.

program Suma1;

var s,n:integer;

begin

s:=0;

for n:=1 to 100 do

s:=s+n;

writeln('s=',s);

readln;

end.

program dobutok;

var i,n:integer;

a,d:real;

begin

d:=1;

n:=5;

for i:=1 to n do

begin

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

d:=d*a;

end;

writeln('d=',d:4:2);

readln;

end.


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