Задача на возведение числа в степень

@ikoryakin84 · Регистрация: 28.01.2015

Author24 — интернет-сервис помощи студентам

Друзья, помогите пожалуйста решить вот такую задачу в паскале:

составить программу возведения натурального числа в квадрат, используя следущую закономерность:
1^2 = 1
2^2 = 1+3
3^2 = 1+3+5
4^2 = 1+3+5+7
...
n^2 = 1+3+5+7+9+...+2n-1
1^2 итд - это значит 1 в квадрате

БУДУ ПРЕМНОГО БЛАГОДАРЕН!

@ott88 · 28.01.2015, 13:58

Pascal

program quadrat;
uses crt;
var
i, n, summa: integer;
 
begin
  clrscr;
  summa:=0;
  writeln('Enter n');
  readln(n);
  for i:=0 to n-1 do summa:=summa+(1+2*i);
  writeln('n^2 = ', summa);
 end.

@Yamto · 28.01.2015, 14:00

Pascal

var i,s,n:integer;
 
 
begin
writeln('Введите n');
readln(n);
for i:=1 to n do 
s+=i*i;
writeln(s);
 
end.

@Puporev · 28.01.2015, 14:00

Pascal

var n,i,s:integer;
begin
write('Введите число n=');
readln(n);
s:=0;
write(n,'^2=');
for i:=1 to n do
 begin
  s:=s+2*i-1;
  if i>1 then write('+');
  write(2*i-1);
 end;
write('=',s);
end.

@Yamto · 28.01.2015, 14:16

сначала не понял задание, хотя уже ответ написали два человека, но просто хочу исправить свой ответ

Pascal

var i,s,n:integer;
 
 
begin
writeln('Введите n');
readln(n);
for i:=1 to n do 
s+=2*i-1;
writeln(s);
 
end.

@Puporev · 28.01.2015, 14:19

А что исправить? Ответ вроде верный выводит...

@Yamto · 28.01.2015, 14:22

Ему нужен квадрат числа, а в первом ответе у меня сумма квадратов до N.
во втором - уже сам N^2, выведенный заданным способом

@ikoryakin84 · 28.01.2015, 15:41 **[ТС]**

Pascal

var n,s,i:integer;
begin
write('n=');
readln(n);
s:=0;
for i:=1 to n do
s:=s+2*i-1;
write('n^2=',s);
end.

- а обясните в двух словах как это можно преподу объяснить) я просто вообще не разбираюсь в паскале, и из-за одного долга, который уже 3 года у меня, не хочется как то, других проблем по учебе достаточно)

@Puporev · 28.01.2015, 16:33

Считаем сумму всех нечетных чисел от 1 до 2n-1
например n=5
1+3+5+7+9=25

@Portoble · 28.01.2015, 17:20

Pascal

uses CRT;
var
 n,i,res:integer;
begin
 write('Ââåäèòå ÷èñëî n: ');
  readln(n);
 for i:=1 to n do
  res:=res+2*i-1;
write('n^2=',res);
end.

@Puporev · 28.01.2015, 17:25

Не по теме:

И нахрена этот 100500 код...

@Portoble · 28.01.2015, 17:44

Puporev, Это как раз по теме)))
у меня прост сайт лагал и показывал везде только задания, было видно, что написали кучу ответов, но просмотреть их я не мог

@Portoble 32 / 32 / 45 Регистрация: 01.11.2014 Сообщений: 155 Записей в блоге: 4
	28.01.2015, 17:44	12
	Puporev, Это как раз по теме))) у меня прост сайт лагал и показывал везде только задания, было видно, что написали кучу ответов, но просмотреть их я не мог 0

@ikoryakin84 0 / 0 / 0 Регистрация: 28.01.2015 Сообщений: 2
		1
	Задача на возведение числа в степень 28.01.2015, 13:49. Показов 3727. Ответов 11 Метки нет (Все метки) Друзья, помогите пожалуйста решить вот такую задачу в паскале: составить программу возведения натурального числа в квадрат, используя следущую закономерность: 1^2 = 1 2^2 = 1+3 3^2 = 1+3+5 4^2 = 1+3+5+7 ... n^2 = 1+3+5+7+9+...+2n-1 1^2 итд - это значит 1 в квадрате БУДУ ПРЕМНОГО БЛАГОДАРЕН! 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	28.01.2015, 14:19	6
	А что исправить? Ответ вроде верный выводит... 0

@Yamto 0 / 0 / 0 Регистрация: 21.01.2015 Сообщений: 7
	28.01.2015, 14:22	7
	Ему нужен квадрат числа, а в первом ответе у меня сумма квадратов до N. во втором - уже сам N^2, выведенный заданным способом 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	28.01.2015, 16:33	9
	Считаем сумму всех нечетных чисел от 1 до 2n-1 например n=5 1+3+5+7+9=25 1

@Puporev
	28.01.2015, 17:25 #11
	Не по теме: И нахрена этот 100500 код... 0