program zadanie05;

uses crt;

var a,b,c:real;

z,r:char;

procedure centruj(nr_wiersza:byte;tekst:string);

var dl:byte;

begin

dl:=length(tekst);

dl:=round((80-dl)/2);

gotoxy(dl,nr_wiersza);

write(tekst);

end;

begin

repeat

clrscr;

centruj(2,'Podaj liczbe; operator (+,-,/,*); liczbe:');

writeln;readln(a);readln(z);readln(b);

case z of

'+':c:=a+b;

'-':c:=a-b;

'/':c:=a/b;

'*':c:=a*b;

else writeln('Podales zly operator');

end;

centruj(10,'Wynik wynosi:');write(c:8:5);

centruj(13,'Liczymy cos jeszcze (t/n)?');

readln(r);

until (r='n') or (r='N');

centruj (23,'Nacisnij dowolny klawisz');

repeat until keypressed;

end.

program tablica;

type zim=object

procedure miesiac;

procedure tydzien;

function konwers (p:byte;slowo:string):string;

end;

{*******************}

procedure zim.miesiac;

var

tab1:array[1..12] of string[14];

nr:byte;

begin

tab1[1]:='styczen';

tab1[2]:='luty';

tab1[3]:='marzec';

tab1[4]:='kwiecien';

tab1[5]:='maj';

writeln('Podaj numer miesiaca: ');readln(nr);

writeln('Nazwa miesiaca slowna ',tab1[nr]);

end;

{*************************}

procedure zim.tydzien;

var

tab2:array[1..7] of string[12];

nr1:byte;

begin

tab2[1]:='poniedzialek';

tab2[2]:='wtorek';

tab2[3]:='sroda';

writeln('Podaj numer dnia: ');readln(nr1);

writeln('Nazwa dnia slowna ',tab2[nr1]);

end;

{************}

function zim.konwers (p:byte;slowo:string):string;

var

tab3:array [1..3,1..2] of string[12];

w,k:byte; znal:string;

begin

tab3[1,1]:='bialy';tab3[1,2]:='white';

tab3[2,1]:='czerwony';tab3[2,2]:='red';

tab3[3,1]:='niebieski';tab3[3,2]:='blue';

for k:=1 to 2 do

for w:=1 to 3 do

begin

if slowo = tab3[w,k] then

begin

znal:=tab3[w,p];

w:=3;

k:=2;

end

else

znal:='Brak danych';

end;

konwers:=znal;

end;

var grupa:zim; w:string; p:byte;

begin

write ('Podaj kolor w j.: 1 angielskim lub 2 polskim: ');readln(p);

write ('Podaj slowo do konwersji: ');readln(w);

writeln(grupa.konwers(p,w));

readln;

end.

program zadanie06;

uses crt;

var n:integer;

x:byte;

begin

clrscr;

randomize;

x:=0;

while x<15 do

begin

n:=random(201)-100;

x:=x+1;

writeln(x,' liczba to: ',n);

end;

readln;

x:=0;

repeat

n:=random(201)-100;

x:=x+1;

writeln(x,' liczba to: ',n);

until x>=15;

repeat until keypressed;

end.

---