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

Question

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

---

Answer 1

Сейчас все будет, все задачки, подождите!

Comments

спасибо жду)

---

Детка, извини, свет выключали :( начинаю делать...
program s_513;
USES CRT;
Const m=7;
var Result:Real; n:byte;
BEGIN
Clrscr;
Writeln('Таблица умножения на 7. ');
for n:=1 to 9 do
begin
Result:=m*n;
Writeln(' ',n,' * ',m,' = ',Result);
end;
Readkey;
END.

---

program s_514;
USES CRT;
Const m=9;
var Result:Real; n:byte;
BEGIN
Clrscr;
Writeln('Таблица умножения на 9. ');
for n:=1 to 9 do
begin
Result:=m*n;
Writeln(' ',n,' * ',m,' = ',Result);
end;
Readkey;
END.

---

Первая часть задачи 3.12
Program S_312;
USES CRT;
const
p0=1.29;
z=1.25e-04;
var
p,h,d,sum: real;
k: integer;
BEGIN
writeln('Введите шаг d: ');
readln(d);
h:=10000;
sum:=0; k:=0;
while h>=0 do
....

---

.....
Вторая часть задачи 3.12
begin
p:=p0*exp(-z*h);
writeln('При высоте h = ',h,' Плотность Р = ',p:2:2);
h:=h-d;
if (h>=1000)and(h<=2000) then<br> 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.

---

Усе :) Если что-то не понятно, спрашивай, всегда отвечу!

---

спасибо)