Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
 Аватар для Зайчик
0 / 0 / 0
Регистрация: 06.10.2013
Сообщений: 33

Определить, совпадает ли введенное слово с начальным отрезком латинского алфавита

11.02.2014, 16:14. Показов 1226. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Определить, совпадает ли введенное слово с начальным отрезком латинского алфавита. Например: a, ab, abc, abcd ...
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
11.02.2014, 16:14
Ответы с готовыми решениями:

Определить, совпадает ли введенное слово с начальным отрезком латинского алфавита
1. Определить, совпадает ли введенное слово с начальным отрезком латинского алфавита. Например: a, ab, abc, abcd, … Срочно нужно решение

Определить, совпадает ли текст с каким-либо отрезком ряда abc…xyz
Помогите с решением, пожалуйста! Если не трудно, то с объяснением :-[ В заданный непустой текст входят только цифры и буквы. Длина текста...

В заданныйтекст только входят цифры и буквы. Определить, совпадает ли текст с конечным отрезком ряда 0123456789 (например 9,89,789)
подскажите как лучше решить..

3
Почетный модератор
 Аватар для ildwine
6201 / 2963 / 1300
Регистрация: 04.03.2013
Сообщений: 5,797
Записей в блоге: 1
11.02.2014, 17:38
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var
  a, b : string;
  i : integer;
  f : boolean;
begin
  write('слово: ');
  readln(a);
  b := 'abcdefghijklmnoprstuvwxyz';
  if length(a) > length(b) then writeln('не совпадает') else
  begin
    f := true;
    for i := 1 to length(a) do
      if lowercase(a[i]) <> b[i] then
      begin 
        f := false;
        break
      end;
    if f then writeln('совпадает') else writeln('не совпадает')
  end
end.
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33400 / 21510 / 8236
Регистрация: 22.10.2011
Сообщений: 36,907
Записей в блоге: 12
13.02.2014, 20:48
Почему не просто:
Pascal
1
2
3
4
5
6
7
8
var
  a, b : string;
begin
  write('слово: '); readln(a);
  b := 'abcdefghijklmnoprstuvwxyz';
  if pos(a.ToLower, b.ToLower) = 1 then
    writeln('совпадает') else writeln('не совпадает');
end.
?
1
Почетный модератор
 Аватар для ildwine
6201 / 2963 / 1300
Регистрация: 04.03.2013
Сообщений: 5,797
Записей в блоге: 1
13.02.2014, 21:21
UI, ну это по .NET-овски, согласен... Так проще!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
13.02.2014, 21:21
Помогаю со студенческими работами здесь

Определить, является ли введенная буква латинского алфавита гласной.
помогите пожалуйста! составить программу в паскале Опредилить, является ли введенная буква латинского алфавита гласной.

Определить, сколько различных букв латинского алфавита встречается в строке
Определите, сколько различных букв латинского алфавита встречается в строке. Регистр не учитывайте ('A' и 'a' — это одна и та же буква). ...

Для каждого символа латинского алфавита определить, сколько раз он встречается в последовательности
Вводится последовательность символов, заканчивающаяся точкой. Для каждого символа латинского алфавита определить сколько раз он встречается...

Для текстового файла Х1 определить частоту, с которой встречается каждая из букв латинского алфавита
Составить программу, реализующую конкретную схему действий. В содержимое программы должна входить процедура формирования исходного файла...

найти и удалить слова совпадающие с начальным отрезком латинского алфавита!
Срочно при срочно надо сдать задачу!!!Помогите Дана не пустая последовательность слов из строчных букв между соседними словами запятая за...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Как я обхитрил таблицу Word
Alexander-7 21.03.2026
Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a
AmbA 21.03.2026
без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .
Программный отбор значений справочника
Maks 21.03.2026
Установка программного отбора значений справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит предопределенное значение перечислений. Процедура. . .
Переходник USB-CAN-GPIO
Eddy_Em 20.03.2026
Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .
Оттенки серого
Argus19 18.03.2026
Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++
8Observer8 17.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip
Символические и жёсткие ссылки в Linux.
algri14 15.03.2026
Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора
ФедосеевПавел 14.03.2026
Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru