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

@terminator8920 · Регистрация: 26.05.2011

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

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

@Mr.Y · 26.05.2011, 18:35

Pascal

Uses
 crt;
 
Function volume(r1,r2,h:integer):real;
Begin
 volume:=pi*h*(sqr(r1)-sqr(r2));
End;
 
Var
 r1,r2,h:integer;
Begin
 clrscr;
 write('R1 = ');
 readln(r1);
 write('R2 = ');
 readln(r2);
 write('H = ');
 readln(h);
 writeln('V = ',volume(r1,r2,h):3:1);
 readln;
End.

@terminator8920 · 26.05.2011, 19:46 **[ТС]**

Pascal

Uses
 crt;
 
Function volume(r1,r2,h:integer):real;
Begin
 volume:=pi*h*(sqr(r1)-sqr(r2));
End;
 
Var
 r1,r2,h:integer;
Begin
 clrscr;
 write('R1 = ');
 readln(r1);
 write('R2 = ');
 readln(r2);
 write('H = ');
 readln(h);
 writeln('V = ',volume(r1,r2,h):3:1);
 readln;
End.

Но я не знаю как вписать в эту программу переменную для результата.

@SuPeR XaKer · 26.05.2011, 19:56

Pascal

Uses
crt;
 
procedure volume(r1,r2,h:integer;Var rez:real);
Begin
 rez:=pi*h*(sqr(r1)-sqr(r2));
End;
 
Var
r1,r2,h:integer;
k:real;
Begin
clrscr;
write('R1 = ');
readln(r1);
write('R2 = ');
readln(r2);
write('H = ');
readln(h);
volume(r1,r2,h,k);
writeln('V = ',k:3:1);
readln;
End.

код не смотрел особо

magirus · 26.05.2011, 19:58

Комментарий модератора

terminator8920, не дублируйте темы

@PETROSAYN · 30.05.2011, 17:53

program reschenie;
procedure volume(r1,r2,h:integer;Var rez:real);
Begin
rez:=pi*h*(sqr(r1)-sqr(r2));
End;
Var
r1,r2,h:integer;
k:real;
Begin
clrscr;
write('R1 = ');
readln(r1);
write('R2 = ');
readln(r2);
write('H = ');
readln(h);
volume(r1,r2,h,k);
writeln('V = ',k:3:1);
readln;
End.

Добавлено через 1 минуту
думаю
Uses
crt;
в данной программе не нужно прописывать, и нас еще учили писать название программы, по этому , уважаемый терминатор , вам лучше такую программу попробовать....

@terminator8920 0 / 0 / 0 Регистрация: 26.05.2011 Сообщений: 29
		1
	Написать процедуру вычисления объема полого цилиндра 26.05.2011, 18:03. Показов 5396. Ответов 5 Метки нет (Все метки) Написать процедуру вычисления объема полого цилиндра (формула объем равен пи умножить на h умножить на скобку в скобках r первое в квадрате минус r второе в квадрате). Параметрами процедуры должны быть радиусы оснований, высота цилиндра и переменная для результата. Миниатюры 0

@PETROSAYN 0 / 0 / 0 Регистрация: 30.05.2011 Сообщений: 4
	30.05.2011, 17:53	6
	program reschenie; procedure volume(r1,r2,h:integer;Var rez:real); Begin rez:=pih(sqr(r1)-sqr(r2)); End; Var r1,r2,h:integer; k:real; Begin clrscr; write('R1 = '); readln(r1); write('R2 = '); readln(r2); write('H = '); readln(h); volume(r1,r2,h,k); writeln('V = ',k:3:1); readln; End. Добавлено через 1 минуту думаю Uses crt; в данной программе не нужно прописывать, и нас еще учили писать название программы, по этому , уважаемый терминатор , вам лучше такую программу попробовать.... 0

Опции темы