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

• #1246 VladimirR nagyúr #72042496 #1245

  Új Válasz 2006-05-18 20:12:10 #1246

  Ú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

  

  VladimirR

  nagyúr

  válasz #72042496 #1245 üzenetére

  extended is csak 19-20 szamjegyig pontos
  10-esbo, hatosba nem lenne gaz, ott nem kell tarolni az eredmenyt, de visszafele alakitashoz (asszem) letre kell hoznod egy masik tombot a 10-es szamrendszer beli eredmeny szamara, amin tudsz sorzast, es osszeadast vegezni
  
  beolvasas:
  uses
    crt;
  var
    i : byte;
    ch : char;
    darabszam : byte;
    szamjegyek : array[1..60] of byte;
  begin
    darabszam := 0;
    clrscr;
    writeln( 'kerem a szamot: ' );
    while keypressed do readkey;
    repeat
      ch := readkey;
      if ( ch >= '0' ) and ( ch <= '6' ) then begin
        inc( darabszam );
        write( ch );
        szamjegyek[darabszam] := ord( ch ) - 48;
      end;
    until ( ch = #27 ) or ( ch = #13 ) or ( darabszam = 60 );
    writeln;
    for i := 1 to darabszam do
      write( szamjegyek );
  end.
  
  Bovebben: [link]
  
  ez csak annyit csinal, hogy beolvas egy 60 jegyu 6-ois szamrendszer beli szamot
  addig olvas, amig esc-et, vagy enter-t nem utsz, vagy a szamjegyek szama el nem eri a 60-at
  
  [Szerkesztve]

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