Как найти объем цилиндра в паскале - Исправление недочетов и поиск решений вместе с Examum.ru

0 / 0 / 0

Регистрация: 06.02.2011

Сообщений: 13

Вычисление площади и объема цилиндра

14.02.2011, 17:48. Показов 52813. Ответов 5

Доброго времени суток! В который раз нуждаюсь в вашей помощи…

Создать программу для вычисления площади поверхности и объема цилиндра по принципу «ввод значений -> результат»

Информация к размышлению:

Непосредственно формулы (Записать в виде инструкции присваивания):

$https://www.cyberforum.ru/cgi-bin/latex.cgi?V=pi *{r}^{2}*h$

Буду благодарен!

N@tali

781 / 462 / 85

Регистрация: 20.02.2010

Сообщений: 974

14.02.2011, 18:17

объем

Pascal

program _1;
uses crt;
var
  radius, vysota:real;
begin
  ClrScr;
  TextColor(14);
  Writeln('Вычисление объема цилиндра.');
  Writeln('Введите исходные данные:');
  write('радиус основания -> ');
  readln(radius);
  write('высота цилиндра -> ');
  readln(vysota);
  writeln('Объем цилиндра: ',(2*pi*radius*radius*vysota):7:2);
  Repeat
  Until KeyPressed;
end.

площадь поверхности

Pascal

program _2;
uses crt;
var
  radius, vysota:real;
begin
  ClrScr;
  TextColor(14);
  Writeln('Вычисление площади поверхности цилиндра.');
  Writeln('Введите исходные данные:');
  write('радиус основания -> ');
  readln(radius);
  write('высота цилиндра -> ');
  readln(vysota);
  writeln('Объем цилиндра: ',(2*pi*radius*radius+2*pi*radius*vysota):7:2);
  Repeat
  Until KeyPressed;
end.

kofee»k

109 / 109 / 91

Регистрация: 08.01.2011

Сообщений: 171

14.02.2011, 18:22

Pascal

program tt;
uses crt;
const
  Pi=3.14;
var
  r,h:integer;
  s,v:real;
begin
  write('Введите r= ');
  readln(r);
  write('Введите h=');
  readln(h);
  S:=2*Pi*r*(h+r);
  V:=Pi*sqr(r)*h;
  writeln('Площадь равна ',S);
  writeln('Объем равен ',V);
  readln;
end.

romcka-x

127 / 95 / 74

Регистрация: 18.01.2011

Сообщений: 227

14.02.2011, 18:25

Pascal

 uses crt;
 var s,v,r,h:real;
 begin
 write('высота цилиндра = '); readln(h);
 write('радиус цилиндра = '); readln(r);
 v:=2*pi*r*(h+r);
 s:=pi*r*r*h;
 writeln('Площадь = ',s);
 writeln('Объем = ',v);
 end.

0 / 0 / 0

Регистрация: 06.02.2011

Сообщений: 13

14.02.2011, 18:30

[ТС]

Благодарю! Не ожидал такой оперативности). Всем по +1

109 / 109 / 91

Регистрация: 08.01.2011

Сообщений: 171

14.02.2011, 18:33

Обращайся

Источник

Turbo Pascal

Написать программу вычисления объема цилиндра. Ниже представлен рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, выделены полужирным шрифтом).

Вычисление объема цилиндра.

Введите исходные данные:

Радиус основания (см) = 5

Высота цилиндра (см) = 10

Объем цилиндра 1570.80 куб.см.

Для завершения работы программы нажмите <Enter>.

Источник

Узнай цену своей работы

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

Написать процедуру, которая вычисляет объем цилиндра. Параметрами процедуры должны быть радиус, высота цилиндра и переменная для результата.

Код к задаче: «Вычислить объем цилиндра»

textual

Листинг программы

uses crt;
var
   r,h:integer;
   v:real;
procedure Vcil(r,h:integer;var v:real);
begin
     v:=pi*sqr(r)*h;
end;
begin
   write('Vvedite Radius:');
   readln(r);
   write('Vvedite H:');
   readln(h);
   Vcil(r,h,v);
   writeln('V=',v);
end.

Источник

Новости

Программы

Turbo Pascal

Игры

Документация

Странности

FAQ

Ссылки

Форум

Гостевая
книга

Рассылка

Благодарности

Об авторе

Пример 1.2.
Определить объём и площадь боковой
поверхности цилиндра с заданными радиусом
основания R и высотой H.
Тест

Данные	Результат
R = 1	H = 1	V = 3.14	S = 6.28

Демонстрация

Школьный АЯ

алг Цилиндр (арг вещ R, H, рез вещ V, S)
нач вещ Pi
   Pi := 3.14 
   V := Pi * R**2 * H 
   S := 2 * Pi * R * H 
кон

Turbo Pascal

Program Cylinder;
  Uses Crt; {Подключение библиотеки Crt}
  Var
    R, {радиус основания цилиндра}
    H, {высота цилиндра }
    V, {объем цилиндра }
    S: Real; {площадь боковой поверхности цилиндра}
BEGIN
  ClrScr; {Вызов из библиотеки Crt процедуры очистки экрана}
  Write('Введите высоту цилиндра : ');  ReadLn(H);
  Write('Введите радиус основания : '); ReadLn(R);
  V := Pi * R * R * H;
  S := 2 * Pi * R * H;  WriteLn;
  WriteLn('Объем цилиндра = ', V : 5 : 2); {Здесь 5 - общее 
      количество позиций, занимаемых переменной V при выводе,
      а 2 - количество позиций в дробной части значения V}
  WriteLn('Площадь боковой поверхности = ', S : 5 : 2);
  ReadLn
END.

Источник

В этой теме 0 ответов, 1 участник, последнее обновление 6 лет, 2 месяца назад сделано Васильев Владимир Сергеевич.

Сообщения

Написать программу вычисления объема цилиндра по радиусу его основания и высоте.

Решение:

program line_8;
uses crt;
var r, h, v: real;
begin
  clrscr;
  write('R = '); readln(r);
  write('H = '); readln(h);
  v:=pi*sqr(r)*h;
  write('V = ', v:4:2);
  readkey;
end.

Автор

Сообщения

Для ответа в этой теме необходимо авторизоваться.

Источник