Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.62/26: Рейтинг темы: голосов - 26, средняя оценка - 4.62
alexey1995
1

Составить программу на вычисление суммы членов арифметической прогрессии

24.10.2012, 23:11. Показов 5034. Ответов 2
Метки нет (Все метки)

составить программу на вычисление суммы членов арифметической прогрессии, если первый элемент равен -100, шаг равен 5.75. Определить сколько членов >0 и <0, если n вводится с клавиатуры
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.10.2012, 23:11
Ответы с готовыми решениями:

Составить программу вычисления суммы m первых членов арифметич. прогрессии, если известны значения первого члена и разность арифметической прогрессии
прошу помиочь составить программу вычисления суммы 150 первых членов арифметической прогрессии если...

Составьте программу вычисления суммы 80 первых членов арифметической прогрессии
4. Составьте программу вычисления суммы 80 первых членов арифметической прогрессии, если a1 = 10;...

Составить программу для расчета суммы n первых членов заданной арифметической прогрессии
Составить программу для расчета суммы n первых членов заданной арифметической прогрессии///Рекурсия

Составить программу, вычисляющую сумму членов арифметической прогрессии
1) Найти сумму K членов последовательности: -2,3,8,13,... 2) Вычислить произведение членов...

2
4 / 4 / 2
Регистрация: 26.10.2012
Сообщений: 155
26.10.2012, 10:58 2
Лучший ответ Сообщение было отмечено как решение

Решение

"n" я так понял - количество элементов?

Добавлено через 26 минут
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
uses
  crt;
var
  n,k,km,kb: integer;
  i,s: real;
begin
  clrscr;
  writeln('Ââåäèòå êîëè÷åñòâî ýëåìåíòîâ ïðîãðåññèè: ');
  readln(n);
  i:=-100;
  while k<>n do
  begin
    write(i:4:0);
    s:=s+i;
    if i<0 then km:=km+1
    else kb:=kb+1;
    i:=i+5.75;
    k:=k+1
  end;
  writeln;
  writeln('Ñóììà ýëåìåòîâ àðèôì. ïðîãðåññèè: ',s);
  writeln('Êîëè÷åñòâî ýëåìåíòîâ <0: ',km);
  writeln('Êîëè÷åñòâî ýëåìåíòîâ >0: ',kb)
end.
2
alexey1995
26.10.2012, 14:02 3
спасибо

 Комментарий модератора 
Правило форума 3.6. Если какой-либо пост на форуме показался вам полезным, нажмите кнопку "Спасибо" внизу самого поста.
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.10.2012, 14:02

Вычислить произведение m членов арифметической прогрессии, если известны значения первого члена и разность арифметической прогрессии
прошу помочь составить блок-схему вот этому алгоритму : Вычислить произведение m членов...

Рекурсия: вывод и нахождения суммы первых N членов арифметической прогрессии, заданной формулой
2. Создать процедуру для вывода и нахождения суммы первых N членов арифметической прогрессии,...

Найти сумму арифметической прогрессии .Даны:первый член прогресси,её знаменатель и число членов прогрессии
5)Найти сумму арифметической прогрессии.Даны:первый член прогресси,её знаменатель и число членов...

Рекурсия: вычисление суммы N первых членов арифметической прогрессии
Помогите найти ошибку в программе! Вот задание: Написать рекурсивную программу вычисления суммы N...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru