проверьте код пожалуйста! массив. Рascal

[-ushёl-]

Задать симметричную матрицу 10*10 из букв F,G,K,L,N и подсчитать кол.-во каждой из букв в каждом столбце и в каждой строке.

type
simvol=set of char;
var
b:simvol;
M:array[1..10,1..10]of char;
i,j : integer;
sf,sg,sk,sl,sn:integer;
begin
randomize;
b:=['F','G','K','L','N'];
for i:=1 to 10 do
 for j:=1 to 10 do
  begin
  repeat
  M[i,j] := chr(random(9)+70);
  until M[i,j] in b;
  end;
  for i:=1 to 10 do
   begin
    writeln;
    for j:=1 to 10 do
     write(M[i,j]:3);
   end;
     begin
      sf:=0;
      sg:=0;
      sk:=0;
      sl:=0;
      sn:=0;
      for i:=1 to 10 do
       for j:=1 to 10 do
        begin
         if M[i,j] = 'F' then sf:=sf+1;
         if m[i,j] = 'G' then sg:=sg+1;
         if m[i,j] = 'K' then sk:=sk+1;
         if m[i,j] = 'L' then sl:=sl+1;
         if m[i,j] = 'N' then sn:=sn+1;
        end;
        writeln;
        writeln('колличество букв в матрице:');
        writeln('F-',sf,'   ','G-',sg,'   ','K-',sk,'   ','L-',sl,'   ','N-',sn);
     end;
    end.

возможно ли подчитать действительно сколько букв находиться в строке и встолбце?суммируеться ведь только сумма всех букв в массиве...

[HoLToFF]

Наверно не совсем рационально, но вот как у меня получилось:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
c=10; // размерность матрицы

type
simvol=set of char;

var
b:simvol;
M:array[1..c,1..c]of char;
i,j : integer;
f, g, k, l, n:integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
randomize;
b:=['F','G','K','L','N'];

  for i:=1 to c do
    for j:=1 to c do
      begin
        repeat
        M[i,j] := chr(random(9)+70);
        until M[i,j] in b;
      end;

  for i:=1 to c do
    begin
      for j:=1 to c do
      write(M[i,j]:3);
    writeln;
    end;

writeln;

  begin
  f:=0; g:=0; k:=0; l:=0; n:=0;

    for i:=1 to c do
      begin
      for j:=1 to c do
        begin
          case M[i,j] of
          'F': inc(f);
          'G': inc(g);
          'K': inc(k);
          'L': inc(l);
          'N': inc(n);
          end;
        end;
writeln('V ',i,'-i stroke F-',f,' ','G-',g,' ','K-',k,' ','L-',l,' ','N-',n);
f:=0; g:=0; k:=0; l:=0; n:=0;
      end;

writeln;

    for j:=1 to c do
      begin
      for i:=1 to c do
        begin
          case M[i,j] of
          'F': inc(f);
          'G': inc(g);
          'K': inc(k);
          'L': inc(l);
          'N': inc(n);
          end;
        end;
writeln('V ',j,'-i stolbce F-',f,' ','G-',g,' ','K-',k,' ','L-',l,' ','N-',n);
f:=0; g:=0; k:=0; l:=0; n:=0;
      end;

    for i:=1 to c do
      begin
      for j:=1 to c do
        begin
          case M[i,j] of
          'F': inc(f);
          'G': inc(g);
          'K': inc(k);
          'L': inc(l);
          'N': inc(n);
          end;
        end;
      end;


writeln;
writeln('kolichestvo bukv v matrice:');
writeln('F-',f,' ','G-',g,' ','K-',k,' ','L-',l,' ','N-',n);
readln
end;
end.

[Stilet]

А я бы подсчитывал прямо во время ввода.

[Simply-Art]

Зачем плодить одинаковые темы? Тебе той мало было, извини за резкость.

[-ushёl-]

хотел подкорректировать вначале!а получилось как всегда...жаль что нельзя самому удалять тему.