Выяснить, содержится ли введенная буква в тексте - Pascal ABC

Формулировка задачи:

Приветствую! Помогите решить проблему. Задача: Даётся текст и буква.Выяснить если данная буква содержится в тексте.Если это так,показать(writeln) первую позицию буквы.
Program NR;
type new = record
text : string;
litera : string;
end;
type lista = array [1..255] of new;
var le:lista;
i:integer;
begin
for i:=1 to 1 do  begin
with le[i] do begin
write('Введите текст:');readln(text);
write('Введите букву:');readln(litera);
end;end;
 
for i:=1 to length(le[i].text) do begin
with le[i] do begin
if (litera = text) then 
begin
writeln('Буква ',litera,' встречается в данном текст,первый раз фигурирует в слове: ',text);
end;end;end;
end.
Само условие я выполнил,но не могу показать,где буква фигурирует первый раз. Извиняюсь за некорректные высказывания Прошу не посылать меня в другие темы,так как ответа я не нашел


textual

Код к задаче: «Выяснить, содержится ли введенная буква в тексте - Pascal ABC»

program NR;
 
var
  text: string;
  litera: char;
  i: integer;
  yes: boolean;
 
begin
  
  write('Введите текст:');readln(text);
  write('Введите букву:');readln(litera);
  yes := false;
  for i := 1 to length(text) do 
  begin
    if (text[i] = litera) then 
    begin
      writeln('Буква ', litera, ' встречается в данном тексте первый раз на позиции: ', i);
      yes := true;
      break;
    end;
  end;
  if not yes then
    writeln('Буква ', litera, ' не встречается в данном тексте');  
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

13   голосов, оценка 3.615 из 5

Источник
Похожие ответы