|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
18.02.2011, 15:52 | #1 |
Новичок
Джуниор
Регистрация: 18.02.2011
Сообщений: 3
|
Переписать в новый файл все слова, которые содержат только буквы латин.алф.
Переписать в новый файл все слова, которые содержат только буквы латинского алфавита.
program k; var t:text; t2:text; st,i:set of char; a:set of char; begin assign(t,'T.txt'); reset(t); assign(t2,'T.txt'); rewrite(t2); while not eof(t) do begin readln(t{st}); writeln(t); end; close(t); reset(t); a:=['a'..'z']; if length(st) in a then begin writeln(t2,st); end; reset(t2); writeln('получ файл'); while not eof (t2) do begin readln(t2,st); for i:=1 to length(st) do write(st[i]); writeln( ); end; close(t); close(t2); end. |
18.02.2011, 16:03 | #2 |
Новичок
Джуниор
Регистрация: 18.02.2011
Сообщений: 3
|
что нетак?
|
18.02.2011, 16:22 | #4 |
Новичок
Джуниор
Регистрация: 18.02.2011
Сообщений: 3
|
if length(st) in a then begin
в этой строчке-нельзя преобразовать фыражение типа set of char к типу string! там что то с типоми нетак это точно |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
все слова с нечетным количеством букв подходят для "ёлочной" рекурсии. Все буквы слова расположены в форм | no_to | Помощь студентам | 0 | 04.01.2010 16:06 |
СИ. Удалить слова, которые содержат все повторяющиеся буквы первого слова | nick23 | Помощь студентам | 7 | 01.11.2009 14:47 |
Си. Вычеркнуть из слова X те буквы, которые встречаются в слове Z. | hen | Помощь студентам | 1 | 29.04.2009 15:32 |
Во вводимом тексте переписать все слова в обратном порядке. | menlo | Помощь студентам | 5 | 17.11.2007 10:18 |