|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
22.12.2008, 22:48 | #1 |
Пользователь
Регистрация: 06.12.2008
Сообщений: 13
|
скопировать во второй файл слова которые начинаются и заканчиваются на одну букву
задаем один файл текстовый даем ему сначало имя и создаем в него пишем строки и нужно скопировать во второй файл те слова которые начинаются и заканчиваются на одну и ту же букву
похожая задача uses SysUtils; var f1,f2:textfile; ns,n,k,i,kg:integer; s:string; mg:set of char; begin assignfile(f1,'f1.txt'); assignfile(f2,'rez.txt'); reset(f1); rewrite(f2); writeln('Vvedite k-nomer stroki'); readln(k); ns:=0; for i := 1 to k - 1 do readln(f1,s); for i := k to k+5 do begin readln(f1,s); writeln(f2,s); end; closefile(f1); closefile(f2); reset(f2); kg:=0; mg:=['a','e','o','i','u','y']; repeat readln(f2,s); n:=length(s); for i := 1 to n do if s[i] in mg then inc(kg); until eof(f2); closefile(f2); writeln('kol-vo glasnuh bukv v faile',kg:2); readln; end. |
23.12.2008, 13:38 | #2 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
Код:
Нормальное состояние техники - нерабочее, все остальное частный случай.
|
23.12.2008, 15:08 | #3 |
Пользователь
Регистрация: 06.12.2008
Сообщений: 13
|
спасибо большое,очень помогли
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Дана строка, состоящая из нескольких слов. Найти количество слов, которые содержат хотя бы одну букву "А" | Mashaa | Помощь студентам | 13 | 09.12.2009 13:28 |
Напечатать слова в которые входят цифры | profi | Помощь студентам | 3 | 02.12.2009 23:34 |
Удалить из второй строки те слова, которые есть в первой строке | innaa639 | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 26.11.2008 15:43 |
Найти все слова, отличающиеся от заданного на 1 букву и имеющую ту же длинну. | gred | Помощь студентам | 5 | 23.05.2008 08:32 |