• Пусть дан текст. Верно ли что в нем имеются буквы входящие в слово,задаваемое пользователем? Нужно прогрраммку, если можно с пояснениями

Ответы 6

  • ))
    • Автор:

      allisson
    • 6 лет назад
    • 0
  • что то у меня ошибку выдает при вводе(( т.е ввожу текст и слово и потом ошибка.
  • Program1.pas(14) : Ошибка времени выполнения: Индекс находился вне границ массива.
  • может длина строки большая? Должно быть не больше 255 символов в строке. Ум меня ошибку не дает
    • Автор:

      sparky9
    • 6 лет назад
    • 0
  • Не знаю, я попробовала и паскаль ABC и TURBO. Все Ок
    • Автор:

      carissa
    • 6 лет назад
    • 0
  • {ввожу текст, затем слово. Переменная flag нужна для того, чтобы в нее записать 1, если из слова встретиться в тексте хотя бы раз буква. Если это случилось, то Flag становится равной 1. К буквам слова и текста обращаемся как к массиву a[i] b[j]}vara,b:string;i,n,k,j,flag:integer;beginflag:=0;   writeln('Введите текст');   readln(a);   Writeln('Введите слово');   Readln(b);k:=length(a);n:=length(b);   for i:=1 to n do       for j:=1 to k do           if a[i]=b[j]then               flag:=1;if flag=1 then   writeln('Y')else   writeln('N');end.   
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years