Для каждого столбца подсчитать количество прописных русских букв - Free Pascal
Формулировка задачи:
дан массив 9х9 произвольных символов.определить номера строк,содержащих спецсимволы.для каждого столбца подсчитать количество прописных русских букв
Решение задачи: «Для каждого столбца подсчитать количество прописных русских букв»
textual
Листинг программы
uses crt;
const n=9;
var a:array[1..n,1..n] of char;
i,j,k,s:byte;
begin
clrscr;
randomize;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=chr(random(256));
write(a[i,j]:2);
end;
writeln;
end;
writeln('Номера строк содержащих спецсимволы');
s:=0;
for i:=1 to n do
begin
k:=0;
j:=1;
while(j<=n)and(k=0)do
if a[i,j]<' 'then k:=1
else j:=j+1;
if k=1 then
begin
write(i:2);
s:=1;
end;
end;
writeln;
if s=0 then writeln('Спецсимволов нет');
writeln('Количество прописных русских букв в столбцах');
for j:=1 to n do
begin
k:=0;
for i:=1 to n do
if a[i,j] in ['А'..'Я'] then k:=k+1;
writeln(j,'=',k);
end;
readln
end.
Объяснение кода листинга программы
- Объявление переменных:
- a: массив символов для хранения данных
- i, j, k, s: переменные для управления циклом и подсчета
- Инициализация массива a случайными символами
- Вывод содержимого массива a в консоль
- Поиск строк, содержащих специальные символы
- Инициализация счётчика строк s=0
- Цикл по всем строкам массива a
- Внутри цикла:
- Инициализация счётчика столбцов k=0
- Цикл по всем столбцам массива a
- Проверка, является ли символ специальным (меньше пробела)
- Если символ специальный, увеличиваем счётчик k и записываем номер строки
- После завершения внутреннего цикла, проверяем значение счётчика k
- Если k=1, выводим номер строки и увеличиваем счётчик s
- Вывод количества прописных русских букв в столбцах
- Цикл по всем столбцам массива a
- Внутри цикла:
- Инициализация счётчика k=0
- Цикл по всем строкам массива a
- Проверка, является ли символ прописной русской буквой
- Если символ прописной русской буквы, увеличиваем счётчик k
- Выводим номер столбца и количество прописных русских букв в нём
- Завершение программы и ожидание ввода пользователя