Плотность воздуха КоД Внутри исправьте

@KoТэ LOvE YoU · Регистрация: 09.06.2010

Author24 — интернет-сервис помощи студентам

Плотность воздуха убывает с высотой по закону
р = р0 е-bz,
где р — плотность на высоте b метров,
р = 1,29 кг/м3,
z = 1,25*10-4.
Напечатать таблицу зависимости плотности от высоты для значений от 0 до 1000 м через каждые 100 м. С таблицой помогите пожалуйста

Pascal

uses crt;
var p,z,p1:real;
b,e,i:Integer;
begin
p:=1.29;
z:=1.25*10-4;
Write('b='); readln(b);
Write('e='); readln(e);
ClrScr;
Gotoxy(2,1);
WriteLn('|Метры|');
for i:=0 to B do begin
i:=i+100;
Writeln(i:6);
end;
Writeln;
WriteLn('|Плотность|');
for i:=0 to E do
WriteLn('   ', p*e-i*z);
end.

@Puporev · 11.10.2010, 10:48

Pascal

uses crt;
const z=0.000125;
var p,p0:real;
    b,i:Integer;
begin
clrscr;
writeln('-------------');
writeln('|  b  |  p  |');
writeln('-------------');
p0:=1.29;
b:=0;
writeln('|',b:5,'|',p0:5:2,'|');
for i:=0 to 9 do
 begin
  b:=b+100;
  p:=p0-b*z;
  writeln('|',b:5,'|',p:5:2,'|');
 end;
writeln('-------------');
readln
end.

	11.10.2010, 10:48