Kalkulator

Posted on June 6, 2011, 8:01 pm UTC by Progr3ssive (12 months ago)

Code (highlighted for Pascal)

 Copy     Print
  1. program kalkulator;        // chujowo to wygląda ale działa na realach
  2.  
  3. uses crt;
  4.  
  5. var
  6. a,b :real;
  7. c :char;
  8.  
  9. begin
  10. c:='6';
  11. repeat
  12. clrscr();
  13. writeln('Wybierz dzialanie');
  14. writeln('1. Dodawanie');
  15. writeln('2. Odejmowanie');
  16. writeln('3. Dzielenie');
  17. writeln('4. Mnozenie');
  18. writeln('0. Wyjscie');
  19. c:=readkey();
  20. clrscr();
  21. if (c='1') or (c='2') or (c='3') or (c='4') then
  22. begin
  23. writeln('Podaj liczbe a');
  24. read(a);
  25. writeln('Podaj liczbe b');
  26. read(b);
  27. case c of
  28. '1':
  29. begin
  30. writeln('suma liczb ',a:15:6,' i ',b:15:6,' wynosi ',a+b:15:6);
  31. end;
  32. '2':
  33. begin
  34. writeln('roznica liczb ',a:15:6,' i ',b:15:6,' wynosi ',a-b:15:6);
  35. end;
  36. '3':
  37. begin
  38. writeln('wynik dzielenia ',a:15:6,' przez ',b:15:6,' wynosi ',a/b:15:6);
  39. end;
  40. '4':
  41. begin
  42. writeln('wynik mnozenia ',a:15:6,' i ',b:15:6,' wynosi ',a*b:15:6);
  43. end;
  44. else writeln('patrz co klikasz lamusie ;)');
  45. end;
  46. readln();
  47. readln();
  48. end;
  49. until c='0';
  50. end.