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

• #2131 Panther45 csendes tag Panther45 #2130

  Új Válasz 2008-03-04 15:23:31 #2131

  Ú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

  

  Panther45

  csendes tag

  válasz Panther45 #2130 üzenetére

  Találtam eggyet... Csak nem tudom mit művel ez... -.- Nem tudná valaki megmondani nekem hogy mit csinál meg hogy ez a program??? Köszi ...
  program repeat_case_pld;

  var
  op :char;
  x,y :integer;
  e :real;
  ok : boolean;

  begin
  repeat
  write('m–velet sz m1 sz m2 >> ',#9);
  read(op);
  if op='e' then halt; { kil‚p‚s }
  readln(x,y);
  ok:=true;
  case op of
  '+' : e:=x+y;
  '-' : e:=x-y;
  '*' : e:=x*y;
  '/' : if y=0 then begin
  writeln('Null val oszt s!');
  ok:=false;
  end
  else e:=x / y;
  else begin
  ok:=false;
  writeln('Hibas muvelet!');
  end;
  end;
  if ok then writeln('A kifejez‚s ‚rt‚ke: ',#9,e:11:3);
  writeln;
  until false;

  end.

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