Задача №1

 

var a, b, c, v : real;

begin

  writeln('Вычисления объема параллелепипеда');

  writeln('Введите исходные данные:');

  writeln('Длина (см)');

  readln(a);

  writeln('Ширина (см)');

  readln(b);

  writeln('Высота (см)');

  readln(c);

  v:=a*b*c;

  writeln('Объем ',v,'куб.см.');

end.

 

Задача №3

var a, b, c, s : real;

begin

  writeln('Вычисление площади поверхности параллелепипеда.');

  writeln('Введите исходные данные:');

  writeln('Длина (см)');

  readln(a);

  writeln('Ширина (см)');

  readln(b);

  writeln('Высота (см)');

  readln(c);

  S:=2*(a*b+b*c+a*c);

  writeln('Площадь поверхности: ',s,'кв.см.');

end.

 

Задача №4

 

var a, v : real;

begin

  writeln('Вычисление объема куба.');

  writeln('Введите длину ребра (см):');

  readln(a);

  V:=a*a*a;

  writeln('Объем куба: ',v,'куб.см.');

end.

 

Задача №5

 

var r, h, v : real;

begin

  writeln('Вычисление объема цилиндра.');

  writeln('Введите исходные данные:');

  writeln('Радиус основания (см)');

  readln(r);

  writeln('Высота цилиндра (см)');

  readln(h);

  V:=Pi*R*R*H;

  writeln('Объем цилиндра: ',v,'куб.см.');

end.

 

 

Используются технологии uCoz