Тема Подпрограммы: Составить функцию нахождения объема цилиндра по его радиусу основания r и высоте (Паскаль)

[sanyok996]

Составить функцию нахождения объема цилиндра по его радиусу основания r и высоте. С помощью данной функции вычислить объемы для N цилиндров.

[Vanta11a]

Процитирую себя опять же:

Ну и?
Все просто, все скучно => просто так делать впадлу.
Цена за "не просто так" - 50 рублей на Qiwi.

[dragodar]

тут всё просто
function cylinders(r,h:integer):integer;
var v:integer;
begin
... тут пишем как найти обьём
cylinders:=v;
end;

и в майне результат будет выводимая переменная = количество + функция

[sanyok996]

а по подробнее?

[type_Oleg]

dragodar, а почему Integer? Лучше Double. Точность однако.
sanyok996, куда уж по по дробнее.. Объем цилиндра = площадь основания*высоту.

[sanyok996]

uses crt;
function cylinders(r,h:integer):integer;
var v:integer;
begin
v:= h*r*r*pi;
cylinders:=v;
end.
так она не работает...

[sanyok996]

тем более надо найти N.
Составить функцию нахождения объема цилиндра по его радиусу основания r и высоте. С помощью данной функции вычислить объемы для N цилиндров.

[type_Oleg]

Во-первых, ты ее вызывал? Или просто описал. Это - вся программа?

Во-вторых, PI - нецелое значение, а v и сама функция объявлены как целое Integer. Я же говорил, Double вместо Integer, для всех .

[type_Oleg]

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

тем более надо найти N.

Вроде не надо искать N, надо площади для N цилиндров. Вот так, например (при N=5):

program cyli;
function cylinders(r,h:Double):Double;
 begin
 cylinders:=h*r*r*PI;
 end;
var i : byte;
const 
  arR:array[1..5]of Double=(0.5,1,2,3.5,7); 
  arH:array[1..5]of Double=(0.2,1,2.5,4,11); 
begin
 for i:=1 to 5 do Writeln(cylinders(arR[i],arH[i]));	
 Readln;	
end.

[sanyok996]

я бы написал, но мы не изучали Double, я не знаю что это