Подпрограмма процедура

LenaKomerzan

Пусть дано описание
type z=record
       x,y: real;
end;
Написать программу, которая с помощью подпрограммы процедуры находит значение выражения: d= sin^2*x + 2*cosy^2
1 ответ

LenaKomerzan

uses crt;
type z=record
       x,y:real;
       end;
function d(w:z):real;
begin
d:=sqr(sin(w.x)+2*cos(sqr(w.y)))
end;
var a:z;
begin
clrscr;
writeln('Введите значения x,y');
readln(a.x,a.y);
write('d=',d(a):0:3);
readln
end.