Question

2) Write a Pascal program to do the following for matrix A of size 20x20 (its elements are characters of English alphabet (uppercase and lowercase lettersta (Elemanları İngiliz alfabesinin büyük ve küçük harflerinden oluşan 20x20 lik bir A matrisini kullanarak asagidaki hesaplamalan yapan bir pascal programı yazınız (20 points) a) Find out how many of each letter is repeated in the matrix (matriste her bir harften kaç tane vardır)

The non English parts of the question it's just translation.Please answer. I will give thumbs up

Answer 1

To solve this problem we take a 2D array Matrix 20x20, an alpha array that contains all the small and capital letters in it.

And a freq array to record the frequency of each letter.

Then we scan the Matrix array one letter at a time. And see the position of that letter in alpha array and incrementing the value at that position in the freq array.

For eg, current element scanned in Matrix is 'k', then the position of 'k' in alpha is 11. So, freq[11] will be incremented implying that one 'k' is found in Matrix.  

CODE:

program Alphabet;

uses
SysUtils;
var
i: Integer;
j: Integer;
k: Integer;
alpha: String;
Matrix: array[1..20, 1..20] of char;
freq : array[1..52] of Integer;
begin
Randomize;
  
alpha:='abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ';
for k := 1 to 52 do
freq[k] := 0; //initializing frequency of each letter to 0
for i := 1 to 20 do
for j := 1 to 20 do
Matrix[i, j] := alpha[Random(53)]; //53 = 26(small)+26(capital)+1
for i := 1 to 20 do
begin
for j := 1 to 20 do
Write(Matrix[i, j], ' ');
WriteLn;
end;
  
for i := 1 to 20 do
begin
for j := 1 to 20 do
begin
for k:=1 to 52 do
if Matrix[i,j] = alpha[k] then //if letter found
freq[k]:= freq[k]+1; // then increment frequency of that letter
end;   
end;
WriteLn;
  
//printing the alphabet and its frequency:
for k := 1 to 52 do
begin
Write(alpha[k],' : ',freq[k]);
WriteLn;
end;

end.

OUTPUT:

forget -T? /usr/bin/id.bfd: warning: link.res contains output sections; did you MmoqnO Y zi d E F G Z n KEY b t zo Vdmx Deoj I i x P f V v z t y q A C I r g RT o of IU J JJ g X C x P LEVEM VOD Pbs X q T W E Z k k g Mm Td CrWQQvP a AB INP d P Qh y BMKW V 4 Tsh DU GA ac Da MK x 1 4 y Qxq zg RUm Mm Q cicfoz 41 SNMT u Ggh Gvio t s BFOM p KLWNG YRKM y lur T t x G C B E x V x CX BM1 Xev v K W Dm o H A V x gj DSgQopwt CJ U Z MV v NFLI a ci z JCJ a Kil h A 4oj Mw U V X z 2 l N 4 r yfXr L cm Ty V H A Yg x LW J A b I n A r BnB i Je w PW AMR de Pb J A E li So I Bim R Z LQ i j K U Bn r G JiHjcmW JAP b ZX v JGC 4GY t OLX FAP d t s BR k h L x e BMW PI F E p K XxgS JbQULQlg XD Wt v J PRCqwJP l w x 1 NQSN r

a : 5 b: 6 с 4 d : 7 (D 4 f 4 g : 10 h : 5 i : 10 5 j: k : 1 : 3 11 m 9 n : 5 o : 11 Ip: 4 q: ол r . 8 S . 5 t : 8 u 1 V 9 3 . 8 X . 16 у 6 N 8

: 8 N A : 12 B: 11 C: 11 D : 7 E : 8 F : 5 G : 9 H : 3 I : 7 15 K : 9 L : 9 M : 14 N : 7 O : 4 IP .. 13 12 R: 7 S 5 T 7 U : 8 9 V: W : 7 X 8 Y : 5 Z : 4