Вычислить: sin x+sin 2x+sin 3x+.... (n слагаемых )

Знания

Информатика

1 ответ:

uljashka234 года назад

0 0

Var
   n:integer;
   S,x:real;
Begin
Write('x = ');
ReadLn(x);
Write('n = ');
ReadLn(n);
S:=0;
For n:= 1 to n do
    S:=S+Sin(n*x);
WriteLn('S = ',S)
End.

Читайте также

Решение через Turbo Pascal

dimchik15 [14]

Program e1;
var
x, y: real;
begin
writeln('Введите х');
readln(x);
if x < 5 then y := (4 * sqr(x) + 1) / (-5)
else y := 3 * sqr(x) - 2;
writeln('y=', y)
end.
--------------------------------------------
program e2;
var
x, y: real;
begin
writeln('Введите х');
readln(x);
if x > -4 then y := (5 * sqr(x) + 2) / (x + 4)
else y := 3 * sqr(x) + 7;
writeln('y=', y)
end.

У меня нет Турбо Паскаля, вставьте там в начале, как всегда пишете директиву uses Crt

0 0

4 года назад

Помогите решить задачу по информатике Файл 1Мбайт передаётся по сети со скоростью 1024 бит/сек.Определить время передачи файла в

роксис [12]

1 Мбайт = 1024 Кбайт = 1024*1024 байт = 1024*1024*8 бит
Время передачи файла = 1024*1024*8 / 1024 = 1024*8 с = 8192 с

0 0

4 года назад

На с++ с циклом whiteВывести на экран числа от A до B в порядке возрастания.Формат входных данныхВводятся два целых числа А и В

unjere4 [50]

#include <bits/stdc++.h>
using namespace std;

int main() {
int a, b;
cin >> a >> b;
int x = a;
while (x <= b) {
cout << x << endl;
++x;
}
return 0;
}

//Запасной вариант
#include <bits/stdc++.h>
using namespace std;

int main() {
int a, b;
cin >> a >> b;
if (a > b) {
int z = a;
a = b;
b = z;
}
int x = a;
while (x <= b) {
cout << x << endl;
++x;
}
return 0;
}

0 0

4 года назад

Составьте анаграммы: Масло - Соринка -

zlossevera

Масло-Масол
Соринка-росинка

0 0

4 года назад

В таблице приведены запросы и количество страниц, которые нашел поисковый сервер по этим запросам в некотором сегменте Интернета

Medov

Маркиза везде сокращаем и по формуле 320+575-55=840

0 0

1 год назад