Паскаль. Исправьте, пожалуйста

[павля]

Паскаль. Исправьте, пожалуйста

исправьте пожалуйста программку...чтоб...РАБОТАЛАtehnari_ru_235:

заранее благодарна:tehnari_ru_159:

задание: даны действительные числа x, y. Получить z=t(1.2,y)+t(y,x)-t(2x-1,xy), где t(a,b)=sin(в степени2)а+е(в степени2а)+е(в степени2b)....(с использованием процедуры)..

program;
uses crt;
var
x,y:unteger;
z,t:real;
procedure t(a,b)(a,b,e:integer; var t:real);
begin
t(a,b):=(sin a*sin a)+(exp(2*a)*ln(e))+(exp(2*b)*ln(e));
end;
begin
clrsgr;
writeln('vvedite x,y');
readln(x,y);
z:=t*(1.2,y)+t*(y,x)-t*(2*x-1,x*y);
writeln('z=',z);
readln;
end.

 

[Vladimir_S]

Черт возьми, Павля - и Вы туда же! Да когда же вы, студенты, поймете, что е(в степени х) это exp(x), и НИКАКИХ в этом случае множителей ln(e) НЕ НУЖНО! Ибо ln(e) ПО ОПРЕДЕЛЕНИЮ есть ТОЖДЕСТВЕННАЯ ЕДИНИЦА! Выбросьте Вы их, чтобы глаза не мозолили!
Таким образом (извините, не проверял, если что - завтра проверю):

uses crt;
var
  x,y,z:real;
function t(a,b:real):real;
begin
  t:=sin(a)*sin(a)+exp(2*a)+exp(2*b);
end;
begin
 clrscr;
 writeln('vvedite x,y');
 readln(x,y);
 z:=t(1.2,y)+t(y,x)-t(2*x-1,x*y);
 writeln('z= ',z);
 readln;
end.

Если функция не годится, а надо непременно с процедурой, то так:

uses crt;
var
  x,y,z1,z2,z3:real;
procedure tr(a,b:real; var t:real);
begin
  t:=sin(a)*sin(a)+exp(2*a)+exp(2*b);
end;
begin
 clrscr;
 writeln('vvedite x,y');
 readln(x,y);
 tr(1.2,y,z1);
 tr(y,x,z2);
 tr(2*x-1,x*y,z3);
 writeln('z= ',z1+z2-z3);
 readln;
end.

 

[павля]

уважаемый Владимир....С П А С И Б О Вам О Г Р О М Н О Е:tehnari_ru_203:
большое человеческое С П А С И Б О...