Вот часть работы
Программа, вычисляющая сумму членов ряда:
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)
Программа, вычисляющая сумму членов ряда
Материалы на данной страницы взяты из открытых истончиков либо размещены пользователем в соответствии с договором-офертой сайта. Вы можете сообщить о нарушении.