Задание
Создать одномерный массив, который состоит из N случайных 3-х значительных чисел, не превищающих 300. Определить индексы элементов масива, значение которых является код букв русского алфавита.
Выбор алгоритма решения задачи
Для решения данной задачи, необходимо сделать цикл, внести у него цилостни числа, вывести их и вывести на печать те индексы, которые имеют код букв русского алфавита.
Описание решения задачи
Для данной задачи необходимо переменные типа byte для целого простого числа. А также массив A. С помощью функции char(A[i]), мы можем знать, какая это буква.
Схема алгоритма решения задачи
1. Схема главной программы
2 Схема подпрограммы
Текст програми
Program lab6;
const n = 50;
var
i:byte;
B:array[1..n] of word;
procedure proc(A:array of word); {процедура нахождения русских букв}
begin
for i:=1 to n do
if((129 <= A[i]) and (A[i] <= 160)) or {проверка цифры на вхождение}
((161 <= A[i]) and (A[i] <=175)) or {русского кода}
((225 <= A[i]) and (A[i] <= 242)) then
Writeln('index = ',i+1,'; bukva - ''',char(A[i]),'''',' A[i] = ',A[i]);
end;
Begin
writeln;
for i:=1 to n do {цикл заполнения}
B[i] := random(300);
for i:=1 to n do Begin {цикл вывода}
write(' ',i,' = ',B[i]);
if (i mod 5 = 0) then writeln;
end;
writeln;
writeln;
proc(B); {вызов процедуры}
readln;
end.
Результати роботи програми
