Главное меню  

   

Авторизация  

   
   
Хостинг в Украине
   


49.9%Russian Federation Russian Federation
24.5%Ukraine Ukraine
14.6%United States United States
1.9%Belarus Belarus
1.1%Romania Romania
0.8%Kazakhstan Kazakhstan
0.8%Czech Republic Czech Republic
0.7%United Kingdom United Kingdom
0.6%Republic Of Moldova Republic Of Moldova
0.6%Kuwait Kuwait

Сегодня: 46
Вчера: 315
На этой неделе: 1912
На прошлой неделе: 2232
В этом месяце: 6384
В прошлом месяце: 6131
Всего: 19365


   

Учитель информатики Бамбуркин С.П.

Записи

  • Главная
    Главная Страница отображения всех блогов сайта
  • Категории
    Категории Страница отображения списка категорий системы блогов сайта.

Программирование циклических алгоритмов

Добавлено : Дата: в разделе: 10 класс

Циклы с заданным числом повторений

Вычислить значение суммы или произведения числовой последовательности.

1. Дано натуральное число N. Вычислить :

S=1+1/2+1/3+1/4+...+1/N

program rabota_3_4_1;
var i,s,n: real;
begin
writeln('Введите N');//Выводим на экран сообщение "Введите N"
readln (N);// Вводим произвольное целое число
i:=1; // Значение дробной части слагаемого
s:=0; //Значение сумма
while i<n do // условие для выполнения цикла пока i меньше произвольного целого число (n)
begin // начало цикла
s:=s+(1/i); // сумма увеличивается
i:=i+1; // дробная часть слагаемого увеличивается на 1
end; // конец цикла
writeln(сумма = , s); //вывод суммы
end. // конец программы

3. Дано натуральное число N. Вычислить :

image002

program rabota_3_4_3;
var i,n,k,z: integer;
s:real;
Begin
Write('Введите N');
Read(n);
z:=1;s:=1;k:=1;
for i:=1 to n do
begin
k:=k*2;
z:=-z;
s:=s+ z*1/k;
end;
write('s=',s:5:6);
end.

3. Дано натуральное число N. Вычислить :

image004

program rabota_3_4_4;
var i,n: integer;
s,k:real;
Begin
Write('Введите N');
Read(n);
for i:=1 to n do
begin
k:=k+sin(i);
s:=s+1/k;
end;
write('s=',s:5:6);
end.

Редактировалось Дата:

Добавить комментарий


Защитный код
Обновить

   
© 2012 fordus.