Программа, вычисляющая сумму членов ряда

  • Карточки-задания
  • docx
  • 10.05.2017
Публикация на сайте для учителей

Публикация педагогических разработок

Бесплатное участие. Свидетельство автора сразу.
Мгновенные 10 документов в портфолио.

Вот часть работы Программа, вычисляющая сумму членов ряда: S=1+1/2+1/3+1/4... пока очередное слагаемое 1/n >0,01. а) открыть новый файл и набрать текст программы: PROGRAM P7; VAR n:INTEGER; S:REAL; BEGIN S:=0; n:=1; WHILE 1/n>0.01 DO BEGIN S:=S+1/n; n:=n+1; END; WRITELN(‘Сумма =’, S); END. б) выполнить программу щелчком по соответствующей кнопке меню или клавишей F9;
Иконка файла материала Документ Microsoft Office Word.docx
Программа, вычисляющая сумму членов ряда: S=1+1/2+1/3+1/4... пока очередное слагаемое 1/n >0,01. ЗАДАНИЕ 7 а) открыть новый файл и набрать текст программы: PROGRAM P7; VAR n:INTEGER; S:REAL; BEGIN S:=0; n:=1; WHILE 1/n>0.01 DO BEGIN S:=S+1/n; n:=n+1; END;  WRITELN(‘Сумма =’, S); END. б) выполнить программу щелчком по соответствующей кнопке меню  или клавишей F9; (Тест: при n=1 результат: 5.17737751763962)