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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 16.02.2014, 13:14   #1
Тишуня
Пользователь
 
Аватар для Тишуня
 
Регистрация: 16.02.2014
Сообщений: 12
Радость составить программу тремя циклами

В бригаде, работающей на уборке сена, имеется N сенокосилок. Первая сенокосилка работала m часов, а каждая следующая на 10 минут больше, чем предыдущая. Сколько часов проработала вся бригада?
Тишуня вне форума Ответить с цитированием
Старый 16.02.2014, 13:16   #2
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 18,922
По умолчанию

А при чем три цикла? Сумма членов арифметической прогрессии. В 7-ом классе кажись формулу выводят.

PS Или все только тремя циклами? Рядышком еще тема с тремя циклами
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 16.02.2014, 13:20   #3
Тишуня
Пользователь
 
Аватар для Тишуня
 
Регистрация: 16.02.2014
Сообщений: 12
По умолчанию

Цитата:
Сообщение от Аватар Посмотреть сообщение
А при чем три цикла? Сумма членов арифметической прогрессии. В 7-ом классе кажись формулу выводят.

PS Или все только тремя циклами? Рядышком еще тема с тремя циклами
цикл счетчик, цикл с пред и пост проверкой условия
Тишуня вне форума Ответить с цитированием
Старый 16.02.2014, 13:32   #4
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 18,922
По умолчанию

Код:
  s:=0; for i:=1 to N do s:=s+m+(i-1)/6;

  s:=0; i:=1; while i<=N do begin s:=s+m+(i-1)/6; Inc(i); end;

  s:=0; i:=1; repeat s:=s+m+(i-1)/6; Inc(i); until i>N;
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 16.02.2014, 13:39   #5
Poma][a
Новичок
Джуниор
 
Регистрация: 11.10.2011
Сообщений: 3,882
По умолчанию

Вау.. новая подсветка? забавно..
Poma][a вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
решить задачу тремя циклами Тишуня Паскаль, Turbo Pascal, PascalABC.NET 1 16.02.2014 12:02
Написать программу для Паскаль 9 класс: составить программу которая печатает таблицу умножения и сложения натуральных чисел goodula Помощь студентам 0 23.01.2014 17:39
Составить программу вычисления и печати таблицы значений функции при заданных значениях параметров Составить программу вычисле Марина1986 C/C++ Сетевое программирование 1 08.05.2013 13:34
никак не могу составить программы на паскале... кто нибудь помогииите составить программу program_1 Паскаль, Turbo Pascal, PascalABC.NET 1 04.12.2012 19:52
Составить программу. kot i @ Паскаль, Turbo Pascal, PascalABC.NET 0 25.05.2010 15:39