работа с файлами

@denis92 · Регистрация: 10.10.2009

создать файл. внести в него прописные и строчные символы. Считать все символы по одному, заменить все прописные строчными.
похожая задача: https://www.cyberforum.ru/pasc... post275170

Добавлено через 2 минуты
надо сделать процедурой или функцыей)))

@Puporev · 19.10.2009, 22:22

denis92, Пишешь слово файл, это вообще ничего не значит, пиши тип файла, текстовый, типизированный, без типа.

@denis92 · 19.10.2009, 23:53 **[ТС]**

текстовый

@Puporev · 20.10.2009, 07:05

Программа написана для работы с файлами, заполненными латиницей.

Pascal

uses crt;
function LowCase(c:char):char;
begin
if c in ['A'..'Z'] then c:=chr(ord(c)+32);
LowCase:=c;
end;
var f,g:text;
    namef,nameg:string;
    s:char;
begin
clrscr;
write('Введите имя файла для изменений:  ');
readln(namef);
namef:=namef+'.txt';
assign(f,namef);
reset(f);
write('Введите имя файла для записи:  ');
readln(nameg);
nameg:=nameg+'.txt';
assign(g,nameg);
rewrite(g);
while not eof(f) do
 begin
  read(f,s);
  s:=LowCase(s);
  write(g,s);
 end;
close(f);
close(g);
write('Файл переписан!');
readln
end.

@denis92 0 / 0 / 0 Регистрация: 10.10.2009 Сообщений: 30
		1
	работа с файлами 19.10.2009, 21:22. Показов 724. Ответов 3 Метки нет (Все метки) создать файл. внести в него прописные и строчные символы. Считать все символы по одному, заменить все прописные строчными. похожая задача: https://www.cyberforum.ru/pasc... post275170 Добавлено через 2 минуты надо сделать процедурой или функцыей))) __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@Puporev Почетный модератор 64270 / 47569 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	19.10.2009, 22:22	2
	denis92, Пишешь слово файл, это вообще ничего не значит, пиши тип файла, текстовый, типизированный, без типа. 0

@denis92 0 / 0 / 0 Регистрация: 10.10.2009 Сообщений: 30
	19.10.2009, 23:53 [ТС]	3
	текстовый 0

Опции темы