Составить программу для вычисления величины S по формуле - Pascal ABC (14388)
Формулировка задачи:
Составить программу для вычисления величины S по формуле:
Код программы:
Здесь нужно выполнять проверку знаменателя на то что он не равен нулю?
Ой, только там не сумма косинусов, а косинус суммы. Наверное код должен быть таким:
Да и тут опять ошибся. Сумма квадратов, а не произведение
Решение задачи: «Составить программу для вычисления величины S по формуле»
textual
Листинг программы
var b : array[1..10] of real; z : array[1..15] of real; i,k : integer; s1,s2,p,s : real; begin s1 := 0; s2 := 0;//сумма=0 p := 1; writeln('Через пробел введите 10-ть чисел для массива b: '); for i := 1 to 10 do begin read(b[i]); s1:=s1+b[i]; s2:=s2+sqr(b[i]) end; writeln('Через пробел введите 15-ть чисел для массива z: '); for k:=1 to 15 do begin read(z[k]); p:=p*sin(z[k]); end; writeln('s1 = ',s1:0:2); writeln('s2 = ',s2:0:2); writeln('p = ',p:0:8);//может оказаьбся очень маленьким if p=0 then write('S не определено') else begin s:=(s1+cos(s2)+1)/p; writeln('S = ',s:4:2); end; end.
Объяснение кода листинга программы
- Создаются переменные b и z, которые являются массивами real.
- Создаются переменные i и k, которые являются целыми числами.
- Создается переменная s1, которая является числом real и инициализируется значением 0.
- Создается переменная s2, которая является числом real и инициализируется значением 0.
- Создается переменная p, которая является числом real и инициализируется значением 1.
- Выводится сообщение с просьбой ввести 10 чисел для массива b через пробел.
- Для каждого введенного числа (от 1 до 10) выполняется следующее:
- Число считывается в переменную b[i].
- Сумма s1 и s2 увеличивается на значение b[i].
- Квадрат числа b[i] добавляется к значению s2.
- Выводится сообщение с просьбой ввести 15 чисел для массива z через пробел.
- Для каждого введенного числа (от 1 до 15) выполняется следующее:
- Число считывается в переменную z[k].
- Переменная p инициализируется произведением sin(z[k]) и текущего значения p.
- Вычисляется значение s1 как суммы s1, cos(s2) и 1, деленной на значение p.
- Выводится значение s1.
- Если значение p равно нулю, выводится сообщение
S не определено
. - Иначе, вычисляется значение s как суммы s1, cos(s2) и 1, деленной на значение p.
- Выводится значение s.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д