Паскаль(проверка решения)

[maxxx657]

Приветствую всех.
Обращаюсь к людям владеющим Паскалем.
Ситуация такая:
имеем:
1) в программировании разбираюсь плохо
2) есть задача с составлением подпрограммы
3) самоучитель Паскаля
4) решенная задача с составленной подпрограммой
нужно:
проверить решение(насколько правильно), сделать замечания

[***METEO***]

сбрось прогу...

[maxxx657]

Сообщение от ***METEO***

сбрось прогу...

Не понял...
что сбросить? самоучитель?
в личку не смог ответить, кнопки пока нет.

[LeBron]

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

Приветствую всех.
Обращаюсь к людям владеющим Паскалем.
Ситуация такая:
имеем:
1) в программировании разбираюсь плохо
2) есть задача с составлением подпрограммы
3) самоучитель Паскаля
4) решенная задача с составленной подпрограммой
нужно:
проверить решение(насколько правильно), сделать замечания

Телепатия появляеться как суперскил только после достижения показателя в 12422 поста. Или я пойду добью те 12 с небольшим тыщь, которых мне не хватет, или, будьте добры, выложите задачу, решение, и все остальное, что должно быть известно тому, кто возьметься решать вашу проблему.

[maxxx657]

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

Телепатия появляеться как суперскил только после достижения показателя в 12422 поста. Или я пойду добью те 12 с небольшим тыщь, которых мне не хватет, или, будьте добры, выложите задачу, решение, и все остальное, что должно быть известно тому, кто возьметься решать вашу проблему.

Первое обращение к форуму не привело ни к каким результатам, поэтому я сначало решил спросить, кто может уделить мне немного времени для проверки.
задача

Вычислить площадь распространения пожара при круговой форме развития после введения стволов на тушение на 5, 10 и 20 минутах. Линейная скорость распространения пожара V=1.8м/мин. Вычисление площади оформить подпрограммой.

Расчетная формула

S=

Описание переменных
V- линейная скорость распространения пожара
T –время прошедшее с момента возникновения пожара
S-расчетная площадь пожара

Описание переменных.
Program S_POZAR;
User crt;
Var V,T,S:Real;
{подпрограмма вычисления площади пожара}
Prosedure S_KRUG(V:Real);
Var T2: Real:
Begin
IfT<=10Then S:=Pi*Sqr(0,5*V*T)/4
Else Begin
T2:=T-10;
S:=Pi*Sqr(5*V+V*T2)/4
End;
Writeln('При V=',V:3:1,' площади пожара S=',S:5:2,'м2')
End;
Brgin
Clscr; {процедура очистки экрана}
Write(‘Расчетное время T(мин)=’);
Readln(T);
S_KRUG (5)
S_KRUG (10)
S_KRUG (20)
Write(‘Расчетная линейная скорость V(м/мин)=’);
Readln(V);
S_KRUG (V)
End