Из функции в процедуру

@JetDart · Регистрация: 05.02.2014

Author24 — интернет-сервис помощи студентам

Надо бы сдавать, а я уже долго сижу голову ломаю, не как понять не могу
Нужно перевести задачку по Функции в задачу по Процедуре, помогите =)

Pascal

program qq;
var x,y,t:real;
function up (N:integer;S:real):real;
var
i:integer;
D:real;
begin
D:=1;
for i:=1 to n do
D:=D*S;
up:=D;
end;
begin
writeln ('Введите числа х и у');
readln(x,y);
t:=((sin(up(3,x))+up(2,y))*(up(3,(x+y))+up(2,x)))/(1+((up(3,(x*y))+up(2,(x+y)))));
writeln (t);
end.

@Puporev · 05.02.2014, 17:12

Pascal

program qq;
procedure up (N:integer;S:real;var D:real);
var i:integer;
begin
D:=1;
for i:=1 to n do
D:=D*S;
end;
var x,y,d1,d2,d3,d4,d5,d6,t:real;
begin
writeln ('Ââåäèòå ÷èñëà õ è ó');
readln(x,y);
up(3,x,d1);
up(2,y,d2);
up(3,x+y,d3);
up(2,x,d4);
up(3,x*y,d5);
up(2,x+y,d6);
t:=((sin(d1)+d2)*d3+d4)/(1+d5+d6);
writeln (t:0:4);
end.

формулу для t проверьте

@JetDart · 05.02.2014, 17:50 **[ТС]**

Хм, там вроде всё верно, как и в условии задачи...
Спасибо)

@JetDart 0 / 0 / 0 Регистрация: 05.02.2014 Сообщений: 14
	05.02.2014, 17:50 [ТС]	3
	Хм, там вроде всё верно, как и в условии задачи... Спасибо) 0