Составьте программу с применением процедуры sub . end sub

NeOxyd

Составьте программу с применением процедуры sub ... end sub в соответствии с предложенным вариантом . Затем разработайте программу с использованием функции function... end FUNCTION. Сравните результаты, полученные при выполнении двух программ.Даны k, m. Получитегде f(a, b) = (a+b)3
5 ответов

NeOxyd

NeOxyd, вы раздел не перепутали? Вам вроде как Basic нужен.


NeOxyd

нужно сделать эту задачу в паскаль абс


NeOxyd

В Паскале нет конструкций sub ... end sub, function... end function


NeOxyd

значит без этих конструкций


NeOxyd

var
  res0,res,k,m:real;
 
function f1(a,b:real):real;
begin
  f1:=sqr(a+b)*(a+b);
end;
 
procedure f2(a,b:real; var res:real);
begin
  res:=sqr(a+b)*(a+b);
end;
 
begin
  readln(k,m);
  res:=f1(m,10)-f1((k+m)/5,k+m);
  writeln(res:8:2);
  f2(m,10,res0);
  f2((k+m)/5,k+m,res);
  res:=res0-res;
  writeln(res:8:2);
 
  readln;
end.