1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| -Len- |
Сообщение
#1
|
|
Гость |
Сегодня нам задали прогу, где TP должен найти сумму квадратов первых ста натуральных чисел. Еще, информатиня сказала, что в каком-то обратном порядке. Но я так и не поняла, что это значит.
Помогите мне, пожалуйста, составить эту программку. |
![]() ![]() |
| virt |
Сообщение
#2
|
![]() Знаток ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 419 Пол: Мужской Репутация: 6 |
Код rogram sdsdl; uses crt; var i: integer; sum: real; begin clrscr; sum := 0; writeln('Нахождение суммы [!!!!!!!!!!!]чисел обратных квадратам[!!!!!!!!!!!] первых ста натуральных чисел'); for i := 100 downto 1 do sum := sum + 1/sqr(i); writeln('Сумма [!!!!!!!!!!!!!!!]чисел обратных квадратам [!!!!!!!!!!]первых ста натуральных чисел = ',sum:2:1); readln; end. берем прогу volvo и пишем в\место sqr(i) :: 1/sqr(i) -------------------- |
| Len |
Сообщение
#3
|
|
Новичок ![]() Группа: Пользователи Сообщений: 20 Пол: Женский Репутация: 0 |
Не сумма квадратов, а сумма чисел обратных квадратам первых ста натуральных чисел.
Len, ну так в чем проблема? Что, самостоятельно уже даже текст поменять не можете? |
-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
volvo Объединяя все вышесказанное:
Program sdsdl;
uses c… 10.03.2005 22:39
Len Это снова я и с этой же программой. Ситуация уже к… 16.03.2005 15:57![]() ![]() |
|
Текстовая версия | 6.11.2025 21:57 |