БОЛЬШОЕ СПАСИБО программа работает. Теперь надо записать эту программу (полной форме условного оператора через процедуры. Поместить 2 функции из первой задачи имена формально разные, имена одинаковые). Вот первая задача
| Код |
Program Z1;
Uses CRT;
var x,a,b,d: real;
begin
Clrscr;
writeln ('введите x,a,b');
readln (x,a,b);
if (x>2) and (x<4.81) and (a=0.999) then begin
d:=(arctan(sqrt(abs(x)))+x*x)/(ln(2*x))+(exp(abs(-x-5)))+(3*0.999-0.2);
writeln (d);
end
else writeln ('нет решения');
if (a<b) and (a>x) then begin
d:=(sin(6*a)*sin(6*a)+8*sin(b*b*b)/cos(b*b*b)-5/(a*b*x)*exp(a)*ln(3.82));
writeln (d);
end
else writeln ('нет решения');
Delay (5000);
end.
|
Кто-нибудь знаете как это делать? Заранее спасибо.
|