| ← Декабрь 2019 → | ||||||
|
3
|
4
|
5
|
||||
|
9
|
10
|
11
|
12
|
15
|
||
|
16
|
19
|
20
|
21
|
22
|
||
|
23
|
26
|
28
|
29
|
|||
|
30
|
31
|
|||||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
задачу решить на PascalABC.NET
Дата отправки: 03.12.2019, 09:18 Консультирует Зенченко Константин Николаевич (Старший модератор): Здравствуйте, 1627PY52838s! Код (Pascal) :: выделить код type
tFunction=function(a:real):real;
var
f:tFunction;
j:integer;
begin
write('X:=');
var x:=ReadReal;
write('I:=');
var i:=readInteger;
repeat
write('select funtion:',#10,'1 - x^2;',#10,'2 - sh(x);',#10,'3 - E^x.');
j:=ReadInteger;
until j in [1..3];
case j of
1:f:=sqr;
2:f:=sinh;
3:f:=exp;
end;
if odd(i)and(x>0)then begin j:=1;i:=1 end
else if not odd(i)and(x<0)then begin j:=112;i:=1 end
else j:=2;
writeln('result:=',power(abs(i*f(x)),1/j));
end.Удачи!
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
