Új hozzászólás Aktív témák

• #113 b14 senior tag #57764352 #111

  Új Válasz 2004-10-20 18:36:45 #113

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  b14

  senior tag

  válasz #57764352 #111 üzenetére

  HIHI
  Az osztoit igy lehet meghatarozni egy szamnak (pascal megoldas, c-ben is kuldhetem, ha kell):
  
  {osztoi.pas}
  uses crt;
  var a, b, szam, r , i, h,g : longint;
  aszamai, bszamai: array [1..200] of longint;
  begin
  writeln('Kerem az ''A'' erteket');
  readln(a);
  writeln('Kerem a ''B'' erteket');
  readln(b);
  clrscr;
  writeln('A szamai: ');
  writeln;
  for szam := a downto 1 do
  begin
  clrscr;
  r:=0;
  writeln('Most ',szam);
  for i:=szam downto 1 do
  begin
  if szam mod i = 0 then
  
  begin
  writeln(szam div i);
  inc(r);
  aszamai[r]:=szam div i;
  end;
  
  end;
  writeln;
  writeln;
  h:=r;
  writeln('Ez osszesen ',r,' szam volt');
  readkey;
  end;
  
  clrscr;
  writeln('B szamai: ');
  writeln;
  for szam := b downto 1 do
  begin
  clrscr;
  r:=0;
  writeln('Most ',szam);
  for i:=szam downto 1 do
  begin
  if szam mod i = 0 then
  
  begin
  writeln(szam div i);
  inc(r);
  bszamai[r]:=szam div i;
  end;
  
  end;
  writeln;
  writeln;
  g:=r;
  writeln('Ez osszesen ',r,' szam volt');
  readkey;
  
  writeln('Kozos osztoik: ');
  for i:=1 to h do for r:=1 to g do if r = i then writeln(i);
  
  end.
  
  Ez egy eleg hosszu megoldas, igazabol nagyon is rogtonzott, lehet, hogy van benne hiba.
  
  Legnagyobb kozos osztot ugyan ezen az alapon, csak egy kicsit kell rajta szerkeszteni, a relatív prímek csak egy kicsit belenyulni a legnagyobb kozos oszto progi
  De juteszembe: if r = 1 then writeln('RELATÍV PRÍMEK!');
  Ha kell meg tudom csinalni a tobbit is!
  
  [Szerkesztve]

Új hozzászólás Aktív témák