Не понимаю как составить программу вычисления суммы и произведения ряда sin1, sin2, sin3, ., sinN - Pascal

  1. Составить программу вычисления суммы и произведения ряда sin1, sin2, sin3, ..., sinN Задачу мне нужно решить 3-мя способами: с параметром, цикл-пока, цикл-до.

textual

Код:

var i,n:integer;
    s,p:real;
begin
n:=10;
s:=0;
p:=1;
for i:=1 to n do
 begin
  s:=s+sin(i);
  p:=p*sin(i);
 end;
writeln('Цикл с параметром');
writeln('s=',s:0:4);
writeln('p=',p:0:4);
writeln('-------------');
writeln('Цикл с предусловием');
s:=0;
p:=1;
i:=1;
while i<=n do
 begin
  s:=s+sin(i);
  p:=p*sin(i);
  i:=i+1;
 end;
writeln('s=',s:0:4);
writeln('p=',p:0:4);
writeln('-------------');
writeln('Цикл с постусловием');
s:=0;
p:=1;
i:=1;
repeat
 s:=s+sin(i);
 p:=p*sin(i);
 i:=i+1;
until i>n;
writeln('s=',s:0:4);
writeln('p=',p:0:4);
end.

Похожие ответы
  1. В одномерном массиве, состоящем из n вещественных элементов, вычислить произведение элементов массива, расположенных перед максимальным по модулю элементом

  1. Срочно нужно для экзамена, хелп(PASCAL ABC) Составить программу, организующую работу с пользователем в диалоговом режиме: программа запрашивает слово, начинающиеся на определенную букву, проверяет правильность ввода такого слова и выводит следующий запрос. Окончание работы – ввод пустой строки. Программа также должна подсчитать количество правильных ответов и выводить, сколько баллов набрал пользователь и количество попыток.

  1. 1. Найти высоту треугольника, зная его площадь и сторону, к которой эта высота проведена. 2. Купили полкилограмма масла, S граммов сыра, М кг муки и В кг К граммов конфет. Определить вес всех покупок в килограммах. Заранее благодарю.

  1. Составить программу, которая определяет, является ли заданное натуральное число палиндромом. не через массив

  1. ребят,помогите 1. Составить программу для подсчёта среднего арифметического элементов, расположенных на главной и побочной диагоналях в квадратной целочисленной матрице X размером N×N. Сформировать матрицу с помощью генератора случайных чисел и организовать её вывод на экран. 2. Дана прямоугольная матрица В размером N×M. Составить программу, которая преобразует матрицу следующим образом: поэлементно вычитает первый столбец из всех столбцов, кроме первого.

  1. ((( Определить, есть в массиве числа, превосходящие сумму всех элементов массива

  1. Всем доброго вечера. Мне надо вывести знаки арифметических операций и знаки препинания на экран с помощью типа данных Set of. Объясните пожалуйста как это можно сделать.

  1. Разработать и откомпилировать модуль, содержащии основные операции обработки одномерных массивов (ввод, нахождение среднего значения, нахождение максимального и минимального элементов, сортировку). Используя этот модуль выполнить перечисленные действия с двумя одномерными массивами разного размера.

  1. Задание 5. Написать программу с процедурой: а) Написать процедуру для расчета факториала данного числа. Вывести на экран значение n!. б) Вычислить Z=(v1+v2+v3)/3, где v1, v2, v3 - объемы шаров с радиусами r1, r2, r3 соответственно. Написать процедуру, подсчитывающую объем шара.


Нашли ошибку?
Развитие проекта
Яндекс.Метрика