Организовать текстовый файл, состоящий из N строк. Заменить в файле все маленькие латинские буквы на большие.

[gudok2]

Заранее спасибо

[Stilet]

С потолка предположу такое:

const n=1;
var f,e:text; s:string;i:integer;
begin
 assign(f,файл);rewrite(f);
 for i:=1 to n do writeln(f,'qwe');
 assign(e,файл2);reset(f);rewrite(e);
 while not eof(f) do begin readln(f,s); writeln(e,UpCase(s));end;
 close(f);close(e);
 rename(файл,файл1);
end.

Не проверял.

[Poma][a]

На сколько я помню UpCase употребляется к Char'у. А не к массиву Char'ов..
Так же в условии сказано заменить в файле (подразумевается, наверное, исходный файл)

[Stilet]

UpCase употребляется к Char'у. А не к массиву Char'ов..

Ну пусть автор слегка в цикл его загонит: for i:=0 to length(s) do s[i]:=UpCase(s[i]);
Говорю же - с потолка писал.

Так же в условии сказано заменить в файле

Чисто философски - создать новый файл, и накрыть поверх старого - тоже замена.
Замена в том же файле (учитывая что он типа Text) ИМХО трудный и тернистый путь.

[Poma][a]

Говорю же - с потолка писал.

Никто Вас ни в чем не упрекает Это я просто так.. Чтобы избежать появления еще одного студента-смертника

Чисто философски - создать новый файл, и накрыть поверх старого - тоже замена.

Тоесть

Assign (f, 'input.txt'); Reset (f);
Assign (e, 'input.txt'); Rewrite(e);

?

Нам тогда вот что в ответ : File access denied
Или я что-то не понял?


Как вариант загнать в массив строк.. да! не красиво.. да! затратно по памяти.. но зато железно!! (разумеется если Вы не собираетесь открывать файлик из 4 терабайт..)

[Stilet]

загнать в массив строк

Смотря какой паскаль. В старых такое без гемора можно было только с помошью списков сделать. А в новом это вообще делать не нужно - там есть другие способы.

Или я что-то не понял?

Ну посмотри мой пример - я там Считываю в временный файл, который потом переименовываю.

[Poma][a]

rename(файл,файл1);

Ах вот оно что... Спасибо!

А в новом это вообще делать не нужно - там есть другие способы.

Один уже был представлен в этой теме (переименование), а какие другие, не подскажете?

[Stilet]

не подскажете?

Да легко.
1) Тупо считываем весь файл через BlockRead, и уже UpCase применяем к массиву байт. Файл в этом случае file of char
2)Файл типа text. но считывание происходит в динамический список.

type
 Titem=record
  s:string;
  next:^Titem
 end;

const n=1;
var f,e:text; s:string;i:integer;
 i,p:TItem;
begin
 assign(f,файл);rewrite(f);
 for i:=1 to n do writeln(f,'qwe');

//Считываем файл в список
 reset(f); 
 new(i);
 i^.next:=nil;
 while not eof(f) do begin 
  p:=i;
  readln(f,i^.s); 
  with i^ do  for i:=0 to length(s) do s[i]:=UpCase(s[i]);
  new(i);
  p^.next:=i;  
  i^.next:=nil;
 end;

// Переписываем список в файл
 rewrite(f);
 while i^next<>nil do begin
  writeln(f,i^.s);
  p:=i;
  i:=i^.next;
  dispose(p);
 end;
 close(f);

end.

Понятное дело что тут могут быть ошибки и не точности, так как и этот код я не проверял. Но идею он отражает.

[Poma][a]

Огроменное спасибо!