Даны натуральное n, действительное x. Вычислить: (вложено изображение) На языке Pascal.
10-11 класс
|
Программа на языке Pascal представлена ниже.
Program Vichysleniya;
Uses
Crt;
Var
n: 1..100; {Здесь задаётися интервал для натурального n, можете взять больше ста, это уж как угодно вам}
X, S: real;
i: byte;
begin
ClrScr;
WriteLn('Введите n:');
ReadLn(n);
WriteLn('Введите x:');
ReadLn(x);
S := Sin(x);
for i := 1 to n do
S := S + Sin(S);
WriteLn('Ответ:'#10#13, S : 3: 2);
ReadKey;
end.
Другие вопросы из категории
на первом экзамене. подсчитать, сколько человек не допущено ко второму экзамену .В Turbopascal
движется с постоянной скоростью. Почему?
Читайте также
2.дано натурально число N вычислить куб суммы этого числа
0,если их несколько то номер крайней правой.
2) Дано натуральное число. Определить сумму m его последних цифр
3)Дано натуральное число. определить его максимальную цифру.
4) дано предложение. заменить в нем все вхождения под строку str1 на подстроку str2
5) последовательность чисел Фибоначчи образуется так: первый и второй член последовательности равен 1, каждый следующий равен сумме двух предыдущих(1,1,2,3,5,,8,12..) Дано натуральное число n>=3 : а) найти k-й член последовательности б)получить первые n членов последовательности в)для заданного n определить верно ли,что сумма первых n членов есть четное число
a) найти произведение цифр числа б) верно ли, что в данном числе нет данной цифры А (цифру А вводить с клавиатуры)
2. Найти все трехзначные числа, которые при увеличении на 1 делятся на 2, при увеличении на 2 делятся на 3, при увеличении на 3 делятся на 4, а при увеличении на 4 делятся на 5.
3.Из данного натурального числа удалить все цифры А (а вводятся с клавиатуры).
Написать программы в паскале и желательно блок-схему, но можно и без нее.
Помогите пожалуйста)
вывести значения вводимых исходных данных и полученные результаты,
сопровождая их именами переменных. Значения аргумента взять из
указанного диапазона так, чтобы протестировать все ветви программы.