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

• #1012 QuarK senior tag zolika- #1011

  Új Válasz 2006-03-12 17:47:14 #1012

  Ú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

  

  QuarK

  senior tag

  válasz zolika- #1011 üzenetére

  uses crt;
  ...
  var ch : char;
  ...
  WriteLn( ''(1) Trapéz'');
  WriteLn( ''(2) Deltoid'');
  repeat
   ch := #0;
   if KeyPressed then
    ch := ReadKey;
  until ch in [ '1', '2'];
  if ( ch = '1') then
   begin
   ...
   end
  else if ( ch = '2') then
   begin
   ...
   end;
  ...
  
  Egy megoldás a sok közül.
  
  [Szerkesztve]

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