Форум: "Начинающим";
Текущий архив: 2007.04.29;
Скачать: [xml.tar.bz2];

Вниз

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

← →
Irishka   (2007-04-09 17:16) [0]

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

---

← →
clickmaker ©   (2007-04-09 17:19) [1]

лаба? курсовичок?

---

← →
Irishka   (2007-04-09 17:21) [2]

Лаба, завтра край сдать!!!

---

← →
Ega23 ©   (2007-04-09 17:22) [3]

mod, div, for + F1

---

← →
>>DEATH<<   (2007-04-09 17:35) [4]

чета типа
k,i,n:integer
k:=0;
for i:=1 to n do k:=k+2*i-1;

---

← →
{RASkov}   (2007-04-09 18:16) [5]

var N: Integer;
 function GetSimpleNums: String;
 var J: Integer;
 begin
  Result:="";
  for J := 1 to 2*N-1 do
   if ((J mod J)=0) and ((J mod 2)<>0) then
    if J<2*N-1 then Result:=Result+IntToStr(J)+"+" else Result:=Result+IntToStr(J);
 end;
begin
 Memo1.Clear;
 for N := 1 to 15 do Memo1.Lines.Add(Format("(%d * %d = %d) = [%s]", [N, N, N*N, GetSimpleNums]));
end;

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.04.29;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.036 c