1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| -Len- |
Сообщение
#1
|
|
Гость |
Сегодня нам задали прогу, где TP должен найти сумму квадратов первых ста натуральных чисел. Еще, информатиня сказала, что в каком-то обратном порядке. Но я так и не поняла, что это значит.
Помогите мне, пожалуйста, составить эту программку. |
![]() ![]() |
| volvo |
Сообщение
#2
|
|
Гость |
Объединяя все вышесказанное:
Код Program sdsdl; uses crt; var i: integer; sum: real; begin clrscr; sum := 0; writeln('Нахождение суммы квадратов первых ста натуральных чисел'); for i := 100 downto 1 do sum := sum + sqr(i); writeln('Сумма квадратов первых ста натуральных чисел = ',sum:2:1); readln; end. |
| Len |
Сообщение
#3
|
|
Новичок ![]() Группа: Пользователи Сообщений: 20 Пол: Женский Репутация: 0 |
Это снова я и с этой же программой. Ситуация уже критическая. Завтра нам выставят двойки
за несданные программы. А у меня их две. Теперь-то я наконец поняла условия этой задачи. Условие такое, что нужно найти сумму чисел обратных квадратам первых ста натуральных чисел. То есть, #2 в квадрате=4, а обратное число 1/4. И так далее до ста. Но на экран должна выводится сумма этих обратных чисел, какое-то одно число. |
-Len- Сумма квадратов первых 100 натуральных чисел 4.03.2005 15:04
volvo -Len-
:blink: Ну, если в "обратном порядке… 4.03.2005 15:28
Guest А без LongInt нельзя? Мы это не проходили.
Я тольк… 4.03.2005 16:02
-Len- Volvo, я сейчас запустила твой вариант. Ничего не … 4.03.2005 16:11
volvo
Довольно странное решение - задание на натурал… 4.03.2005 16:16
-Len- Строчку уберу, но я не могу понять, какой вариант … 4.03.2005 16:25
volvo
Значит, так:
for i := 1 to 100 do
begi… 4.03.2005 16:43
-Len- Спасибо огромное! Я надеюсь, что этот вариант … 4.03.2005 17:18
Len У меня так и не получилась программа, которая нахо… 10.03.2005 22:25
virt rogram sdsdl;
uses crt;
var i: integer; sum… 16.03.2005 16:23
Len Не сумма квадратов, а сумма чисел обратных квадрат… 16.03.2005 19:18![]() ![]() |
|
Текстовая версия | 7.11.2025 3:40 |