IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Сумма квадратов первых 100 натуральных чисел
сообщение
Сообщение #1


Гость






Сегодня нам задали прогу, где TP должен найти сумму квадратов первых ста натуральных чисел. Еще, информатиня сказала, что в каком-то обратном порядке. Но я так и не поняла, что это значит.
Помогите мне, пожалуйста, составить эту программку.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






-Len-
blink.gif Ну, если в "обратном порядке" - значит, наверное, вот так:
Код
Var i: integer; s: LongInt;
Begin
 s := 0;
 For i := 100 DownTo 1 Do
   { увеличиваем сумму }

 { Выводим сумму }
End.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






А без LongInt нельзя? Мы это не проходили.
Я только что напечатала, что могла, вот такой вариант подойдет:

Код
Program sdsdl;
uses crt;
var i: integer;
sum, x: real;
begin
clrscr;
writeln('Нахождение суммы квадратов первых ста натуральных чисел');
for i := 1 to 100 do
  begin
    write(i, ' = ');
    sum := sum + i
  end;
clrscr;
writeln('Сумма квадратов первых ста натуральных чисел = ',sum:2:1);
readln;
end.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






Volvo, я сейчас запустила твой вариант. Ничего не выводится, а где сумма квадратов там?

А я не давал полное решение, я дал алгоритм. Там где стоят комментарии - должен быть соответствующий код...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Гость






Цитата(-Len- @ 4.03.05 10:04)
найти сумму квадратов первых ста натуральных чисел...


Цитата(Guest @ 4.03.05 11:02)
А без LongInt нельзя? Мы это не проходили.


Довольно странное решение - задание на натуральные (то есть целые) числа, но сумма их - вещественная... wacko.gif Допустим. А что в программе делает строчка:
Код
write(i, ' = ');

?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Гость






Строчку уберу, но я не могу понять, какой вариант правильный: информатине нужна сумма квадратов, да еще и обратный порядок...
Нужна ли в программе функция SQRT?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Гость






Цитата
я не могу понять, какой вариант правильный

Значит, так:
Код
for i := 1 to 100 do
 begin
   write(i, ' = ');
   sum := sum + i
 end;

Меняем на
Код
for i := 100 downto 1 do
 sum := sum + sqr(i);


Цитата
Нужна ли в программе функция SQRT?

Только не SQRT (это вычисление квадратного корня), а SQR (вот это как раз вычисление квадрата числа)
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Гость






Спасибо огромное! Я надеюсь, что этот вариант ей понравится smile.gif
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Новичок
*

Группа: Пользователи
Сообщений: 20
Пол: Женский

Репутация: -  0  +


У меня так и не получилась программа, которая находит сумму квадратов первых ста натуральных чисел. Просто должна сразу в одной строчке выводится сумма КВАДРАТОВ всех этих чисел. У меня не получается ее написать.
Помогите, пожалуйста.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #10


Гость






Объединяя все вышесказанное:
Код
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.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #11


Новичок
*

Группа: Пользователи
Сообщений: 20
Пол: Женский

Репутация: -  0  +


Это снова я и с этой же программой. Ситуация уже критическая. Завтра нам выставят двойки
за несданные программы. А у меня их две.
Теперь-то я наконец поняла условия этой задачи.
Условие такое, что нужно найти сумму чисел обратных квадратам первых ста натуральных чисел. То есть, #2 в квадрате=4, а обратное число 1/4.
И так далее до ста. Но на экран должна выводится сумма этих обратных чисел, какое-то одно число.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #12


Знаток
****

Группа: Пользователи
Сообщений: 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)


--------------------
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #13


Новичок
*

Группа: Пользователи
Сообщений: 20
Пол: Женский

Репутация: -  0  +


Не сумма квадратов, а сумма чисел обратных квадратам первых ста натуральных чисел.

Len, ну так в чем проблема? Что, самостоятельно уже даже текст поменять не можете? angry.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 28.03.2024 16:55
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name