Переделать задачу на строки, изменив конец ввода

@callofduty431 · Регистрация: 28.02.2013

Студворк — интернет-сервис помощи студентам

Имеется задача:Вводится текст. Если в заданный текст входит каждая из букв слова "true", тогда напечатать "yes", иначе "no". Конец ввода нажатие клавиши F1. Никак не могу разобраться с readkey.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses crt;
const sl:string='true';
var st:string;
    i,k:byte;
begin
writeln('Заданное слово ',sl);
writeln('Введите текст');
readln(st);
k:=0;
for i:=1 to length(sl) do
k:=k+ord(pos(sl[i],st)>0);
if k=4 then write('Yes')
else write('No');
readln
end.

@Puporev · 22.11.2016, 10:59

Можно так.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
var c1,c2:char;
    s:string[4];
begin
writeln('Введите текст, окончание ввода клавиша F9');
s:='0000';
repeat
c1:=readkey;
if c1<>#0 then
 begin
  write(c1);
  case c1 of
  't':s[1]:='t';
  'r':s[2]:='r';
  'u':s[3]:='u';
  'e':s[4]:='e';
  end;
 end
else
 begin
  c2:=readkey;
  if c2=#67 then writeln;
 end;
until c2=#67;
if s='true' then write('yes')else write('no')
end.

@callofduty431 · 22.11.2016, 11:29 **[ТС]**

Puporev, ничего не происходит, после ввода текста и нажатия клавиши курсор просто переводится в начало и ничего не происходит, и программа не выполняет саму программу, т.е. не выдает ни "yes", ни "no"

@Puporev · 22.11.2016, 11:43

Я не скопировал uses crt;, думаю Вы это заметили.
У меня в простом АВС (а именно в этом разделе тема), все работает.
Ввожу строку типа
asdeasduasdrasdtasd
жму F9
и программа выводит yes.

@callofduty431 · 22.11.2016, 11:45 **[ТС]**

Puporev, я добавил uses crt =) без него иначе будет выводить ошибку относительно readkey, но у меня почему-то не работает, паскаль так же АБЦ

@Puporev · 22.11.2016, 11:46

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

паскаль так же АБЦ

АВС или ABC.net?

@callofduty431 · 22.11.2016, 11:48 **[ТС]**

Puporev, ABC.NET

@Puporev · 22.11.2016, 12:08

Ну я это и спрашивал. а Вы пишете АВС, это разные IDE с разными возможностями.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
uses crt;
var c1,c2:char;
    s:string[4];
begin
writeln('Введите текст, окончание ввода клавиша F9');
s:='0000';
repeat
c1:=readkey;
if c1<>#0 then
 begin
  write(c1);
  case c1 of
  't':s[1]:='t';
  'r':s[2]:='r';
  'u':s[3]:='u';
  'e':s[4]:='e';
  end;
 end
else
 begin
  c2:=readkey;
  if c2=#120 then writeln;
 end;
until c2=#120;
if s='true' then writeln('yes')else writeln('no')
end.

Новые блоги и статьи Все статьи Все блоги /
Загрузка PNG-файла с альфа-каналом с помощью библиотеки SDL3_image на Android 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом

@callofduty431 10 / 10 / 15 Регистрация: 28.02.2013 Сообщений: 61
	22.11.2016, 11:29 [ТС]
	Puporev, ничего не происходит, после ввода текста и нажатия клавиши курсор просто переводится в начало и ничего не происходит, и программа не выполняет саму программу, т.е. не выдает ни "yes", ни "no" 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	22.11.2016, 11:43
	Я не скопировал uses crt;, думаю Вы это заметили. У меня в простом АВС (а именно в этом разделе тема), все работает. Ввожу строку типа asdeasduasdrasdtasd жму F9 и программа выводит yes. 0

@callofduty431 10 / 10 / 15 Регистрация: 28.02.2013 Сообщений: 61
	22.11.2016, 11:45 [ТС]
	Puporev, я добавил uses crt =) без него иначе будет выводить ошибку относительно readkey, но у меня почему-то не работает, паскаль так же АБЦ 0

@callofduty431 10 / 10 / 15 Регистрация: 28.02.2013 Сообщений: 61
	22.11.2016, 11:48 [ТС]
	Puporev, ABC.NET 0