0 / 0 / 0
Регистрация: 10.10.2009
Сообщений: 30
1

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

19.10.2009, 21:22. Показов 724. Ответов 3
Метки нет (Все метки)

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

Добавлено через 2 минуты
надо сделать процедурой или функцыей)))
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.10.2009, 21:22
Ответы с готовыми решениями:

Работа с файлами
Помогите решить пожалуйста Дан символьный файл f. Группы символов, разделенных пробелами и не...

Работа с файлами
Файл содержит сведения о школьниках: фамилия, имя, рост и вес. Выведите список школьников, рост...

работа с файлами
нужно создать что=то (файл наверное) "яхты". Характеристики такие: название, страна, водоизмещение,...

Работа с файлами
Дан файл f, компоненты которого являются целыми числами. Используя вспомогательный файл h,...

3
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
19.10.2009, 22:22 2
denis92, Пишешь слово файл, это вообще ничего не значит, пиши тип файла, текстовый, типизированный, без типа.
0
0 / 0 / 0
Регистрация: 10.10.2009
Сообщений: 30
19.10.2009, 23:53  [ТС] 3
текстовый
0
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
20.10.2009, 07:05 4
Программа написана для работы с файлами, заполненными латиницей.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
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.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.10.2009, 07:05
Помогаю со студенческими работами здесь

Работа с файлами
как записать в файл такую строку: nsd asd vsd ads и как потом прочитать из файла эту же строку

Работа с файлами
Дан файл, в котором записаны цифры, например: 24_25_78 Подсчитать эти цифры и заново записать в...

Работа с файлами
Создать файл и записать в него информацию Program Zad; Uses Crt; Type m=array of integer;...

Работа с файлами
1.Построить файл данных, компонентами которого являются вещественные числа. Найти сумму квадратов...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru