Задача на текстовый тип данных.

[Fedos]

Помогите пожалуйста решить задачу.А то из инсты выгоняют
Задача.
Даны наименования вузов.Выяснить какие из них начинаються на букву "М".

Мне надо что бы прога в ряде слов проверяли первую букву каждого и сравнивала её с буквой м ( if[i][1]=M then) и если совпадает то выводила эти слова,а если нет таких то чтоб писала что их нет.

ПОМОГИТЕ!!!

[WittySpark]

Это примерное решение.
Реализовал с входными и выходными файлами.
В случае чего, можно подогнать под другой формат данных.
Подробный комментарий тебе в помощь. Наслаждайся!

[Fedos]

У меня так получилось только она всё равно работает не правильно в чем дело не пойму....


program l3;
var
st:array [1..5] of string;
i,p:integer;
m,M:char;
begin
writeln('BBedite 5 Byzof');
for i:=1 to 5 do readln(st[i]);
Readln(m);
For i:=1 to 5 do
if st[ i ][1]=m or st[ i ][1]=M
then
begin
writeln(st[i]);
p:=p+1;
end;
if p=0 then
writeln('Net ');
end.

[puporev]

Readln(m);
For i:=1 to 5 do
if st[i,1]=m

Нужно
For i:=1 to 5 do
if st[i][1]='m'; (или 'м')

[mid]

Сообщение от puporev

Нужно
For i:=1 to 5 do
if st[i][1]='m'; (или 'м')

Немного не правильно. Переменную m ввели через ReadLn выше. Окончательный вариант:
For i:=1 to 5 do
if st[i][1]= m;

[puporev]

Зачем вводить переменную, если мы конкретно ищем букву 'м'?

[Fedos]

Как ни крути а она вс равно выдаёт что вузов нет вообще.
а на до что бы она выводила все вузы на букву М

[B_N]

Чего-то я вообще ничего не пойму.
Что вводится по Readln(m);?
Как можно сравнивать один символ со строкой? (if st[i][1]= m
Где инициализируется переменная p, на основе которой потом принимаются решения?

[Fedos]

Это я не сравниваю символ со строкой а проверяю в строке первую букву.тут вроде всё правильно.А вот с (p) действительно что то не так.

[B_N]

Еще, как это вообще компилируется? Что такое "user cet;"?
Откуда следует, что Вы "проверяете в строке первую букву"?
---------------
Еще, где вообще определяется переменная m? Что это вообще такое? Компилятор на это орёт, какой смысл искать тонкие ошибки в тексте, если он даже не компилируется?