89

Паскаль, 10 класс. Прошу срочно помочь. Заранее спасибо! Задача №1: Используя…

07 марта 2023

Паскаль, 10 класс. Прошу срочно помочь. Заранее спасибо! Задача №1: Используя операторы цикла, рассчитать сумму ряда для значений x=0,5; 0,55; 0,6; 0,65; 0,7; 0,75. Включать в сумму члены ряда, большие или равные значению eps=0,00001. Проверить правильность вычислений для контрольной точки x=0,5. Сравнить полученные значения со значениями, рассчитанными по точному аналитическому выражению.2x3 (куб) /3-2x5/15+2x7/35-… +(-1) k+1*2x (2k+1) /4k2-1+… , f (x)=(1+x2) arctgx-x, f (0,5)=0,07955. Задача №2: Вводится последовательность целых чисел, по абсолютной величине меньших или равных 100. Найти и вывести на печать количество отрицательных чисел и среднее арифметическое значение всех чисел, расположенных после первого нулевого элемента.

категория: информатика



82

Program project1; usescrt,math; constn=10; var s: real; i,f,m: byte; a: array [1… 10] of real; begin m: =0; for i: =1 to n do begin writeln ('vvedite ',i,' cifru'); readln (a[i]); end; for i: =1 to n do begin if a[i]<0 then inc (f); end; for i: =1 to n do begin if a[i]=0 then inc (m); if m<>0 then s: =s+a[i]; end; writeln ('kolichestvo otricatelnih: ',f: 2); writeln ('summa vseh posle 0: ',s: 2:2); readln; end.

Знаете ответ?


Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...