Advertisement
Piksel

2 programy

Dec 3rd, 2016
87
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 3.62 KB | None | 0 0
  1. program project1;
  2.       uses crt, unit1;
  3. var    wybor:integer;
  4.        losowa,gracz,proba,win:integer; //program nr 1
  5.        a,b,c:real; //program nr2
  6.  
  7.   procedure polowienie;
  8.   begin
  9. randomize;
  10. writeln('Gra "Znajdz liczbe"');
  11. writeln('Ile liczb ma byc w grze?');
  12. readln(losowa);
  13. losowa:=random(losowa);
  14.  
  15. writeln('Tak wiec zaczynamy!');
  16. writeln('Podaj liczbe ktora wedlug Ciebie zostala wylosowana');
  17. readln(gracz);
  18. repeat
  19. proba:=proba+1;
  20. writeln('To jest twoja ',proba,' proba zgadniecia liczby');
  21. if gracz=losowa then
  22. begin
  23.   writeln('Brawo! Zgadles liczbe przy ',proba,' probie');
  24.   writeln('Liczba ktora zgadles to: ',losowa);
  25.   win:=1;
  26. end else
  27. if gracz>losowa then
  28. begin
  29.   writeln('Podales za duza liczbe');
  30.   writeln('Podaj liczbe ponownie');
  31.   readln(gracz);
  32. end else
  33. if gracz<losowa then
  34. begin
  35.   writeln('Podales za mala liczbe');
  36.   writeln('Podaj liczbe ponownie');
  37.   readln(gracz);
  38. end;
  39. until win=1;
  40.     end;
  41.  
  42. procedure obwtrojkat;
  43.   begin
  44.     writeln;
  45.     writeln('Tak wiec oblicze obwod trojkata');
  46.     writeln('Podaj dlugosci bokow a,b,c (w centymetrach)');
  47.     writeln('Podaj a');
  48.     readln(a);
  49.     writeln('Podaj b');
  50.     readln(b);
  51.     writeln('Podaj c');
  52.     readln(c);
  53.     writeln('Obwod tego trojkata to: ',a+b+c:1:1, ' cm');
  54.   end;
  55.  
  56. procedure obwkwadrat;
  57.   begin
  58.     writeln;
  59.     writeln('Tak wiec oblicze obwod kwadratu');
  60.     writeln('Podaj dlugosci boku a');
  61.     writeln('Podaj a');
  62.     readln(a);
  63.     writeln('Obwod tego kwadratu to: ',a*4:1:1, ' cm');
  64.   end;
  65.  
  66. procedure poletrojkat;
  67. begin
  68.   writeln;
  69.   writeln('Tak wiec oblicze pole  trojkata');
  70.   writeln('Podaj dlugosci bokow a,b,h (w centymetrach)');
  71.   writeln('Podaj a');
  72.   readln(a);
  73.   writeln('Podaj h');
  74.   readln(b);
  75.   writeln('Pole tego trojkata to: ',(a*b)/2:1:1, ' cm kwadratowych');
  76. end;
  77.  
  78. procedure polekwadrat;
  79. begin
  80. writeln;
  81. writeln('Tak wiec oblicze pole kwadratu');
  82. writeln('Podaj dlugosci boku a (w centymetrach)');
  83. writeln('Podaj a');
  84. readln(a);
  85. writeln('Pole tego trojkata to: ',a*a:1:1, ' cm kwadratowych');
  86. end;
  87.  
  88. begin
  89.   ClrScr;
  90. writeln('Witaj w moim programie');
  91. writeln('Wybierz teraz:');
  92. writeln('1-jezeli chcesz pograc w szukanie liczby przez polowienie');
  93. writeln('2- jezeli chcesz obliczyc pola i obwody');
  94. readln(wybor);
  95.  
  96. if wybor=1 then
  97. begin
  98. polowienie;
  99. end else
  100. if wybor=2 then
  101. begin
  102. writeln('Wybierz:');
  103. writeln('1- jezeli chcesz obliczyc obwody');
  104. writeln('2- jezeli chcesz obliczyc pola');
  105. readln(wybor);
  106.               if wybor=1 then
  107.               begin
  108.               writeln('1- jezeli chcesz obliczyc obwod trojkata');
  109.               writeln('2- jezeli chcesz obliczyc obwod kwadratu');
  110.                           if wybor=1 then
  111.                           begin
  112.                           obwtrojkat;
  113.                           end else
  114.                           if wybor=2 then
  115.                           begin
  116.                           obwkwadrat;
  117.                           end else
  118.                           writeln('Podales zla liczbe');
  119.  
  120.               end else
  121.               if wybor=2 then
  122.               begin
  123.               writeln('1- jezeli chcesz obliczyc pole trojkata');
  124.               writeln('2- jezeli chcesz obliczyc pole kwadratu');
  125.                           if wybor=1 then
  126.                           begin
  127.                           poletrojakt;
  128.                           end else
  129.                           if wybor=2 then
  130.                           begin
  131.                           polekwadrat;
  132.                           end else
  133.                           writeln('Wybrales zla liczbe');
  134.  
  135.               end else
  136. writeln('Zla liczba');
  137.  
  138.  
  139. readln;
  140. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement