RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
 ...Консультация # 197200: Здравствуйте! У меня возникли сложности с таким вопросом:  Записать в Pascale....Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос: записать в Pascale
Дата отправки: 24.11.2019, 21:33 Консультирует puporev (Профессионал): Здравствуйте, JonMoxley! Код (Pascal) :: выделить код const x=3.251;
y=0.325;
z=0.466e-4;
var c:real;
begin
c:=power(2,power(y,x))+power(power(3,x),y)-y*(arctan(z)-pi/6)/(abs(x)+1/(y*y+1));
write('c=',c:0:4)
end.
Здравствуйте! У меня возникли сложности с таким вопросом:
Дата отправки: 25.11.2019, 15:43 Консультирует Зенченко Константин Николаевич (Старший модератор): Здравствуйте, JonMoxley! Код (Pascal) :: выделить код type
f=function(a:real):real;
{$F+}
function f2(a:real):real;
begin
f2:=a*a
end;
function fe(a:real):real;
begin
fe:=exp(a)
end;
function fs(a:real):real;
begin
fs:=(exp(a)-exp(a))/2
end;
{$F-}
function fmin(a,b:real):real;
begin
if a>b then fmin:=b
else fmin:=a
end;
var
a:integer;
b:f;
x,y,z:real;
begin
write('Enter X:=');readln(x);
write('Enter Y:=');readln(y);
write('Enter Z:=');readln(z);
repeat
write('select function:',#10,#13,'1-x^2',#10,#13,'2-sh(x)',#10,#13,'3-e^x');
readln(a);
until a in[1..3];
case a of
1:b:=f2;
2:b:=fs;
3:b:=fe;
end;
if fmin(b(x),y)<>0then writeln('Result:=',fmin(b(x)+y,y-z)/fmin(b(x),y))
else writeln('Result - undefined')
end.Удачи!
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
