С Новым годом! Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.63/8: Рейтинг темы: голосов - 8, средняя оценка - 4.63
35 / 29 / 15
Регистрация: 20.11.2010
Сообщений: 481
1

Найти сумму квадратов чисел натурального ряда от а до b используя цикл с параметром

19.12.2010, 08:58. Показов 1663. Ответов 9
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Найти сумму квадратов чисел натурального ряда от а до b используя цикл с параметром.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.12.2010, 08:58
Ответы с готовыми решениями:

Найти сумму квадратов чисел натурального сюда от a до b используя цикл с параметром
Найти сумму квадратов чисел натурального сюда от a до b используя цикл с параметром

Найти произведение чисел натурального ряда от а до b используя цикл с постусловием
Найти произведение чисел натурального ряда от а до b используя цикл с постусловием.

Найти произведение чисел натурального ряда от a до b используя цикл с постусловием
Найти произведение чисел натурального ряда от a до b используя цикл с постусловием.

Найти сумму чисел натурального сюда от а до b используя цикл с предусловием
Найти сумму чисел натурального сюда от а до b используя цикл с предусловием.

9
Фрилансер
452 / 433 / 117
Регистрация: 01.06.2010
Сообщений: 1,314
19.12.2010, 09:27 2
Pascal
1
2
3
4
5
readln(a,b);
Sum:=0;
for j:=a to b do
  Sum:=Sum+j*j;
writeln(Sum);
1
35 / 29 / 15
Регистрация: 20.11.2010
Сообщений: 481
19.12.2010, 09:37  [ТС] 3
У меня она не пошла
0
11 / 11 / 3
Регистрация: 18.04.2010
Сообщений: 94
19.12.2010, 11:15 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от Мирзали Посмотреть сообщение
У меня она не пошла
Pascal
1
2
3
4
5
6
7
8
Var a,b,sum:integer;
begin
readln(a,b);
Sum:=0;
for j:=a to b do
  Sum:=Sum+j*j;
writeln(Sum);
end.
Вот так пробовали??
1
35 / 29 / 15
Регистрация: 20.11.2010
Сообщений: 481
19.12.2010, 12:34  [ТС] 5
а вы объясните мне его.

Добавлено через 1 час 13 минут
MC_Shinoda, дружок ау
0
2 / 2 / 1
Регистрация: 19.10.2010
Сообщений: 26
19.12.2010, 12:40 6
Найти сумму квадратов чисел натурального ряда от а до b используя цикл с параметром.
Pascal
1
2
3
4
5
6
7
8
Program q1;
Var a,b,i,sum:integer;
Begin
 i:=0; sum:=0;
 Read(a,b); 
   For i:=a to b do sum:=sum+sqr(i); // Параметру цикла присваивается значение а и прибавляется к сумме его квадрат, цикл выполняется до тех пор пока i <= b
 Write(sum:3);
End.
1
35 / 29 / 15
Регистрация: 20.11.2010
Сообщений: 481
19.12.2010, 15:42  [ТС] 7
Ananasik74, спасибо
0
Фрилансер
452 / 433 / 117
Регистрация: 01.06.2010
Сообщений: 1,314
20.12.2010, 11:25 8
Ananasik74, вызов функции sqr() в цикле в твоей программе сожрет столько временных ресурсов, что гораздо эффективнее квадрат числа вычислять произведением...
0
2 / 2 / 1
Регистрация: 19.10.2010
Сообщений: 26
20.12.2010, 18:42 9
Цитата Сообщение от Mad_Dog Посмотреть сообщение
Ananasik74, вызов функции sqr() в цикле в твоей программе сожрет столько временных ресурсов, что гораздо эффективнее квадрат числа вычислять произведением...
Возможно, но, как мне кажется, разница не ощутима.
0
35 / 29 / 15
Регистрация: 20.11.2010
Сообщений: 481
15.01.2011, 03:19  [ТС] 10
Pascal
1
2
3
4
5
6
7
8
9
10
11
program m1;
uses crt;
var a,b,i,s:integer;
begin
clrscr;
s:=0;
for i:=a to b do
inc(s,a);
writeln ('s=',s:2);
readln;
end.
на экзамене мне эта задачка попалась, я так написал. поставили 5. спасибо, тем кто мне помогал
0
15.01.2011, 03:19
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.01.2011, 03:19
Помогаю со студенческими работами здесь

Найти сумму чисел натурального сюда от a до b используя цикл с предусловием
Найти сумму чисел натурального сюда от a до b используя цикл с предусловием.

Вывести таблицу квадратов заданных чисел(используя цикл с параметром)
Написать программу, которая выводит таблицу квадратов первых пяти целых положительных нечетных...

Вычислить сумму ряда, используя цикл с параметром, с предусловием, с постусловием
помогите пожалуйста написать программы срочно нада очень очень помогите пожалуйста написать...

Дано целое число N (> 0). Найти сумму N^2 + (N + 1)^2 + (N + 2)^2 + ... + (2*N)^2 используя цикл с параметром
1)Дано целое число N (&gt; 0). Найти сумму N^2 + (N + 1)^2 + (N + 2)^2 + ... + (2*N)^2 (целое...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
10
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru