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

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


textual

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

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.

СДЕЛАЙТЕ РЕПОСТ

9   голосов, оценка 3.889 из 5



Похожие ответы
  1. Здравствуйте,помогите пожалуйста написать код.В городе Новые Васюки на некоторых дорогах введено одностороннее движение. Схема дорог задана в виде весовой матрицы графа, числа обозначают длины дорог. Если длины дорог из пункта А в пункт Б разные, это означает, что есть две разные дороги. Найдите отдельно количество дорог в Новых Васюках с односторонним и двусторонним движением. Входные данные В первой строке вводится количество перекрёстков в Новых Васюках N ( 1 ≤ N ≤ 1000 ). В следующих N строках записано по N чисел, разделённых пробелами – длины дорог между каждой парой перекрёстков. Ноль означает, что дороги между этими перекрёстками нет. Выходные данные Программа должна вывести два числа в одной строке, разделив их пробелом: сначала количество дорог с односторонним движением, потом – количество дорог с двусторонним движением. Примеры входные данные 5 0 2 3 4 0 2 0 5 0 7 3 6 0 8 0 0 0 0 0 0 0 7 0 9 0 выходные данные 5 3

  1. Доброго времени суток! Крайне необходима помощь экспертов в Pascal Вот задания: 4. Какое минимальное число букв необходимо заменить в слове Х, с тем, чтобы оно стало перевертышем?   Во всех нужно написать свои ф-ции... Если возможно написать коды как можно более простым языком - буду весьма признателен! Заранее благодарю за любую помощь!

  1. Из квадратного листа картона вырезается коробка. Определить, какова должна быть сторона вырезаемого квадрата, чтобы коробка имела наибольшую вместимость.

  1. В примере дан x с индексом i как его записать в паскале? желательно весь пример, чтобы наглядно увидеть как оно выглядит в целом уравненииВыражениеx1hУсловиеЗначение y11x ≤ 11703.9324

  1. Последовательность [a][/n] строится так: [a][/1]=1, [a][/2]=3,…., [a][/n] =[a][/n-2] -[2a][/n-1] для каждого n>2. Найти первые 5 членов последовательности, кратные 3.

  1. Помогите с решением, пожалуйста! Если не трудно, то с объяснением В заданный непустой текст входят только цифры и буквы. Длина текста не более 12 символов. Определить, удовлетворяется ли следующее свойство: Текст совпадает с каким-то отрезком ряда abc…xyz (например: klmnop);

  1. Помогите, кто может, пожалуйста. С клавиатуры вводятся любые числа. Определить, каким по счёту будет первое отрицательное число. Окончание ввода по нулю.

  1. Как обратиться из модуля к записе, которая определена в программе? Например, есть такой код основной программы:

  1. Даны два предложения в которых имеется буква S. Найти в каком из них эта буква имеет большой порядковый номер. При счете от начала предложения. Если в предложении имеется несколько таких букв то нужно учитывать последнюю из них. Решив задачу определить функции в модуле. Паскаль. С помощью модуля и функции. (Заранее спасибо!)