Примеры задач

Одномерные массивы


Пусть дан текст, за которым следует точка. Определить, упорядочены ли буквы по алфавиту.

Методика решения

Используемые переменные:
а – массив;
i – номер элемента массива;
s – символ;
flag – логическая переменная.

Для начала считываем с экрана текст посимвольно, пока считанный символ не равен «.», и заносим символы текста в массив.
Затем, по условию задачи, необходимо проверить, упорядочены ли буквы в массиве по алфавиту. Для этого понадобится логическая переменная flag . Изначально её значение равно false . Мы перебираем с помощью цикла все буквы, находящиеся в массиве, до предпоследней и сравниваем каждый элемент со следующим за ним элементом. Если элемент оказался больше следующего, то буквы следуют не по алфавиту. В этом случае переменной flag присваиваем значение true .
После выполнения цикла выводим на экран результат. Если логическая переменная имеет значение true , то буквы не упорядочены по алфавиту, в противном случае – упорядочены.

Листинг программы

Program ex2_4;
Uses crt;
const n=20;
Type t=Array[1..n] Of Char;
Var s:char;a:t;i:Integer;Flag:Boolean;
Begin clrscr;
Writeln('Введите текст до точки ');
i:=1;
repeat
Read(s);
a[i]:=s;
inc(i);
until s='.';
i:=0;
While a[i+2]<>'.' Do
Begin
Inc(i);
If a[i]>=a[i+1] Then Flag:=True;
end;
{Если истено то текст неупорядоченный}
If Flag=True Then Writeln('Текст введен не в алфавитном порядке') Else
Writeln('Текст введен в алфавитном порядке');
Readkey;
End.

Запустить программу






Назад

Закрыть