Ответы
Ответ дал:
0
Выполнено в PascalABC.Net 3.2, но в Дельфи тоже будет работать, как консольное приложение (если не отрежете директиву {$APPTYPE CONSOLE} )
program MyProject;
{$APPTYPE CONSOLE}
var
x,y:real;
i,n:integer;
begin
Write('n='); Readln(n);
x:=0;
while x<=10.1 do begin
y:=0;
for i:=1 to n do y:=y+cos(i*x);
Writeln(x:4:1, y:15:8);
x:=x+0.5
end;
end.
Результат
n=20
0.0 20.00000000
0.5 -1.98481543
1.0 0.53960857
1.5 -0.95316377
2.0 -0.59425320
2.5 -0.06110708
3.0 -0.98701429
3.5 -0.25343437
4.0 -0.32776330
4.5 -1.08491874
5.0 0.27008214
5.5 -0.94593719
6.0 -2.12947656
6.5 -4.95669330
7.0 0.70952519
7.5 -0.66352911
8.0 -0.89305683
8.5 0.05538722
9.0 -0.88561081
9.5 -0.48561955
10.0 -0.12723985
program MyProject;
{$APPTYPE CONSOLE}
var
x,y:real;
i,n:integer;
begin
Write('n='); Readln(n);
x:=0;
while x<=10.1 do begin
y:=0;
for i:=1 to n do y:=y+cos(i*x);
Writeln(x:4:1, y:15:8);
x:=x+0.5
end;
end.
Результат
n=20
0.0 20.00000000
0.5 -1.98481543
1.0 0.53960857
1.5 -0.95316377
2.0 -0.59425320
2.5 -0.06110708
3.0 -0.98701429
3.5 -0.25343437
4.0 -0.32776330
4.5 -1.08491874
5.0 0.27008214
5.5 -0.94593719
6.0 -2.12947656
6.5 -4.95669330
7.0 0.70952519
7.5 -0.66352911
8.0 -0.89305683
8.5 0.05538722
9.0 -0.88561081
9.5 -0.48561955
10.0 -0.12723985
Вас заинтересует
1 год назад
1 год назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад