Прошу помлщи в решение вот этой простой задачи:
Дан текстовый файл. Латинские буквы из него поместить в текущем каталоге в файл file.lat, русские – в file.rus, все остальные символы – в file.oth.
Так как меня небыло на том занятии где обьясняли как решать подобные задачи то я не знаю даже на что это задача. Мне хотябы пример побной задачи, а то незнаю что делать.
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;
Вот начало программы
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);
Вот обновленная версия
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.