Задачи на программирование 8 класс. Решите как положено через паскаль (хотя бы некоторые) 5.11-5.14

1

Ответы и объяснения

2013-12-22T20:20:28+04:00
Сейчас все будет, все задачки, подождите!
.....
Вторая часть задачи 3.12
begin
p:=p0*exp(-z*h);
writeln('При высоте h = ',h,' Плотность Р = ',p:2:2);
h:=h-d;
if (h>=1000)and(h<=2000) then
begin
sum:=sum+p;
inc(k);
end;
end;
writeln('Средняя плотность',sum/k:2:2);
readln; END.
program S_311;
USES CRT;
const R=6350;
var s,A,q:real; i:integer;
BEGIN
s:=0;
for i:=1 to 10 do
begin
q := 1000*i;
A:=sqrt(sqr(R + q)-sqr(R));
writeln('S = ',A:2:2);
end;
Readkey;
END.
Program S_510;
USES CRT;
var
k:real;
i:integer;
BEGIN
write('Введите курс: ');
Readln(k);
for i:=1 to 20 do
Writeln(i:2,i*k:1:1);
readkey;
END.
Усе :) Если что-то не понятно, спрашивай, всегда отвечу!
спасибо)