SERGE_BLIZNUK
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
CPPASCAL
ну, сдал и Молодец!
Hanniball
Цитата:| сожалею, но мне кажется, что это невозможно... |
Это шутка?... Почему?..
mr gorka
Цитата:| Нужно задачку зделать с function вместо procedure ! |
а если так?
Код:
function Kolo (r : Real) :real;
begin
Kolo := Pi*r*r;
end;
var r1,r2,r3,r4,S,S1,S2,S3,S4:real;
begin
writeln('Please enter r1,r2,r3,r4');
readln(r1,r2,r3,r4);
S1 := Kolo(r1);
S2 := Kolo(r2);
S3 := Kolo(r3);
S4 := Kolo(r4);
S:=S1-S2+S3-S4;
writeln('S=' ,S:2:2);
readln
end.
|
или так (function так же, как в первом варианте, но, чтобы показать, преимущества использования функции вместо процедуры пишем так:
Код:
var r1,r2,r3,r4,S:real;
begin
writeln('Please enter r1,r2,r3,r4');
readln(r1,r2,r3,r4);
S:=Kolo(r1)-Kolo(r2)+Kolo(r3)-Kolo(r4);
writeln('S=' ,S:2:2);
readln
end. |
в принципе, S тоже можно выкинуть и вычисление можно написать прямо во WriteLn:
writeln('S=' ,(Kolo(r1)-Kolo(r2)+Kolo(r3)-Kolo(r4)):2:2);
Добавлено:
mr gorka
во-первых, цИкл пишется через И
а во-вторых, поясните, что-то я за вашей мыслью не поспеваю, как связана формула суммирования S:= a^K + B^I + c^m с вашим "цыклом" ??! и ещё, думаю, что это просто так, но всё таки - в конце формулы вычисления S стоит восклицательный знак - это факториал или так, для усиления эффекта вопроса ;-)?!
подсказка по вычислению S:
Код: function MyPower(Base, Exponent : integer) : longint;
var
i : integer;
P : LongInt;
begin
P := 1;
for i:=1 to Exponent do
P := P * Base;
MyPower := P;
end;
|
если у вас числа ФбИбС - не целые, а вещественные - замените в функции в нужных местах самостоятельно. |
)