IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> множество кажется
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 22
Пол: Мужской

Репутация: -  0  +


Прошу помлщи в решение вот этой простой задачи:
Дан текстовый файл. Латинские буквы из него поместить в текущем каталоге в файл file.lat, русские – в file.rus, все остальные символы – в file.oth.
Так как меня небыло на том занятии где обьясняли как решать подобные задачи то я не знаю даже на что это задача. Мне хотябы пример побной задачи, а то незнаю что делать.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов(1 - 4)
сообщение
Сообщение #2


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


var
ch: char;
// ...
// открываем для записи три файла lat, rus, oth и файл f для чтения.

while not(eof(f)) do begin
read(f, ch);
if (ch in ['A'..'Z', 'a'..'z']) then // добвяляем в файл латинских букв
else if (ch in ['a'..'п', 'р'..'я', 'А'..'П', 'Р'..'Я']) then // добавляем символ в файл русских букв
else // добавляем символ в файл остальных букв
end;

// закрываем все файлы

Файлы

зы возможно стоит внутри цикла сделать дополнительный (while not(eoln(f))) и читать символы в нем а после делать readln(f) ( переходить к след строке) чтобы не захватывать управляющие символы (но я не уверен)


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 22
Пол: Мужской

Репутация: -  0  +


Вот начало программы
Program files;
var
ch:char;
f:text;
lat:file of char;
rus:file of char;
oth:file of char;
begin
assign(f, 'file.txt');
reset(f);
assign(lat,'file.lat');
rewrite(lat);
assign(rus,'file.rus');
rewrite(lat);
assign(oth,'file.oth');
rewrite(oth);
while not(eof(f)) do begin
read(f, ch);
if (ch in ['A'..'Z', 'a'..'z']) then write(lat,ch);

Продолжить не могу так как не знаю как обозначаются эти остальные символы и русский паскаль не воспринимает. Да и наверняка есть ошибки в приведенном вверху коде
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Новичок
*

Группа: Пользователи
Сообщений: 22
Пол: Мужской

Репутация: -  0  +


Вот обновленная версия
var
ch:char;
f:text;
lat, rus, oth:file of char;

begin
Assign(f, 'file.txt');
Reset(f);
Assign(lat,'file.lat');
Rewrite(lat);
Assign(rus,'file.rus');
Rewrite(rus);
Assign(oth,'file.oth');
Rewrite(oth);
while not eof(f) do
begin
read(f, ch);
if (ord(ch) in [65..90, 97..122]) then
write(lat,ch)
else
if (ord(ch) in [192..223, 224..255,168,184]) then
write(rus,ch)
else
write(oth,ch);
end;
Close(f);
Close(lat);
Close(rus);
end.

Только он мне пишет 'Error in statement' и вот незнаю что это за ошибка
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Гость






Цитата
Только он мне пишет 'Error in statement'
Где именно ОН (и кто это - ОН) пишет такую ошибку? У меня в TP 7.0 все прекрасно компилируется...
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 7:15
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name