Witam..
Moim zadaniem jest napisanie programu w Pascalu, który wypełni tablicę dwuwymiarową losowymi małymi literami od a do z, po czym policzy ile i jakich liter się w niej powtarza, a na koniec wypisze całą tabelę oraz litery powtarzające się.
Wypełniłem tabelę już literami (z wykorzystaniem ASCII), a teraz myślę jak by tu policzyć te litery, które się powtarzają. Prowizorycznie użyłem pętli Repeat, ale nie jestem pewny czy słusznie (fragment w kropkach) i nie mam pojęcia co dalej.
Proszę o pomoc i wskazówki jak to zapisać...
program Project1;
uses
SysUtils;
const
rozmiar=15;
type
tablica=array[1..rozmiar,1..rozmiar] of Char;
var
t:tablica;
x,y,i,j,k:integer;
begin
randomize;
for x:=1 to rozmiar do
for y:=1 to rozmiar do
t[x,y]:=chr(random(25)+97);
...................................
x:=0;
y:=0;
repeat
if t[x,y]=t[x+1,y] then
k:=k+1;
x:=x+1;
until x=rozmiar;
.....................................
Writeln;
Writeln('Tablica wyglada nastepujaco.');
Writeln;
for x:=1 to rozmiar do
for y:=1 to rozmiar do
Write(t[x,y]);
Readln;
end.