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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 14.10.2010, 17:11   #1
Guap
 
Регистрация: 14.10.2010
Сообщений: 7
По умолчанию Проблема с циклами

помогите с решением задачи
Найти сумму всех целых чисел, дающих при деление на 7 в остатке 3, из отрезка [A,B].
Вроде Mod надо использовать, но не понимаю как это реализовывается
паскаль токо начал изучать, тяжко дается
Guap вне форума Ответить с цитированием
Старый 14.10.2010, 17:15   #2
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

Код:
s:=0;
For i:= round(a+0.5) to trunc(b) do
if i mod 7=3 then s:=s+i;
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума Ответить с цитированием
Старый 14.10.2010, 17:32   #3
Guap
 
Регистрация: 14.10.2010
Сообщений: 7
По умолчанию

получается что s тип integer , a,i,b соответственно тип real ?
Guap вне форума Ответить с цитированием
Старый 14.10.2010, 17:40   #4
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

Код:
a:real;b:real;s:real;i:integer;
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума Ответить с цитированием
Старый 14.10.2010, 17:51   #5
Guap
 
Регистрация: 14.10.2010
Сообщений: 7
По умолчанию

клево, спасибо!
сейчас попробую что из этого выйдет
Guap вне форума Ответить с цитированием
Старый 14.10.2010, 18:00   #6
Gambler
Игрок
Форумчанин
 
Аватар для Gambler
 
Регистрация: 29.10.2006
Сообщений: 367
По умолчанию

зачем S сделал REAL?
Жизнь всегда игра. Но смерть - не всегда поражение.

#define true (Math.random()>0.5) //Удачной отладки
Gambler вне форума Ответить с цитированием
Старый 14.10.2010, 18:39   #7
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

Цитата:
зачем S сделал REAL?
а от этого программа работает как то по другому???
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума Ответить с цитированием
Старый 14.10.2010, 18:56   #8
Guap
 
Регистрация: 14.10.2010
Сообщений: 7
По умолчанию

а можно например этот отрезок реализовать с помощью random?
Guap вне форума Ответить с цитированием
Старый 14.10.2010, 18:58   #9
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

Цитата:
а можно например этот отрезок реализовать с помощью random?
интересно что же ты random - ом будешь задавать?
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума Ответить с цитированием
Старый 14.10.2010, 19:06   #10
Guap
 
Регистрация: 14.10.2010
Сообщений: 7
По умолчанию

может длину отрезка) да просто методичку читаю, стало интересно
у меня в итоге получилось след: если я например беру отрезок от А по Б от 5 до 88, то сумма = 87
это я чтото с кодом напортачил?))

Последний раз редактировалось Guap; 14.10.2010 в 19:54.
Guap вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проблема с циклами в Паскале Tomas Anderson Помощь студентам 0 29.12.2009 19:28
Робота с циклами maloy-rom Помощь студентам 5 14.06.2009 19:53
задачи с циклами bendr Паскаль, Turbo Pascal, PascalABC.NET 6 16.04.2009 20:12
Работа с циклами. Надюха Помощь студентам 3 26.10.2007 09:29