Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.12.2013, 18:14   #1
passresx
Пользователь
 
Регистрация: 22.12.2013
Сообщений: 10
По умолчанию задание на цикл с известным числом повторений

условие:
В театре 30 рядов кресл. В первом ряду 20 кресл , в каждом последующем на 2 кресла больше , чем в предыдущем . Стоимость одного места в первом ряду - 500 рублей , а в каждом последующем - на 50 рублей больше чем в предидущем. Подсчитать выручку кинотеатра за один сеанс при целиком заполненом зале!
passresx вне форума Ответить с цитированием
Старый 22.12.2013, 18:18   #2
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Код:
s:=0; k:=20; c:=500; for i:=1 to 30 do begin s:=s+k*c; Inc(k,2); Inc(c,50); end;
или
Код:
s:=0; for i:=1 to 30 do s:=s+(20+(i-1)*2)*(500+(i-1)*50);
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию

Последний раз редактировалось Аватар; 22.12.2013 в 18:21.
Аватар вне форума Ответить с цитированием
Старый 25.12.2013, 12:45   #3
passresx
Пользователь
 
Регистрация: 22.12.2013
Сообщений: 10
Сообщение

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!

Последний раз редактировалось passresx; 25.12.2013 в 16:58.
passresx вне форума Ответить с цитированием
Старый 25.12.2013, 13:05   #4
ZX Spectrum-128
Участник клуба
 
Регистрация: 05.11.2013
Сообщений: 1,602
По умолчанию

1. В программе (x-1), a в процедуре(x-0)
2. В цикле сначала печатаете результат, а затем вызываете процедуру. Последний результат не выводится.
ZX Spectrum-128 вне форума Ответить с цитированием
Старый 25.12.2013, 15:01   #5
passresx
Пользователь
 
Регистрация: 22.12.2013
Сообщений: 10
Сообщение

Цитата:
Сообщение от ZX Spectrum-128 Посмотреть сообщение
1. В программе (x-1), a в процедуре(x-0)
2. В цикле сначала печатаете результат, а затем вызываете процедуру. Последний результат не выводится.
Спасибо работает там и процедуре ответ одинаковый !
passresx вне форума Ответить с цитированием
Старый 25.12.2013, 15:03   #6
ZX Spectrum-128
Участник клуба
 
Регистрация: 05.11.2013
Сообщений: 1,602
По умолчанию

Да не вопрос.
"Ты приходи, если что..." (с) Жил-был пес
ZX Spectrum-128 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Цикл с известным числом повторений. Getman Помощь студентам 9 09.06.2012 14:26
Delphi, Цикл с неизвестным числом повторений Orlangur Помощь студентам 10 17.12.2011 17:49
Циклы с неявным числом повторений Verunya Помощь студентам 2 18.12.2009 19:44
Pascal, цикл с заданным числом повторений mondi Помощь студентам 8 13.11.2008 17:55
Цикл с заданным числом повторений Extrem_um Помощь студентам 3 02.04.2008 21:00