Вывести на экран таблицу объёмов шара - Pascal ABC

Формулировка задачи:

Вывести на экран таблицу объёмов шара, если радиусы изменяются в диапазоне от 5 до 8 с шагом 0,5. Ниже представлен рекомендуемый вид экрана во время работы программы: --------------------- Радиус......Объём --------------------- ..5...........523.599 ..5.5........696.910 ..6...........904.779 ..6.5.......1150.347 ..7.........1436.755 ..7.5.......1767.146 ..8..........2144.661 ---------------------

Код к задаче: «Вывести на экран таблицу объёмов шара - Pascal ABC»

textual
var r,v:real;
begin
writeln('------------------');
writeln('|Радиус|  Объем  |');
writeln('------------------');
r:=5;
while r<=8 do
 begin
  v:=4*pi*r*r*r/3;
  writeln('|',r:5:1,' |',v:8:3,' |');
  r:=r+0.5;
 end;
writeln('------------------');
end.

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

12   голосов, оценка 4.250 из 5


СОХРАНИТЬ ССЫЛКУ