Вычислить значение функции

@Карина 1578 · Регистрация: 13.12.2011

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

С входным и выходным параметром.

Pascal

var  Z,F1,F2,F3,F4,F5,F6: real;
procedure  piop(x,F:real);
begin
F:=(1+sqr(cos(x)))/ABS(exp(3*ln(x)-2));
end;
begin
piop (1,F1);
piop (6,F2);
piop (1.1,F3);
piop (0.01,F4);
piop (1,F5);
piop (5 ,F6);
Z:=(F1+17*sqrt(F2))/(1-exp(15*ln(F3)))*((cos(F4)/sin(F4)))-((3*sqrt((cos(F5)/sin(F5))/(F6))));
writeln('Z=',Z);
end.

@urukhi1 · 27.12.2011, 18:51

Pascal

var Z,F1,F2,F3,F4,F5,F6: real;
procedure piop([COLOR="Red"]x:real;var F:real[/COLOR]);
begin
F:=(1+sqr(cos(x)))/ABS(exp(3*ln(x)-2));
end;
begin
piop (1,F1);
piop (6,F2);
piop (1.1,F3);
piop (0.01,F4);
piop (1,F5);
piop (5 ,F6);
Z:=(F1+17*sqrt(F2))/(1-exp(15*ln(F3)))*((cos(F4)/sin(F4)))-((3*sqrt((cos(F5)/sin(F5))/(F6))));
writeln('Z=',Z);
end.

@Карина 1578 · 27.12.2011, 19:10 **[ТС]**

Спасибо большое!!!)

@Карина 1578 0 / 0 / 0 Регистрация: 13.12.2011 Сообщений: 19
	27.12.2011, 19:10 [ТС]	3
	Спасибо большое!!!) 0

Опции темы