Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 13.02.2011
Сообщений: 31
1

Помгите изменить рекурсивную программу.

23.03.2011, 00:43. Показов 447. Ответов 1
Метки нет (Все метки)

Есть программа, печатающая квадраты всех целых чисел от нуля до введённого натурального n, не используя операций умножения, но она работает по принципу, что "Квадрат любого натурального числа N равен сумме первых N нечетных чисел", а надо переделать, чтобы квадрат, например, числа 6 высчитывался как сумма 6 по 6: 6+6+6+6+6+6.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var 
i,j,n,s:integer; 
begin 
writeln('Задайте число,квадрат которого нужно найти:'); 
readln(n); 
for i:=0 to n do 
begin 
s:=0; 
for j:=1 to i do 
s:=s+2*j-1; 
writeln(i,'*',i,'=',s); 
end; 
readln; 
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.03.2011, 00:43
Ответы с готовыми решениями:

рекурсивную программу
Составить рекурсивную программу(procedure) вычисления суммы и количества цифр в числе. ...

Написать рекурсивную программу
Написать рекурсивную программу нахождения {x}_{n}=\sqrt{2+\sqrt{2+...+\sqrt{2}}} для заданного n.

Составить рекурсивную программу вычисления N
Составить рекурсивную программу вычисления N! на Pascal ABC .помогите пожалуйста

Изменить данную программу организовав чтение исходных данных из текстового файла изменить размерность массива на квадратную матрицу 5х5
Изменить данную программу организовав чтение исходных данных из текстового файла изменить...

1
Модератор
63389 / 47078 / 32450
Регистрация: 18.05.2008
Сообщений: 114,114
23.03.2011, 09:01 2
Pascal
1
2
3
s:=0; 
for j:=1 to i do 
s:=s+i;
Добавлено через 34 секунды
При чем только здесь название темы....
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.03.2011, 09:01

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Составить рекурсивную программу вычисления НОД
Составить рекурсивную программу вычисления НОД(наибольшего общего делителя), основанную на...

Перестроить программу используя рекурсивную процедуру
Есть программа, нужно что бы она работала через рекурсивную процедуру или функцию. Код: program...

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

Написать рекурсивную программу для вычисления суммы
Помогите, пожалуйста, в выполнении этого задания: Напишите рекурсивную программу для вычисления...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.