Текст программы. PROGRAM Simbol_Array;

PROGRAM Simbol_Array;

{ Программа Лабораторной работы N 4

Вариант N 31.

гр. Я-007, ст. А.Я. Умненькая }

VAR

N, Ni, Nmax, i, j: integer;

SimI, SimMax: char;

Simbol: array[1..100] of char;

Fout: text;

BEGIN {Выполняемый блок. Первый раздел – ввод данных }

N: =0;

writeln('Вводить по одному не более 100 символов, ');

writeln(' Для завершения – ввести символ "." ');

repeat

writeln('Введи очередной символ');

N: = N + 1;

readln(Simbol[N]);

until (N = 100) or (Simbol[N] = '.');

if Simbol[N]= '.' then N: = N - 1; { Последний символ, если он – точка, рассматриваться не будет }

if N < 1 then

writeln('Нельзя рассматривать меньше 1 символа')

else

begin

Assign(Fout, 'UMNIK4.RES'); {связали Fout с UMNIK.DAT}

ReWrite(Fout); {открыли файл для записи }

writeln(Fout, 'Исходный массив из ', N, ' элементов');

for i: =1 to N do

begin

write(Fout, Simbol[i]: 2); { печать в текущей строке}

if i mod 30 = 0 then writeln(Fout); { если номер

элемента кратен 30 переходим на новую строку}

end;

writeln(Fout);

{ Основной раздел – поиск номера }

Nmax: = 0; { количество наиболее частого символа }

SimMax: = Simbol[1];

for i: =1 to N do { внешний цикл перебора символов }

begin

SimI: = Simbol[i];

Ni: = 0;

for j: =i to N do { внутренний цикл перебора символов }

if Simbol[j] = SimI then Ni: =Ni+1;

if Ni> Nmax then {если этот символ встретился чаще, }

begin {запомним его и число его вхождений}

Nmax: = Ni;

SimMax: = SimI;

end;

end;

{ Раздел вывода результатов поиска }

if Nmax = 1 then

writeln(Fout, 'Все символы входят по 1 разу')

else

write(Fout, 'Символ " ', SimMax, '" встретился ', Nmax,

' раз');

{ далее определим, если Nmax кончается на 2, 3, 4 и не во втором десятке, изменим окончание, например, " 23 раза" }

if (Nmax mod 10 < 5) and (Nmax mod 10 > 1) and

(Nmax div 10 < > 1)

then writeln(Fout, 'а');

end;

Close(Fout);

END.

Результаты работы

(содержимое файла UMNIK.RES)

Исходный массив из 95 элементов

Н е г о в о р и т е м н е, о н у м е р - о н ж и в е т! П

У с т ь ж е р т в е н н и к р а з б и т - о г о н ь е щ е п

Ы л а е т, п у с т ь р о з а с о р в а н а - о н а е щ е ц

В е т е т

Символ " е" встретился 14 раз

Варианты заданий

Таблица 17. Варианты заданий лабораторной работы №4