Добавил:
student_tipo
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:лабораторная работа / лаба 8
.txt program func;
var x: integer; s: real;
function f (a, b, c: integer): real;
begin
f:=(a/b);
a:=sqrt(sqr(x)+sqr(x)*x);
b:=sqrt(1/sqr(x)+1/(3*exp(x));
end;
begin
read (x);
s:=(2*exp(f))+(3*exp(f));
write (‘s=’, s : 6 : 3);
end.
var x: integer; s: real;
function f (a, b, c: integer): real;
begin
f:=(a/b);
a:=sqrt(sqr(x)+sqr(x)*x);
b:=sqrt(1/sqr(x)+1/(3*exp(x));
end;
begin
read (x);
s:=(2*exp(f))+(3*exp(f));
write (‘s=’, s : 6 : 3);
end.
Соседние файлы в папке лабораторная работа