fork download
  1. Program kalkulator;
  2. USES
  3. Crt; { Modul standardowy }
  4. VAR
  5. wybor : Char; { Deklaracja zmiennej Numer typu znakowego }
  6. a,b,suma,roznica,iloczyn,iloraz:Real;
  7. BEGIN
  8. ClrScr;
  9. Writeln;
  10. textcolor(yellow);
  11. Writeln (' Program wczytuje numer (1-3) i wykonuje odpowiednie dzialania matematyczne');
  12. Writeln (' znajdujacy sie pod wczytanym numerem.');
  13. Writeln;
  14. Writeln (' 1) DODAJ . ');
  15. Writeln (' 2) ODEJMIJ.');
  16. Writeln (' 3) POMNŕ˝.');
  17. Writeln;
  18. textcolor(lightgreen);
  19. Write (' Podaj numer (1-3) i nacisnij ENTER : ');
  20. Read (wybor); { Wczytanie podanego numeru }
  21. Writeln;
  22. Textcolor(lightblue);
  23.  
  24. CASE wybor OF { Pocz¤tek instrukcji CASE }
  25.  
  26. '1':begin
  27. Writeln(' DODAWANIE LICZB');
  28. Write('Podaj pierwsza liczba -');
  29. Readln(a);
  30. Write('Podaj druga liczba -');
  31. Readln(b);
  32. suma:=a+b;
  33. Writeln('Suma a+b=',suma:8:2);
  34. end;
  35.  
  36. '2':begin
  37. Writeln(' ODEJMOWANIE LICZB');
  38. Write(' Podaj pierwsza liczba -');
  39. Readln(a);
  40. Write('Podaj druga liczba -');
  41. Readln(b);
  42. roznica:=a-b;
  43. Writeln('roznica a-b=',roznica:8:2);
  44. end;
  45.  
  46. '3':begin
  47. Writeln(' MNOZENIE LICZB');
  48. Write('Podaj pierwsza liczba -');
  49. Readln(a);
  50. Write('Podaj druga liczba -');
  51. Readln(b);
  52. iloczyn:=a*b;
  53. Writeln('Iloczyn a*b=',iloczyn:8:2);
  54. end;
  55.  
  56. '4':begin
  57. Writeln(' DZiELENIE LICZB');
  58. Write('Podaj pierwsza liczba -');
  59. Readln(a);
  60. Write('Podaj druga liczba -');
  61. Readln(b);
  62. IF b=0 THEN writeln('NIE DZIEL PRZEZ 0')
  63. ELSE
  64. begin
  65. iloraz:=a/b;
  66. Writeln('Iloraz a/b=',iloraz:8:2);
  67. end;
  68. end;
  69. end; { Koniec instrukcji CASE }
  70.  
  71. Readln;
  72. Writeln; Writeln; Writeln;
  73. Write(' Nacisnij klawisz ENTER...');
  74. Readln;
  75. END.
Compilation error #stdin compilation error #stdout 0s 0KB
stdin
Standard input is empty
compilation info
prog.cpp:11:10: warning: character constant too long for its type [enabled by default]
prog.cpp:12:10: warning: character constant too long for its type [enabled by default]
prog.cpp:14:10: warning: character constant too long for its type [enabled by default]
prog.cpp:15:10: warning: character constant too long for its type [enabled by default]
prog.cpp:16:10: warning: character constant too long for its type [enabled by default]
prog.cpp:19:8: warning: character constant too long for its type [enabled by default]
prog.cpp:24:1: error: stray ‘\302’ in program
prog.cpp:24:1: error: stray ‘\244’ in program
prog.cpp:27:9: warning: character constant too long for its type [enabled by default]
prog.cpp:28:7: warning: character constant too long for its type [enabled by default]
prog.cpp:30:7: warning: character constant too long for its type [enabled by default]
prog.cpp:33:9: warning: character constant too long for its type [enabled by default]
prog.cpp:37:9: warning: character constant too long for its type [enabled by default]
prog.cpp:38:7: warning: character constant too long for its type [enabled by default]
prog.cpp:40:7: warning: character constant too long for its type [enabled by default]
prog.cpp:43:9: warning: character constant too long for its type [enabled by default]
prog.cpp:47:9: warning: character constant too long for its type [enabled by default]
prog.cpp:48:7: warning: character constant too long for its type [enabled by default]
prog.cpp:50:7: warning: character constant too long for its type [enabled by default]
prog.cpp:53:9: warning: character constant too long for its type [enabled by default]
prog.cpp:57:9: warning: character constant too long for its type [enabled by default]
prog.cpp:58:7: warning: character constant too long for its type [enabled by default]
prog.cpp:60:7: warning: character constant too long for its type [enabled by default]
prog.cpp:62:21: warning: character constant too long for its type [enabled by default]
prog.cpp:66:9: warning: character constant too long for its type [enabled by default]
prog.cpp:73:7: warning: character constant too long for its type [enabled by default]
prog.cpp:1:1: error: ‘Program’ does not name a type
prog.cpp:2:1: error: ‘USES’ does not name a type
prog.cpp:3:6: error: expected unqualified-id before ‘{’ token
prog.cpp:4:1: error: ‘VAR’ does not name a type
prog.cpp:5:15: error: expected unqualified-id before ‘{’ token
prog.cpp:6:1: error: ‘a’ does not name a type
prog.cpp:7:1: error: ‘BEGIN’ does not name a type
prog.cpp:9:1: error: ‘Writeln’ does not name a type
prog.cpp:10:10: error: expected constructor, destructor, or type conversion before ‘(’ token
prog.cpp:11:9: error: expected constructor, destructor, or type conversion before ‘(’ token
prog.cpp:12:9: error: expected constructor, destructor, or type conversion before ‘(’ token
prog.cpp:13:1: error: ‘Writeln’ does not name a type
prog.cpp:14:9: error: expected constructor, destructor, or type conversion before ‘(’ token
prog.cpp:15:9: error: expected constructor, destructor, or type conversion before ‘(’ token
prog.cpp:16:9: error: expected constructor, destructor, or type conversion before ‘(’ token
prog.cpp:17:1: error: ‘Writeln’ does not name a type
prog.cpp:18:10: error: expected constructor, destructor, or type conversion before ‘(’ token
prog.cpp:19:7: error: expected constructor, destructor, or type conversion before ‘(’ token
prog.cpp:20:6: error: expected constructor, destructor, or type conversion before ‘(’ token
prog.cpp:20:15: error: expected unqualified-id before ‘{’ token
prog.cpp:21:1: error: ‘Writeln’ does not name a type
prog.cpp:22:10: error: expected constructor, destructor, or type conversion before ‘(’ token
prog.cpp:24:1: error: ‘CASE’ does not name a type
prog.cpp:26:1: error: expected unqualified-id before '1'
prog.cpp:28:6: error: expected constructor, destructor, or type conversion before ‘(’ token
prog.cpp:29:7: error: expected constructor, destructor, or type conversion before ‘(’ token
prog.cpp:30:6: error: expected constructor, destructor, or type conversion before ‘(’ token
prog.cpp:31:7: error: expected constructor, destructor, or type conversion before ‘(’ token
prog.cpp:32:1: error: ‘suma’ does not name a type
prog.cpp:33:8: error: expected constructor, destructor, or type conversion before ‘(’ token
prog.cpp:34:1: error: ‘end’ does not name a type
prog.cpp:36:1: error: expected unqualified-id before '2'
prog.cpp:38:6: error: expected constructor, destructor, or type conversion before ‘(’ token
prog.cpp:39:7: error: expected constructor, destructor, or type conversion before ‘(’ token
prog.cpp:40:6: error: expected constructor, destructor, or type conversion before ‘(’ token
prog.cpp:41:7: error: expected constructor, destructor, or type conversion before ‘(’ token
prog.cpp:42:1: error: ‘roznica’ does not name a type
prog.cpp:43:8: error: expected constructor, destructor, or type conversion before ‘(’ token
prog.cpp:44:1: error: ‘end’ does not name a type
prog.cpp:46:1: error: expected unqualified-id before '3'
prog.cpp:48:6: error: expected constructor, destructor, or type conversion before ‘(’ token
prog.cpp:49:7: error: expected constructor, destructor, or type conversion before ‘(’ token
prog.cpp:50:6: error: expected constructor, destructor, or type conversion before ‘(’ token
prog.cpp:51:7: error: expected constructor, destructor, or type conversion before ‘(’ token
prog.cpp:52:1: error: ‘iloczyn’ does not name a type
prog.cpp:53:8: error: expected constructor, destructor, or type conversion before ‘(’ token
prog.cpp:54:1: error: ‘end’ does not name a type
prog.cpp:56:1: error: expected unqualified-id before '4'
prog.cpp:58:6: error: expected constructor, destructor, or type conversion before ‘(’ token
prog.cpp:59:7: error: expected constructor, destructor, or type conversion before ‘(’ token
prog.cpp:60:6: error: expected constructor, destructor, or type conversion before ‘(’ token
prog.cpp:61:7: error: expected constructor, destructor, or type conversion before ‘(’ token
prog.cpp:62:1: error: ‘IF’ does not name a type
prog.cpp:66:8: error: expected constructor, destructor, or type conversion before ‘(’ token
prog.cpp:67:1: error: ‘end’ does not name a type
prog.cpp:68:1: error: ‘end’ does not name a type
prog.cpp:69:1: error: ‘end’ does not name a type
prog.cpp:69:6: error: expected unqualified-id before ‘{’ token
prog.cpp:71:1: error: ‘Readln’ does not name a type
prog.cpp:72:1: error: ‘Writeln’ does not name a type
prog.cpp:72:10: error: ‘Writeln’ does not name a type
prog.cpp:72:19: error: ‘Writeln’ does not name a type
prog.cpp:73:6: error: expected constructor, destructor, or type conversion before ‘(’ token
prog.cpp:74:1: error: ‘Readln’ does not name a type
prog.cpp:75:1: error: ‘END’ does not name a type
stdout
Standard output is empty