паскаль,нахождение суммы членов геометрической прогрессии - Форум
Воскресенье, 04.12.2016, 04:52
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » паскаль,нахождение суммы членов геометрической прогрессии (мне завтра ее сдавать((()
паскаль,нахождение суммы членов геометрической прогрессии
RRQДата: Воскресенье, 22.05.2011, 21:35 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 4
[ 0 ]
Статус: Offline
составить программу расчета суммы геометрической прогрессии,которые больше В и меньше С
В,С,В1 и Q вводятся с коавиатуры
и еще она должна рассчитывать количество членов суммы N
выручите, пожалуйста!

программа должна быть написана с использованием repeat...untill

 
KOT_B_MEIIIKEДата: Воскресенье, 22.05.2011, 21:48 | Сообщение # 2
Генералиссимус
Группа: Модераторы
Сообщений: 284
[ 36 ]
Статус: Offline
program progress;
var b,c,b1,q,sum:real;
begin
sum:=0;
writeln ('Ââåäèòå ïåðâûé ÷ëåí ïðîãðåñèè:');
read(b1);
writeln('Ââåäèòå çíàìåíàòåëü ïðîãðåñèè:');
read(q);
writeln('Ââåäèòå âåðõíþþ è íèæíþþ ãðàíèöû:');
read(b,c);

repeat
if b1>b then sum:=sum+b1;
b1:=b1*q;
write(b1:2:2,' ');
until b1>c

writeln;
writeln(sum);
read(b);
end.

Добавлено (22.05.2011, 21:48)
---------------------------------------------
правильные буковки в той теме

 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » паскаль,нахождение суммы членов геометрической прогрессии (мне завтра ее сдавать((()
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016