Составить программу для вычисления величины 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.

Объяснение кода листинга программы

  1. Создаются переменные b и z, которые являются массивами real.
  2. Создаются переменные i и k, которые являются целыми числами.
  3. Создается переменная s1, которая является числом real и инициализируется значением 0.
  4. Создается переменная s2, которая является числом real и инициализируется значением 0.
  5. Создается переменная p, которая является числом real и инициализируется значением 1.
  6. Выводится сообщение с просьбой ввести 10 чисел для массива b через пробел.
  7. Для каждого введенного числа (от 1 до 10) выполняется следующее:
    • Число считывается в переменную b[i].
    • Сумма s1 и s2 увеличивается на значение b[i].
    • Квадрат числа b[i] добавляется к значению s2.
  8. Выводится сообщение с просьбой ввести 15 чисел для массива z через пробел.
  9. Для каждого введенного числа (от 1 до 15) выполняется следующее:
    • Число считывается в переменную z[k].
    • Переменная p инициализируется произведением sin(z[k]) и текущего значения p.
  10. Вычисляется значение s1 как суммы s1, cos(s2) и 1, деленной на значение p.
  11. Выводится значение s1.
  12. Если значение p равно нулю, выводится сообщение S не определено.
  13. Иначе, вычисляется значение s как суммы s1, cos(s2) и 1, деленной на значение p.
  14. Выводится значение s.

Оцени полезность:

12   голосов , оценка 4 из 5
Похожие ответы