Помощь - Поиск - Пользователи - Календарь
Полная версия: Чтение-запись из файла
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
DAUZH
Сформировать файл. Ввести в него последовательность прописных и строчных символов. Прочитать файл и
определить количество прописных и строчных букв. Если больше прописных, то переименовать файл в "пропис", иначе-в "строк".
Вот что получилось:
program Lab15;
Const
Q=['a'..'z','а'..'я'];
R=['A'..'Z','А'..'Я'];
var
f,f1:file of char;
n: char;
i,k,m:integer;
begin
Writeln;
Assign(f, 'files.txt');
Rewrite(f);
for i:=1 to 50 do
begin
write('->');
readln(n);
write(f,n);
end;
Close(f);
begin
Reset(f);
read(f,n);
k:=0;
m:=0;
for i:=1 to 50 do
if n in Q then inc (k);
if n in R then inc (m);
end;
if k>m then Assign(f1, 'strok.txt')
else Assign(f1, 'propis.txt'); Readln;
end.
end.

Не работает? Где ошибка?
Просьба не ржать, я только учусь!
volvo
Переименовывается файл НЕ через Assign, а через Rename ... Причем, перед Rename файл надо закрыть...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.