Вычисление сумм и произведений с использованием операторов цикла - Turbo Pascal

  1. Доброго дня! В связи с тем, что я запуталась с прошлой темой (не могу найти правку сообщения), пишу снова, только теперь грамотней) Помогите пожалуйста с Паскалем))) Вычисление сумм и произведений с использованием операторов цикла. Составить алгоритм(блок-схему) и текст программы для вычисления при Si=1cos(y^2i)1/(4i!+1) . Сделать распределение памяти (таблицу идентификаторов) и комментарии. Преобразовать формулы к виду удобному для программирования. Возведение в положительную степень выполнять с помощью сотношения ab=ln(b*exp(a)). Спасибо тем, кто откликнется!)


textual

Код:

Var s,f,y,x:real;
    i,n,j,t:byte;
Begin
    write('Введите n: ');readln(n);
    write('Введите x: ');readln(x);
    write('Введите y: ');readln(y);
    s:=0;f:=1;t:=1;
    For i:=1 to n do
    Begin
      For j:=t to 2*i-1 do //подсчёт факториала
       f:=f*j;
      t:=j;
      s:=s+sin(x+y/i)/f;
    End;
    writeln('F = ',s:0:2);
    readln;
End.


Похожие ответы
  1. Дана матрица 7x7. Определить суммы всех элементов матрицы, лежащих на диагоналях. Помогите сделать, пожалуйста! Заранее спасибо ОГРОМНОЕ!

  1. Вычислить сумму ряда: S = √2d+√3d+√4d+…+√15d

  1. Ввести с клавиатуры одномерный массив из 5 чисел , подсчитать сумму элементов больше нуля и вывести результат на экран монитора.

  1. Ввести с клавиатуры двумерный массив из 9 чисел, подсчитать сумму элементов всего массива

  1. 1.Составить программу вычисления суммы квадратов чётных чисел из промежутка [a,b].

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

  1. помогите пожалуйста написать программу,которая найдет все натуральные числа,меньше чем MAXINT, такие ,что они равны сумме факториалов цифр,из которых состоят. пример: 145=1!+4!+5!

  1. Дано натуральное число n, входной поток данных: действительные числа a1,a2,a3, ... , aN. Получите удвоенную сумму всех положительных членов входного потока данных a1,a2,a3, ... , aN. Составьте код программы и блок-схему.

  1. Дан произвольный одномерный массив (элементы вводятся с клавиатуры). Формирование элементов массива, обработку и если нужно вывод массива оформить отдельными подпрограммами. Вычислить сумму нечетных элементов, а все остальнве удвоить.

  1. Сформировать одномерный массив из сумм квадратов элементов каждого столбца матрицы. Все что находил все было не рабочим, помогите пожалуйста все-таки ее решить)