Написать программу вычисления суммы S=x-(x/2)^2+(x/3)^3-(x/4)^4+. (n членов). Моя попытка решить данную задачу не увенчалась успехом:
Program test; var i,n,k,b:integer; x,s,z,m,v:real; begin write (‘Введите кол-во членов ряда: ‘); readln (n); write (‘Введите X: ‘); readln (x); k:=-1; s:=x; v:=x; for i:=2 to n-1 do begin for b:=1 to i do z:=i*i; v:=x*v; m:=v/z; s:=s+m*k; end; write (‘Сумма =:’, s:5:2); end.
Код к задаче: «Написать программу вычисления суммы»
Листинг программы
var i,n:integer; x,s,v:real; begin write (‘Введите кол-во членов ряда: ‘); readln (n); write (‘Введите X: ‘); readln (x); v:=x;//первый член s:=x; //первая сумма for i:=2 to n do begin v:=-v*x;//меняем знак и домножаем на х s:=s+v/i;//делим на индекс и прибавляем end; writeln(‘Сумма =’,s:0:4); // при |x|
Источник: studassistent.ru
Урок 22. Сумма элементов массива
При работе с элементами одномерного массива можно выделить несколько видов подзадач. Алгоритмы для решения этих подзадач необходимо знать.
[pascal] написать программу, вычисляющую сумму ряда
На этом уроке рассмотрим алгоритмы для нахождения суммы (или произведения) элементов одномерного массива. Здесь могут быть различные модификации — найти сумму элементов с заданным свойством.
Пример 1. Найти сумму элементов массива.
Воспользуемся написанными ранее процедурами для ввода и вывода массива. Массив заполним случайными числами.
Добавим функцию Sum для нахождения суммы элементов массива. В алгоритме переменная i — является счетчиком элементов массива, s — сумма элементов массива, она вычисляется по реккурентной формуле s = s+m(i).
Обработка элементов массива производится в цикле. Перед циклом сумме присваивается начальное значение равное нулю: sum := 0. В теле цикла записывается рабочая формула для накопления суммы: s := s + m[i].
Текст функции получится таким:
Function Sum(m: myarray): Integer; Var i, s : Integer; Begin sum:=0; For i:=1 To n Do s:=s+m[i]; sum:=s; End;
Составим программу. В ней воспользуемся для заполнения массива процедурой Init2, которая заполняет массив случайными числами из заданного интервала.
Program primer_1; Const n = 30; Type myarray = Array [1. n] Of Integer; Var C : myarray; s : Integer; Procedure Init2(a,b: integer; Var m : myarray); . Function Sum(m: myarray): Integer; . Begin Init2(-25, 25, C); s:=Sum(C); Writeln (‘Их сумма равна ‘,s); Readln; End.
Для нахождения произведение элементов массива, переменной P перед циклом присваиваем начальное значение равное 1: P:= 1. В теле цикла ставится рабочая рекуррентная формула для нахождения произведения: P:= P* C[i].
Пример 2. Найти сумму элементов массива, кратных заданному числу Решение. Воспользуемся функцией Sum из предыдущей программы, но будем суммировать не все элементы, а только те, которые делятся на заданное число (остаток от деления равен 0)
Function Sum(m : myarray) : Integer; Var i, s, k : Integer; Begin Writeln (‘введите число’); Readln(k); s:=0; For i:=1 To n Do If m[i] Mod k = 0 Then s := s + m[i]; sum:=s;
Все остальное можно оставить без изменения.
Программирование на языке Паскаль
Вы познакомились с алгоритмом суммирования элементов массива. На следующем уроке продолжим изучение алгоритмов для одномерных массивов.
Источник: gospodaretsva.com
Как написать программу в паскале для вычисления суммы
составить программу которая вычисляет сумму положительных чисел среди 5 чисел,которые вводятся с клавиатуры
Made In USSR!
Регистрация: 01.09.2010
Сообщений: 3,657
s:=0; for i:=1 to 5 do begin readln(a); if a>0 then s:=s+a; end; writeln(s);
«. В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал. »
(c) Юрий Клинских aka «Хой»
Регистрация: 16.05.2012
Сообщений: 3,211
и в чем проблема?
sum:=0; for i:=1 to 5 do begin ReadLn(num); if num>0 then sum:=sum+num; end;
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы.
Источник: www.programmersforum.ru