Сделать функцию и процедуру
СРОЧНО!! ПОЖАЛУЙСТА!!
ДАЮ 35 БАЛЛОВ!!
Приложения:
Ответы на вопрос
Ответил hello93
0
1)Функция
program fun;
function ch(a,b,k,m : real): real;
var
f,u,v : real;
begin
u:=7*a*a-4*k+sqrt(a*k);
v:=9*b/(b+7*b*m-m*m);
f:=u*u+2*u*v-3*v;
ch:=f;
end;
var
x,y,b,c : real;
begin
writeln('Введите числа');
read(x,y,b,c);
writeln('F= ',ch(x,y,b,c):0:2);
end.
2)Процедура
program fun;
procedure ch(a,b,k,m : real);
var
f,u,v : real;
begin
u:=7*a*a-4*k+sqrt(a*k);
v:=9*b/(b+7*b*m-m*m);
f:=u*u+2*u*v-3*v;
writeln('F= ',f:0:2);
end;
var
x,y,b,c : real;
begin
writeln('Введите числа');
read(x,y,b,c);
ch(x,y,b,c)
end.
Ответил Allison5
0
Спасибо огромное)
Ответил dDeVoChKa
0
Если Вам не сложно....Помогите мне тоже, пожалуйста...Я Вас ооочень прошу(( https://znanija.com/task/31304032
Новые вопросы