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

[Bugich]

Написать функцию,которая вычисляет объем цилиндра.В качестве исходных данных взять радиус и высоту цилиндра.
в Delphi

[KobolD]

Сообщение от Bugich

Написать функцию,которая вычисляет объем цилиндра.В качестве исходных данных взять радиус и высоту цилиндра.
в Delphi

И что вызывает у тебя затруднение? незнаешь как по высоте и радиусу найти объем?

[Bugich]

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;
var rad,visota: integer;function cilindr (r,h:real): real;

begin

writeln ('vvedite radius i visotu');
readln(rad,visota);
Cilindr:= 3.14*rad*rad*visota;
writeln('objem');
cilindr(r,h);
readln;

end;
end.

[Bugich]

нужно функцию описать не знаю как

[Mad_Cat]

{код рабочий начиная с delphi2006}
Function Обьем_Цилиндра( радиус,высота:double):double;
begin
result:=3.14*радиус*радиус*высота;
end;

[SERG1980]

result:=3.14*радиус*радиус*высота;

а может лучше не радиус*радиус а радиус в квадрате, хотя разницы не будет

result:=pi*sqr(r)*h