Pascal, строки

Dizre · 26.12.2017, 16:42

Входные данные: 5a;
Задание: каких гласных букв (английских:маленьких и заглавных) нет в заданным данных ( может вводится любой набор символов) .
Написать код программы. Буду очень благодарна

Студент-2000 · 08.01.2018, 03:51

VowelList - строковая константа со списком гласных

Код:

for i:=1 to Length(VowelList) do
Begin
  if Pos(VowelList[i],InputStr) = 0
  then Write(VowelList[i])
End

Vladimir_S · 08.01.2018, 10:20

Цитата:

Сообщение от Студент-2000

VowelList - строковая константа со списком гласных

Остроумно. Я бы решал через Set. Но так лучше.

Студент-2000 · 08.01.2018, 23:07

Это не моё изобретение. Не помню точно, но таким образом пишутся кодировщики типа Base64. Естественно, когда нет требований к производительности.

А set, я так и не освоил

толи по тупости, толь просто не было практической целесообразности.

26.12.2017, 16:42	#1 (permalink)
Dizre Новичок Регистрация: 07.11.2017 Сообщений: 3 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Pascal, строки Входные данные: 5a; Задание: каких гласных букв (английских:маленьких и заглавных) нет в заданным данных ( может вводится любой набор символов) . Написать код программы. Буду очень благодарна

08.01.2018, 03:51	#2 (permalink)
Студент-2000 Member Регистрация: 21.12.2017 Сообщений: 35 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 717	Работа со строками VowelList - строковая константа со списком гласных Код: for i:=1 to Length(VowelList) do Begin if Pos(VowelList[i],InputStr) = 0 then Write(VowelList[i]) End

26.12.2017, 16:42
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Возможно участники форума давали ответ в похожих темах Строки, Pascal Строки. Pascal Pascal, строки Строки. Pascal

08.01.2018, 23:07	#4 (permalink)
Студент-2000 Member Регистрация: 21.12.2017 Сообщений: 35 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 717	Это не моё изобретение. Не помню точно, но таким образом пишутся кодировщики типа Base64. Естественно, когда нет требований к производительности. А set, я так и не освоил толи по тупости, толь просто не было практической целесообразности.

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070