Конус

@B-52 · Регистрация: 29.12.2009

Объявить запись, задающую конус. Составить программу с процедурой ввода данных конуса для вычисления площади поверхности и объема.
ПОМОЖИТЕ ПОДЖАЛУСТА!!!

@Puporev · 28.01.2010, 21:18

Pascal

uses crt;
type konus=record
           r,h,s,v:real;
           end;
procedure Vychisl(var kn:konus);
var l:real;
begin
write('Radius=');
readln(kn.r);
write('Vysota=');
readln(kn.h);
l:=sqrt(sqr(kn.r)+sqr(kn.h));
kn.s:=pi*kn.r*(kn.r+l);
kn.v:=pi*sqr(kn.r)*kn.h/3;
end;
var k:konus;
begin
clrscr;
Vychisl(k);
write('Площадь поверхности=',k.s:0:2,'  объем=',k.v:0:2);
readln
end.

@B-52 · 28.01.2010, 21:41 **[ТС]**

Puporev, от души спасибо большое выручил!!!

@B-52 1 / 1 / 0 Регистрация: 29.12.2009 Сообщений: 5
		1
	Конус 28.01.2010, 20:56. Просмотров 1874. Ответов 2 Метки нет (Все метки) Объявить запись, задающую конус. Составить программу с процедурой ввода данных конуса для вычисления площади поверхности и объема. ПОМОЖИТЕ ПОДЖАЛУСТА!!! 0

@B-52 1 / 1 / 0 Регистрация: 29.12.2009 Сообщений: 5
	28.01.2010, 21:41 [ТС]	3
	Puporev, от души спасибо большое выручил!!! 0

Опции темы

Конус

Решение