Create a gist now

Instantly share code, notes, and snippets.

What would you like to do?
PROGRAM tablice;
USES
crt;
TYPE
tablica=ARRAY[0..50,0..50] of integer;
VAR
wybor:char; {wybor opcji z menu}
t1,t2,t3:tablica; {tablice na ktorych program wykona obliczenia}
i,j:integer; {liczniki w petlach. i - do wierszy, j - do kolumn}
liczba_wierszy,liczba_kolumn:integer; {jak nazwa wskazuje.}
procedure wyswietl_powitanie;
begin
clrscr;
textcolor(13);
writeln('*****');
writeln('*');
writeln('*');
writeln('*');
gotoxy(76,1);
write('*****');
gotoxy(80,2);
write('*');
gotoxy(80,3);
write('*');
gotoxy(80,4);
write('*');
textcolor(14);
gotoxy(13,5);
write('Witaj w programie sluzacym do dodawania i odejmowania danych');
gotoxy(30,6);
write('zapisanych w tablicach.');
gotoxy(60,20);
textcolor(white);
writeln;
writeln;
write('Wcisnij enter, aby kontynuowac...');
readln;
end;
procedure wypelnij_tablice(var t:tablica);
begin
writeln('Podaj element:');
for i:=1 to liczba_wierszy do
begin
for j:=1 to liczba_kolumn do
begin
write('wiersz ',i,', kolumna ',j,': ');
readln(t[i][j]);
end;
writeln;
end;
writeln('Tablica zostala wypelniona liczbami.');
writeln;
end;
procedure wyswietl_tablice(t:tablica);
begin
for i:=1 to liczba_wierszy do
begin
for j:=1 to liczba_kolumn do
begin
write(t[i][j]);
write(' ');
end;
writeln;
end;
end;
procedure dodawaj_tablice;
begin
clrscr;
for i:=1 to liczba_wierszy do
begin
for j:=1 to liczba_kolumn do
begin
t3[i][j]:= t1[i][j] + t2[i][j];
end;
writeln;
end;
writeln('Dodawanie zostalo wykonane.');
writeln;
writeln('Oto wynik:');
wyswietl_tablice(t3);
readln;
end;
procedure odejmuj_tablice;
begin
clrscr;
for i:=1 to liczba_wierszy do
begin
for j:=1 to liczba_kolumn do
begin
t3[i][j]:= t1[i][j] - t2[i][j];
end;
writeln;
end;
writeln('Odejmowanie zostalo wykonane.');
writeln;
writeln('Oto wynik:');
wyswietl_tablice(t3);
readln;
end;
BEGIN
wyswietl_powitanie;
repeat
clrscr;
writeln ('MENU');
writeln('I -> Wyswietlenie informacji o programie');
writeln('U -> Ustawienia tablic');
writeln('P -> Wypelnienie tablicy liczbami');
writeln('W -> Wyswietlenie zawartosci tablic');
writeln('D -> Dodawanie tablic');
writeln('O -> Odejmowanie tablic');
writeln('X -> Zakonczenie programu');
readln(wybor);
case wybor of
'I' : wyswietl_powitanie;
'U' :
begin
{podawanie wartosci poczatkowych}
clrscr;
write('Podaj liczbe wierszy: ');
readln(liczba_wierszy);
writeln;
write('Podaj liczbe kolumn tablic: ');
readln(liczba_kolumn);
writeln;
write('Ustawienia zapisane.');
readln;
end;
'P' :
begin
{wypelnianie tablic}
clrscr;
writeln('Wypelnij pierwsza tablice:');
wypelnij_tablice(t1);
writeln;
writeln('Wypelnij druga tablice:');
wypelnij_tablice(t2);
readln;
end;
'W' :
begin
{wyswietlenie zawartosci tablic}
clrscr;
writeln('Oto zawartosc pierwszej tablicy:');
wyswietl_tablice(t1);
writeln;
writeln('Oto zawartosc drugiej tablicy:');
wyswietl_tablice(t2);
readln;
end;
'D' : dodawaj_tablice;
'O' : odejmuj_tablice;
else
{zakonczenie}
end;
until wybor='x';
END.
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment