|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
16.05.2010, 13:02 | #1 |
Новичок
Джуниор
Регистрация: 16.05.2010
Сообщений: 3
|
Сумма квадратов (Pascal)
Здравствуйте.
Буду благодарен, если сможете помоч с решением задачи и с ее блок-схемой. Вычислить сумму квадратов натуральных чисел, кратных 3 (3,6,9...), в которую входят слагаемые, не большие 5000. Замечание: Провести решение двумя способами - использую цикл с предусловием WHILE_DO и цикл с постусловием REPEAT_UNTIL. Еще раз заранее благодарю. |
16.05.2010, 13:25 | #2 |
ТАМБОВСКИЙ ВОЛК.
Участник клуба
Регистрация: 16.03.2010
Сообщений: 1,354
|
Код:
にんじゃ
|
16.05.2010, 13:33 | #3 |
А может и не...
Участник клуба
Регистрация: 27.03.2010
Сообщений: 1,269
|
Рома, не прокатит твоя программа из-за неправильно заданных типов данных.
Проанализируй сколько будет 5000 в квадрате и какой диапазон имеют примененные тобой типы данных.
Перемешивай дело с бездельем и не сойдешь с ума...
|
16.05.2010, 15:19 | #4 | |
ТАМБОВСКИЙ ВОЛК.
Участник клуба
Регистрация: 16.03.2010
Сообщений: 1,354
|
Цитата:
にんじゃ
|
|
16.05.2010, 16:15 | #5 |
Новичок
Джуниор
Регистрация: 16.05.2010
Сообщений: 3
|
Исправьте, что не так.
1 способ) program lavr_lab10_1; var a,n:real; c,m:integer; begin c:=1; n:=0; while n<5000 do begin a:=3*c; a:=power(a,3); c:=c+1; n:=n+a; end; writeln(n-a); end. Тут вроде все верно. а вот тут не получается 2 способ) Program lavr_lab10_2; var a,n:real; c,m:integer; begin c:=1; n:=0; repeat a:=3*c; a:=power(a,3); c:=c+1; n:=n+a; until n<=5000; writeln(n-a); end. |
16.05.2010, 16:20 | #6 |
ТАМБОВСКИЙ ВОЛК.
Участник клуба
Регистрация: 16.03.2010
Сообщений: 1,354
|
А ты уверен что ответ будет 2700?Чёт меня терзают сомнения что сумма квадратов чисел кратных трём в диапазоне до 5000 будет равна этому числу.
にんじゃ
|
16.05.2010, 16:23 | #7 |
Новичок
Джуниор
Регистрация: 16.05.2010
Сообщений: 3
|
Будь добр, помоги исправить.
Я без понятия что чему должно быть равно) |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Turbo C. Сумма квадратов положительных элементов массива | ТАМ | Помощь студентам | 2 | 09.12.2009 14:53 |
Сумма максимальных элементов матриц в Pascal | Бармалей | Помощь студентам | 19 | 19.11.2009 15:59 |
[Pascal] сумма чисел входящих в строку | Рамик | Помощь студентам | 5 | 03.06.2009 16:28 |