|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
03.05.2010, 22:12 | #1 (permalink) |
Новичок
Регистрация: 03.05.2010
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Pascal: Задача на функцию\процедуру и на файлы
1) написать функцию\процедуру поиска количества вхождений слова в текстовом файле, файл заполнен вручную 2) Дан текстовый файл. Получить из него два типизированных (в первом должны быть все цифры из исходного, во втором - все остальное) |
03.05.2010, 22:12 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
На нашем форуме уже встречались похожие топики, посмотрите их Задача. Output. Pascal Задача на массивы, Pascal. Помогите найти ошибку Задача через функцию |
04.05.2010, 13:42 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
1. Код:
VAR f:TEXT; i,j,n:INTEGER; Wrd:STRING; Ch:Char; b:boolean; BEGIN Assign(f,'D:\x'); ReSet(f); n:=0; WriteLn('Enter the word:'); ReadLn(Wrd); j:=1; Repeat Read(f,Ch); If Ch=Wrd[j] then begin b:=true; i:=j; Repeat Inc(i); Read(f,Ch); If Ch<>Wrd[i] then b:=false; Until (i=Length(Wrd)) or (b=false); If (b=false) and (Ch=Wrd[1]) then j:=2 else j:=1; If b and (i=Length(Wrd)) then Inc(n); end; Until EoF(f); Close(f); WriteLn('n= ',n); ReadLn; END. 2. Код:
VAR f,f1,f2:TEXT; Ch:Char; BEGIN Assign(f,'D:\x'); ReSet(f); Assign(f1,'D:\x1'); ReWrite(f1); Assign(f2,'D:\x2'); ReWrite(f2); Repeat Read(f,Ch); If (Ord(Ch)>47) and (Ord(Ch)<58) then Write(f1,Ch,' ') else Write(f2,Ch); Until EoF(f); Close(f); Close(f1); Close(f2); END. |
|
04.05.2010, 17:06 | #3 (permalink) |
Новичок
Регистрация: 03.05.2010
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Большое спасибо, Vladimir_S
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|