Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program project1;
- uses crt;
- var wybor:integer;
- losowa,gracz,proba,win:integer; //program nr 1
- a,b,c:real; //program nr2
- procedure polowienie;
- begin
- randomize;
- writeln('Gra "Znajdz liczbe"');
- writeln('Ile liczb ma byc w grze?');
- readln(losowa);
- losowa:=random(losowa);
- writeln('Tak wiec zaczynamy!');
- writeln('Podaj liczbe ktora wedlug Ciebie zostala wylosowana');
- readln(gracz);
- repeat
- proba:=proba+1;
- writeln('To jest twoja ',proba,' proba zgadniecia liczby');
- if gracz=losowa then
- begin
- writeln('Brawo! Zgadles liczbe przy ',proba,' probie');
- writeln('Liczba ktora zgadles to: ',losowa);
- win:=1;
- end else
- if gracz>losowa then
- begin
- writeln('Podales za duza liczbe');
- writeln('Podaj liczbe ponownie');
- readln(gracz);
- end else
- if gracz<losowa then
- begin
- writeln('Podales za mala liczbe');
- writeln('Podaj liczbe ponownie');
- readln(gracz);
- end;
- until win=1;
- end;
- procedure obwtrojkat;
- begin
- writeln;
- writeln('Tak wiec oblicze obwod trojkata');
- writeln('Podaj dlugosci bokow a,b,c (w centymetrach)');
- writeln('Podaj a');
- readln(a);
- writeln('Podaj b');
- readln(b);
- writeln('Podaj c');
- readln(c);
- writeln('Obwod tego trojkata to: ',a+b+c:1:1, ' cm');
- end;
- procedure obwkwadrat;
- begin
- writeln;
- writeln('Tak wiec oblicze obwod kwadratu');
- writeln('Podaj dlugosci boku a');
- writeln('Podaj a');
- readln(a);
- writeln('Obwod tego kwadratu to: ',a*4:1:1, ' cm');
- end;
- procedure poletrojkat;
- begin
- writeln;
- writeln('Tak wiec oblicze pole trojkata');
- writeln('Podaj dlugosci bokow a,b,h (w centymetrach)');
- writeln('Podaj a');
- readln(a);
- writeln('Podaj h');
- readln(b);
- writeln('Pole tego trojkata to: ',(a*b)/2:1:1, ' cm kwadratowych');
- end;
- procedure polekwadrat;
- begin
- writeln;
- writeln('Tak wiec oblicze pole kwadratu');
- writeln('Podaj dlugosci boku a (w centymetrach)');
- writeln('Podaj a');
- readln(a);
- writeln('Pole tego trojkata to: ',a*a:1:1, ' cm kwadratowych');
- end;
- begin
- ClrScr;
- writeln('Witaj w moim programie');
- writeln('Wybierz teraz:');
- writeln('1-jezeli chcesz pograc w szukanie liczby przez polowienie');
- writeln('2- jezeli chcesz obliczyc pola i obwody');
- readln(wybor);
- if wybor=1 then
- begin
- polowienie;
- end else
- if wybor=2 then
- begin
- writeln('Wybierz:');
- writeln('1- jezeli chcesz obliczyc obwody');
- writeln('2- jezeli chcesz obliczyc pola');
- readln(wybor);
- if wybor=1 then
- begin
- writeln('1- jezeli chcesz obliczyc obwod trojkata');
- writeln('2- jezeli chcesz obliczyc obwod kwadratu');
- readln(wybor);
- if wybor=1 then
- begin
- obwtrojkat;
- end else
- if wybor=2 then
- begin
- obwkwadrat;
- end else
- writeln('Podales zla liczbe');
- end else
- if wybor=2 then
- begin
- writeln('1- jezeli chcesz obliczyc pole trojkata');
- writeln('2- jezeli chcesz obliczyc pole kwadratu');
- readln(wybor);
- if wybor=1 then
- begin
- poletrojkat;
- end else
- if wybor=2 then
- begin
- polekwadrat;
- end else
- writeln('Wybrales zla liczbe');
- end else
- writeln('Zla liczba');
- end;
- readln;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement