Aktív témák

• #13 btotyi tag kiskekes #10

  2005-09-17 18:33:55 #13

  Ö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

  

  btotyi

  tag

  válasz kiskekes #10 üzenetére

  Csak látszólag nem működik mert beolvassa az előző számhoz tartozó entert is. A char típus pedig ordináris típus így nyugodtan használgatod a case-ben is.
  
  
  

  
    Repeat
      write('a:'); read(a);
      write('b:'); read(b);
      repeat
        read(ch);
      until ch <> #13;  
      write('ch:'); read(ch);
      Case ch Of
        '-' : e := a + b;
        '+' : e := a - b;
      End;
      WriteLn(e);
    Until e = 100;
  

Aktív témák