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

• #902 8472 aktív tag

  Új Válasz 2005-10-23 23:53:24 #902

  Ú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

  

  8472

  aktív tag

  Sziasztok.
  Egy kis segítséget szeretnék kérni Turbo Pascal programozásban. Egy progit szeretnék csinálni, ami visszadja egy szám reciprokát.
  
  

  
  uses crt;
  var x:integer;
        y:real;
  const szov:string='Nincs reciprok.';
  
  begin
          clrscr;
          readln(x);
          if x=0 then
             begin
                write(szov);
             end
          else
             begin
                y:=(1/x);
                write(y); 
             end;
          readkey;
  end.
  

  
  
  Ezzel csak az a problémám, hogy ha megadok neki egy számot, akkor nem igazán azt írja ki, amit szeretnék. Pl.: ha 2-t adom meg akkor kiírja, hogy 5.''ide sok nullát''E-01
  Hogy tudnám megcsinálni, hogy ilyenkor rendesen azt írja ki, hogy 0,5?

  [Szerkesztve]

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