Вывести простые множители числа в StringGrid

@wetred · Регистрация: 15.03.2012

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

Привет всем.
Вот такая задача:
Дано два числа. Найти их наибольший общий делитель.

Для того, чтобы найти НОД, нужно каждое число разложить на простые множители. Так вот, мне надо чтобы эти простые множители выводились в StringGrid в одну строку (StringGrid состоит из одной строки), а потом уже исходя из данных в StringGrid-е найти НОД.

Я только нашёл как найти НОД двух чисел:

Delphi

procedure TForm1.Btn1Click(Sender: TObject);
 var
  p, n1, m1, n, m, R: LongWord;
begin
   n:= StrToInt(edt1.text);
   m:= StrToInt(edt2.Text);
  if (n = 0) or (m = 0) then
    R:= 0
  else
  begin
    if m < n then
    begin
      n1 := m;
      m1 := n;
    end
    else
    begin
      n1 := n;
      m1 := m;
    end;
    while n1 > 0 do
    begin
      p := m1 mod n1;
      m1 := n1;
      n1 := p;
      if StringGrid1.Cells[i-1,0]:=IntToStr(x[j,i]);
 
    end;
    R := m1;
    lbl3.caption:=IntToStr(R);
  end;
end;
end.

@Arcor · 31.05.2012, 00:34

Сообщение от wetred

Дано два числа. Найти их наибольший общий делитель.

Не по теме:

так, такое число до бесконечности большое, как его искать? пределов типов данных будет мало, может все же найти наименьший?

извиняюсь, я с дробями перепутал

@wetred · 31.05.2012, 00:39 **[ТС]**

мне главное вывести простые множители в Stringgrid (для каждого числа свой stringgrid)
ну в смысле дано нам 2 числа, значит должно быть 2 StringGrid-а

@vilag · 31.05.2012, 03:05

wetred, а в чем тут проблема?

Pascal

procedure FindDividers(x: integer);
var
  i: integer;
begin
  i := 2;
  while x > 1 do 
  begin
    if (x mod i) = 0 then
    begin
      // добавить i в список делителей
      x := x div i;
    end else 
      i := i + 1; 
  end;
end;

Добавлено через 5 минут
Эта загогулина вообще компилируется?

Delphi

1 2	if StringGrid1.Cells[i-1,0]:=IntToStr(x[j,i]);

@wetred · 01.06.2012, 01:53 **[ТС]**

Сообщение от vilag

if StringGrid1.Cells[i-1,0]:=IntToStr(x[j,i]);

не понимаю как это вообще там оказалось

но вообщем я сам разобрался, меня как всегда не понимают тут

@Arcor 5705 / 2296 / 466 Регистрация: 20.11.2009 Сообщений: 7,720 Записей в блоге: 1
	31.05.2012, 00:34	2
	Сообщение от wetred Дано два числа. Найти их наибольший общий делитель. Не по теме: так, такое число до бесконечности большое, как его искать? пределов типов данных будет мало, может все же найти наименьший? извиняюсь, я с дробями перепутал 0

@wetred 0 / 0 / 0 Регистрация: 15.03.2012 Сообщений: 23
	31.05.2012, 00:39 [ТС]	3
	мне главное вывести простые множители в Stringgrid (для каждого числа свой stringgrid) ну в смысле дано нам 2 числа, значит должно быть 2 StringGrid-а 0

@wetred 0 / 0 / 0 Регистрация: 15.03.2012 Сообщений: 23
	01.06.2012, 01:53 [ТС]	5
	Сообщение от vilag if StringGrid1.Cells[i-1,0]:=IntToStr(x[j,i]); не понимаю как это вообще там оказалось но вообщем я сам разобрался, меня как всегда не понимают тут 0