| ← Октябрь 2019 → | ||||||
|
1
|
2
|
3
|
4
|
5
|
||
|---|---|---|---|---|---|---|
|
8
|
9
|
10
|
11
|
12
|
||
|
16
|
17
|
18
|
19
|
|||
|
23
|
24
|
25
|
26
|
27
|
||
|
31
|
||||||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Консультация # 196785: Здравствуйте! У меня возникли сложности с таким вопросом: задача в скриншоте . ... Здравствуйте! У меня возникли сложности с таким вопросом:
Дата отправки: 24.10.2019, 19:46 Консультирует puporev (Профессионал): Здравствуйте, rail! Код (Pascal) :: выделить код var k,i:integer;
n,s:real;
begin
write('Введите число n=');
readln(n);
write('Введите количество слагаемых');
readln(k);
s:=0;
for i:=0 to k do
s:=s+sqr(n+i);
write('Сумма=',s:0:2);
end.
Здравствуйте! У меня возникли сложности с таким вопросом:
Дата отправки: 24.10.2019, 19:57 Консультирует Зенченко Константин Николаевич (Старший модератор): Здравствуйте, rail! Код (Pascal) :: выделить код type
f=function(a:real):real;
var
a:integer;
d,x,y:real;
z:f;
function f3(a:real):real;
begin
f3:=a*a*a;
end;
{$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(x)-exp(-x))/2
end;
{$f-}
begin
write('enter x:');
readln(x);
Write('enter y:');
readln(y);
repeat
write('select function 1: sqr(x); 2: sh(x) 3: exp(x):');
readln(a);
until a in [1..3];
case a of
1:z:=f2;
2:z:=fs;
3:z:=fe;
end;
if x>y then d:=f3(z(x-y))+arctan(z(x)){*** x>y}
else if x<y then d:=f3(y-z(x))-arctan(z(x)){*** y<x}
else d:=f3(y+z(x))+0.5;
write('d=',d:0:9)
end.Использован процедурный тип, для определения функций. Не соответсвия в условии задания отмечены в комментариях ***. Удачи!
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
