OCENY:
uses crt;

var

a:byte;

begin

writeln('Podaj liczbe od 1 do 6');

readln(a);

case a of

1: writeln('Niedostateczny');

2: writeln('Dopuszczajacy');

3: writeln('Dostateczny');

4: writeln('Dobry');

5: writeln('Bardzo dobry');

6: writeln('Celujacy');

else writeln('Brak oceny.') ;

end;

readkey;

end.

Dni Tygodnia:
uses crt;

var

a:byte;

begin

writeln('Podaj liczbe od 1 do 7');

readln(a);

case a of

1: writeln('Poniedzialek');

2: writeln('Wtorek');

3: writeln('Sroda');

4: writeln('Czwartek');

5: writeln('Piatek');

6: writeln('Sobota');

7: writeln('Niedziela');

else writeln('Brak dnia tygodnia.') ;

end;

readkey;

end.

Miesiące:
uses crt;

var

a:byte;

begin

writeln('Podaj liczbe od 1 do 12');

readln(a);

case a of

1: writeln('Styczen');

2: writeln('Luty');

3: writeln('Marzec');

4: writeln('Kwiecien');

5: writeln('Maj');

6: writeln('Czerwiec');

7: writeln('Lipiec');

8: writeln('Sierpien');

9: writeln('Wrzesien');

10: writeln('Pazdziernik');

11: writeln('Listopad');

12: writeln('Grudzien');

else writeln('Nie ma takiego miesiaca.') ;

end;

readkey;

end.

Mnożenie dzielenie dodawanie oddejomowanie:
uses crt;

var

a,b:integer;

z:byte;

begin

writeln('Podaj pierwsza liczbe.');

readln(a);

writeln('Podaj druga liczbe.');

readln(b);

writeln('Dodawanie - wybierz 1,odejmowanie - wybierz 2, mnozenie - wybierz 3,dzielenie -wybierz 4.');

readln(z);

case z of

1: writeln('Wynik dodawania to: ',a+b);

2: writeln('Wynik odejmowania to: ',a-b);

3: writeln('Wynik mnozenia to: ',a*b);

4: writeln('Wynik dzielenia to: ',a/b);

else writeln('Nie ma takiego dzialania.');

end;

readkey;

end.

Obiczyć pole figury trójkąt prostokąt kwadrat
uses crt;

var

P:single;

a,b,h:integer;

w:byte;

begin

writeln('Wybierz pole figury, ktore chcesz obliczyc:');

writeln('1-trojkat,2-prostokat,3-kwadrat.');

readln(w);

case w of

1: begin

writeln('Podaj bok a.');

readln(a);

writeln('Podaj wysokosc.');

readln(h);

P:=1.5*a*h;

writeln('Pole trojkata wynosi ',P:0:0);

end;

2: begin

writeln('Podaj bok a.');

readln(a);

writeln('Podaj bok b.');

readln(b);

P:=a*b;

writeln('Pole prostokata wynosi ',P:0:0);

end;

3: begin

writeln('Podaj bok a.');

readln(a);

P:=sqr(a);

writeln('Pole kwadratu wynosi ',P:0:0);

end;

else writeln('Nieprawidlowy numer figury.');

end;

readkey;

end.

Pole trójkąt koło romb:
uses crt;

var

P:single;

a,b,h:integer;

w:byte;

const

PI=3.14;

begin

clrscr;

writeln('Wybierz pole figury, ktore chcesz obliczyc:');

writeln('1-trojkat,2-kolo,3-romb.');

readln(w);

case w of

1: begin

writeln('Podaj bok a.');

readln(a);

writeln('Podaj wysokosc.');

readln(h);

P:=0.5*a*h;

writeln('Pole trojkata wynosi ',P:0:0);

end;

2: begin

writeln('Podaj promien');

readln(a);

P:=sqr(a)*PI;

writeln('Pole kola wynosi ',P:0:0);

end;

3: begin

writeln('Podaj bok a.');

readln(a);

writeln('Podaj wysokosc.');

readln(h);

P:=a*h;

writeln('Pole rombu wynosi ',P:0:0);

end;

else writeln('Nieprawidlowy numer figury.');

end;

readkey;

end.

Angielski po kolory jak się pisze
uses crt;

var

a:byte;

begin

clrscr;

writeln('Test znajomosci kolorow po angielsku.');

writeln('Niebieski po angielsku to (wybierz odpowiednie) :');

writeln('1-red');

writeln('2-green');

writeln('3-blue');

writeln('4-pink');

readln(a);

case a of

1: writeln('Zla odpowiedz.');

2: writeln('Zla odpowiedz.');

3: writeln('Dobra odpowiedz.');

4: writeln('Zla odpowiedz.');

end;

writeln('Bialy po angielsku to (wybierz odpowiednie) :');

writeln('1-red');

writeln('2-black');

writeln('3-blue');

writeln('4-white');

readln(a);

case a of

1: writeln('Zla odpowiedz.');

2: writeln('Zla odpowiedz.');

3: writeln('Zla odpowiedz.');

4: writeln('Dobra odpowiedz.');

end;

writeln('Zielony po angielsku to (wybierz odpowiednie) :');

writeln('1-red');

writeln('2-green');

writeln('3-blue');

writeln('4-pink');

readln(a);

case a of

1: writeln('Zla odpowiedz.');

2: writeln('Dobra odpowiedz.');

3: writeln('Zla odpowiedz.');

4: writeln('Zla odpowiedz.');

end;

writeln('Czarny po angielsku to (wybierz odpowiednie) :');

writeln('1-yellow');

writeln('2-pink');

writeln('3-black');

writeln('4-brown');

readln(a);

case a of

1: writeln('Zla odpowiedz.');

2: writeln('Zla odpowiedz.');

3: writeln('Dobra odpowiedz.');

4: writeln('Zla odpowiedz.');

end;

writeln('Zolty po angielsku to (wybierz odpowiednie) :');

writeln('1-yellow');

writeln('2-blue');

writeln('3-brown');

writeln('4-white');

readln(a);

case a of

1: writeln('Dobra odpowiedz.');

2: writeln('Zla odpowiedz.');

3: writeln('Zla odpowiedz.');

4: writeln('Zla odpowiedz.');

end;

writeln('Rozowy po angielsku to (wybierz odpowiednie) :');

writeln('1-red');

writeln('2-green');

writeln('3-blue');

writeln('4-pink');

readln(a);

case a of

1: writeln('Zla odpowiedz.');

2: writeln('Zla odpowiedz.');

3: writeln('Zla odpowiedz.');

4: writeln('Dobra odpowiedz.');

end;

writeln('Czerwony po angielsku to (wybierz odpowiednie) :');

writeln('1-red');

writeln('2-green');

writeln('3-blue');

writeln('4-pink');

readln(a);

case a of

1: writeln('Dobra odpowiedz.');

2: writeln('Zla odpowiedz.');

3: writeln('Zla odpowiedz.');

4: writeln('Zla odpowiedz.');

end;

readkey;

end.

---