Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.73/11: Рейтинг темы: голосов - 11, средняя оценка - 4.73
0 / 0 / 0
Регистрация: 22.11.2010
Сообщений: 22

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

30.11.2010, 11:07. Показов 2328. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Дана арифметическая прогрессия с первым членом 0.4 и разностью -0.5 . Записать программу определения суммы и количества членов прогрессии с нечетными номерами.

Добавлено через 23 минуты
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Const a1=0,4
D=-0,5
Var
K,a,s: real;
I: integer;
Begin
A=a1
K=0
T=0
For i:=0 to n do 
If i mod2<>0  THEN k=k+1
Begin
A=4+d;
T=t+a;
End;
Writeln (t);
End.
Добавлено через 48 секунд
Может так?
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
30.11.2010, 11:07
Ответы с готовыми решениями:

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

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

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

2
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,168
30.11.2010, 11:18
Знак присваивания написать и точки с запятыми мы не умеем, а вот с заглавной буквы писать, святое дело...
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
25
26
uses crt;
const a1=0.4;
      d=-0.5;
var a,s: real;
    n,i,k: integer;
begin
write('n=');
read(n);
a:=a1;
k:=1;
s:=0.4;
writeln('Прогрессия:');
write(a:5:1);
for i:=2 to n do
 begin
  a:=a+d;
  write(a:5:1);
  if i mod 2<>0  then
   begin
    k:=k+1;
    s:=s+a;
   end;
 end;
writeln;
write('Сумма нечетных членов=',s:0:2,' их количество=',k);
end.
1
0 / 0 / 0
Регистрация: 22.11.2010
Сообщений: 22
30.11.2010, 11:56  [ТС]
Спасибо большое! Да блин я с телефона и тороплюсь поэтому так коряво и написал((( ну просто мож кто мою увидет и доделает)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
30.11.2010, 11:56
Помогаю со студенческими работами здесь

Вычислить n-ый член арифметической прогрессии и найти сумму нечетных членов данной прогрессии
Написать программу,вычисляющую n-ый член арифметической прогресси и найти сумму нечетных членов...

Цикл: Вывести N первых членов арифметической прогрессии и найти сумму ее первых членов...
дано действительное число X и целое число N. вывести N первых членов арифметической прогрессии и...

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

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

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


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): сборка C/C++ проекта из консоли
8Observer8 30.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
Установка Emscripten SDK (emsdk) и CMake на Windows для сборки C и C++ приложений в WebAssembly (Wasm)
8Observer8 30.01.2026
Чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. Система контроля версиями Git. . .
Подключение Box2D v3 к SDL3 для Android: физика и отрисовка коллайдеров
8Observer8 29.01.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT
bedvit 28.01.2026
Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 28.01.2026
Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image
8Observer8 27.01.2026
Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
Влияние грибов на сукцессию
anaschu 26.01.2026
Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru