Информатика на пять О нас
 Добавить в избранное
5byte.ru
 Теория
 8 класс
 9 класс
 10 класс
 11 класс
Задания
 8 класс
 9 класс
 10 класс
 11 класс
Книги
Тесты
ЕГЭ
Turbo Pascal 7
 Описание
 Задачи
HTML
Рефераты

Задача 19.

Составить программу вычисления значения выражения y=1+1/2+1/3+... +1/20.

{В данном случае целесообразно организовать цикл с параметром, изменяющимся от 1 до 20, то есть шаг изменения параметра равен +1. Обозначим: у - очередное значение суммы дробей; n - параметр цикла. Учитывая это, составим программу: }


program prim1;
  uses crt;
  var n: integer;
      y: real;
begin
  clrscr;
{Задаем начальное значение, равное нулю.}
  y:=0;
{Организовываем цикл с параметром от 1 до 20.}
  for n:=1 to 20 do
    begin
{Находим очередную сумму.}
      y:=y+1/n;
{Выводим на экран очередную сумму.}
      writeln('y=',y);
    end.;
end.





 У Вас есть материал пишите нам
 
    Copyright © 2008    
  Top.Mail.Ru