algorytm.org

Implementacja w Delphi/Pascal

Baza Wiedzy
wersja offline serwisu przeznaczona na urządzenia z systemem Android
Darowizny
darowiznaWspomóż rozwój serwisu
Nagłówki RSS
Artykuły
Implementacje
Komentarze
Forum
Bookmarki






Sonda
Implementacji w jakim języku programowania poszukujesz?

Rozkład liczby na czynniki pierwsze - Implementacja w Delphi/Pascal
Ocena użytkownikóww: *****  / 2
SłabyŚwietny
Nadesłany przez Tomasz Lubiński, 12 stycznia 2011 21:37
Kod przedstawiony poniżej przedstawia główną część rozwiązania problemu.
Pobierz pełne rozwiązanie.

Jeżeli nie odpowiada Ci sposób formatowania kodu przez autora skorzystaj z pretty printer'a i dostosuj go automatycznie do siebie.

Rozklad - Delphi/rozklad.dpr:
//Rozklad liczby na czynniki pierwsze
//(c) 2011 by Tomasz Lubinski
//www.algorytm.org

program rozklad;
{$APPTYPE CONSOLE}
uses
  SysUtils, Math;

var
  x, i, e: Integer;

begin
  //pobierz wartosc od uzytkownika
  Writeln('Podaj wartosc x');
  Readln(x);

  //rozloz na czynniki pierwsze
  write('Czynniki pierwsze liczby ', x, ' to:');
  i := 2;
  e := floor(sqrt(x));
  while i <= e do
  begin
    while (x mod i) = 0 do
    begin
      write(' ', i);
      x := x div i;
      e := floor(sqrt(x));
    end;
    i := i + 1;
  end;

  if x > 1 then write(' ', x);

  //czekaj na enter od uzytkownika
  Readln;

end.
Dodaj komentarz