Программу для расчёта площади окружности

[Rostbook]

Люди умные, всем привет! Помогите начинающему дурачку с написанием этой программки. Я уже много начитался за Delphi, пробовал пол видеоучебнику создавать "программки", всё это конечно сложно и я буду стараться больше и больше учить.... Мне завтра с утра надо сдать экзамен в электронном виде по рассчёту площади окружности... Не могу. Помогите. Буду до утра сидеть на этом форуме в ожидании помощи. Спасибо.

[Вавел из ГМТУ]

Ээээ...
В чём трабл?? 0_о

Pi*d^2/4

[Rostbook]

Во всём. Мне надо написать это дело и показать на флэшке программку. Как это написать, фиг знает....

[spamer]

Вот интересно, что создает вам трудность написать прогу по формуле (точно не помню площадь окружности, но вроде S=Pi*R^2).

function Plowad(R: Integer): real;
var
S: real;
begin
S:= Pi*sqr(R);
result:= S;
end;

[Rostbook]

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

Вот интересно, что создает вам трудность написать прогу по формуле (точно не помню площадь окружности, но вроде S=Pi*R^2).

function Plowad(R: Integer): real;
var
S: real;
begin
S:= Pi*sqr(R);
result:= S;
end;

Спасибо. Мне этот код куда вставить надо? (я серьёзно). Мне же и общий вид программки каким то образом сделать надо... Я тоже находил в нете код, вставлял его, а оно нефига. Без обид за глупые вопросы, вам это конечно всё легко, а я так сказать,только видеоучебник посмотрел...
Если есть такая возможность сделать это быстро за меня, я отвечаю, положу денег на мобильны счёт завтра после сдачи. помоги! аська моя 242089864

[ArtInt]

Кстати, а там точно радиус, а не диаметр?
Посмотрите, тут формулу
http://www.enerprom.ru/qa/73.2.html

[Rostbook]

Спасибо за ссылочки, формулу найти не проблема, я на листе бумаги это сейчас в минуту распишу. Как мне это всё в программке сделать??? Ставка 100 рублей на счёт мобильника, я без шуток.

[spamer]

Чувак ты прикалуешся или на полном серьезе. Бери учебник по паскалю, ищи раздел Подпрограммы и читай, а лучше весь учебник читай.

program Project1;
Var Radius: Integer;

 function Plowad(R: Integer): real;
var
S: real;
begin
S:= Pi*sqr(R);
Plowad:= S;
end;

begin
Read(Radius);
readln;
Write('R = ',Plowad(Radius):4:2);
readln;
end.

[Rostbook]

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

Чувак ты прикалуешся или на полном серьезе. Бери учебник по паскалю, ищи раздел Подпрограммы и читай, а лучше весь учебник читай.

program Project1;
Var Radius: Integer;

 function Plowad(R: Integer): real;
var
S: real;
begin
S:= Pi*sqr(R);
Plowad:= S;
end;

begin
Read(Radius);
readln;
Write('R = ',Plowad(Radius):4:2);
readln;
end.

Данихрена я не прикалываюсь! Что мне с этим кодом делать? Учебник до утра вычитать???

[spamer]

Я уже много начитался за Delphi, пробовал пол видеоучебнику создавать "программки", всё это конечно сложно и я буду стараться больше и больше учить....

Ты же вроде читал учебник, должен что то понимать.

З.Ы. Єт паскалевский вариант твоего задания