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

Дан символьный файл f. Получить копию файла f в файле q. Это должен быть бинарный файл

27.04.2012, 18:14. Показов 2251. Ответов 3
Метки нет (Все метки)

Дан символьный файл f. Получить копию файла f в файле q. Это должен быть бинарный файл.
ПОмогите пожалуйста!!!
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.04.2012, 18:14
Ответы с готовыми решениями:

Дан символьный файл f. Получить копию файла в файле g
если можно подробно))

Символьный файл. Получить копию файла в текстовом файле g
Создайть символьный файл f. Получить копию файла в текстовом файле g.

Дан файл f, содержащий вещественные числа. Получить копию файла в файле g
1. Дан файл f, содержащий вещественные числа. Получить копию файла в файле g.

Дан символьный файл f. Получить распределение (частоту появления) длин слов файла f.
Дан символьный файл f. Получить распределение (частоту появления) длин слов файла f. Это как?...

3
792 / 398 / 260
Регистрация: 09.12.2011
Сообщений: 786
Записей в блоге: 29
27.04.2012, 19:21 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Uses crt;
Var f,q:file of char; i:integer; h:char;
Begin
ClrScr; Randomize;
Assign(f,'C:\File1');{берём символьный файл}
ReWrite(f);{открываем(создаём) его для записи}
For i:=1 to 10 do
 Begin
  h:=chr(97+random(26));{генерируем 10 символов}
  Write(f,h);{записываем их в файл}
 End;
Close(f);{закрываем файл}
Reset(f);{открываем его для чтения}
Assign(q,'C:\File2');{второй файл}
ReWrite(q);{создаём второй файл для записи}
For i:=1 to 10 do
 Begin
  Read(f,h);{читаем символы из 1-го файла}
  Write(q,h);{и записываем их во 2-ой}
 End;
Close(f); Close(q);
End.
2
0 / 0 / 0
Регистрация: 03.03.2012
Сообщений: 20
27.04.2012, 19:51  [ТС] 3
Спасибо!!!!
А как сделать что бы я вводил содержимое файла???
0
792 / 398 / 260
Регистрация: 09.12.2011
Сообщений: 786
Записей в блоге: 29
27.04.2012, 20:16 4
Цитата Сообщение от vALERA1111 Посмотреть сообщение
А как сделать что бы я вводил содержимое файла???
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Uses crt;
Var f,q:file of char; i:integer; h:char;
Begin
ClrScr;
Assign(f,'C:\File1');
ReWrite(f);
Writeln('Input symbols:');
For i:=1 to 10 do
 Begin
  Readln(h);
  Write(f,h);
 End;
Close(f);
Reset(f);
Assign(q,'C:\File2');
ReWrite(q);
For i:=1 to 10 do
 Begin
  Read(f,h);
  Write(q,h);
 End;
Close(f); Close(q);
End.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.04.2012, 20:16
Помогаю со студенческими работами здесь

Дан символьный файл f. Записать в файл g компоненты файла f в обратном порядке
Организовать символьный файл f из N компонент. После этого организовать файл g содержащий все...

Дан символьный файл f. Записать в файл g компоненты файла f в обратном порядке
Дан символьный файл f. Записать в файл g компоненты файла f в обратном порядке.

Дан символьный файл F. Подсчитать число вхождений в файл сочетаний АВ.Определить, входит ли в файл сочетание abcdef
Дан символьный файл F. подсчитать число вхождений в файл сочетаний АВ определить, входит ли в...

Дан нетипизированный файл. Создайте копию этого файла
12.1. Дан нетипизированный файл. Создайте копию этого файла.


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

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

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