![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() ![]() |
![]() |
Arashi |
![]() ![]()
Сообщение
#1
|
![]() Группа: Пользователи Сообщений: 3 Пол: Женский Репутация: ![]() ![]() ![]() |
Всем привет, помогите решить задачку если не сложно
![]() Нужно сформировать символьный файл, там переставить в конец файла его 1й компонент который есть гласной буквой и стоит между двумя согласными. В задаче запрещается использование массивов ![]() |
Client |
![]()
Сообщение
#2
|
Профи ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 865 Пол: Мужской Реальное имя: Вячеслав Репутация: ![]() ![]() ![]() |
Цитата 1й компонент который есть гласной буквой и стоит между двумя согласными Это как? Цитата В задаче запрещается использование массивов Сделай через список |
Arashi |
![]()
Сообщение
#3
|
![]() Группа: Пользователи Сообщений: 3 Пол: Женский Репутация: ![]() ![]() ![]() |
|
volvo |
![]()
Сообщение
#4
|
Гость ![]() |
Цитата Сделай через список Не надо оно здесь. Задача не на динамические структуры, а на файлы. Достаточно двух переменных типа Char, чтоб обработать файл любой длины:const
vowels = ['a', 'e', 'o', 'i', 'u']; { гласные буквы }
cons = ['a' .. 'z'] - vowels; { согласные буквы }
...
{ Тут создание файла - это на самостоятельную работу }
reset(f);
state := 0;
while not eof(f) do begin
case state of
0:
begin
read(f, ch);
if ch in cons then state := 1;
end;
1:
begin
read(f, ch);
if ch in vowels then state := 2;
end;
2:
begin
read(f, ch);
if ch in cons then state := 3 else state := 0;
end;
3:
begin
seek(f, filepos(f) - 2);
read(f, saved);
while not eof(f) do begin
read(f, ch);
seek(f, filepos(f) - 2);
write(f, ch);
seek(f, filepos(f) + 1);
end;
seek(f, filesize(f) - 1);
write(f, saved);
end;
end;
end;
close(f);
if state <> 3 then writeln('not found')
else { просмотр файла - результата } ;
Добавлено через 2 мин. Цитата не знаю 8) потому и прошу помощи) То есть, у тебя проблема с пониманием задачи? Ну, вот пример: start, здесь a - первая гласная, которая стоит между двумя согласными, ее надо перенести в конец файла, чтобы получилось strta ... Теперь понятнее? |
Arashi |
![]()
Сообщение
#5
|
![]() Группа: Пользователи Сообщений: 3 Пол: Женский Репутация: ![]() ![]() ![]() |
ух ты, спасибо большое, в тексте разобралась и задание поняла
![]() |
![]() ![]() |
![]() |
Текстовая версия | 23.07.2025 0:30 |