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

Получить в файле g все четные компоненты файла f, а в файле h все нечетные

23.12.2012, 22:00. Показов 1717. Ответов 5
Метки нет (Все метки)

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

Получить в файле l.dat сначала все компоненты файла d.dat а следом четные компоненты файла m.dat
Добрый вечер уважаемые программисты. Не знаю как решить следующие задания. Нужно составить...

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

Получить в файле ж все компоненты файла ф
Помогите плиз решить задачу Дан файл ф, компоненты которого являются трёхзначными целыми числами....

Получить в файле g все компоненты файла f
Задание звучит так: Дано файл f компоненты которого являются целыми числами. Получить в файле g...

5
durila :d
125 / 107 / 98
Регистрация: 21.12.2012
Сообщений: 160
23.12.2012, 22:57 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

1.
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
program _files;
 
const
 
 F1='f.txt';
 F2='g.txt';
 F3='h.txt';
 
var
 
 f,h,g:text;
 N:integer;
 
Begin
{ assign files }
Assign(f, F1);Reset(f);
Assign(h,F2);rewrite(h);
Assign(g,F3);rewrite(g);
{process & output }
While not eof(f) do begin
while not eoln(f) do begin
                     read(f,N);
                     if odd(N) then write(h,N,' ')
                               else write(g,N,' ');
                     end;
                     readln(f)
                     end;
close(f);close(h);close(g);                     
End.
2.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program copyfile;
 
Const 
 
 F1='input.txt';
 
Var
 
 fi,fo:text;
 instring:string;
 
Begin
{ assign files }
 assign(fi,F1);Reset(fi);
 assign(fo,'copy '+F1);Rewrite(fo);
{ copy }
while not eof(fi) do begin
                      readln(fi,instring);
                      writeln(fo,instring);
                     end;
close(fi);close(fo);                     
End.
1
0 / 0 / 2
Регистрация: 20.05.2012
Сообщений: 183
23.12.2012, 23:22  [ТС] 3
Благодарю!
Спасибо большое!

Добавлено через 10 минут
В первом задании он выводит "File not found".
Хотя я создала эти текстовые файлы в диске С. Или же нужно где-то в другом месте создавать эти текстовые файлы?
0
durila :d
125 / 107 / 98
Регистрация: 21.12.2012
Сообщений: 160
23.12.2012, 23:33 4
Цитата Сообщение от Ella17 Посмотреть сообщение
Хотя я создала эти текстовые файлы в диске С. Или же нужно где-то в другом месте создавать эти текстовые файлы?
Эти текстовые файлы должны быть в той же директории, что и программа
1
0 / 0 / 2
Регистрация: 20.05.2012
Сообщений: 183
24.12.2012, 14:25  [ТС] 5
Я поместила эти текстовые файлы туда же, где находится программа, но он всё равно также выводит "File not found"...(
0
durila :d
125 / 107 / 98
Регистрация: 21.12.2012
Сообщений: 160
24.12.2012, 15:36 6
Цитата Сообщение от Ella17 Посмотреть сообщение
Я поместила эти текстовые файлы туда же, где находится программа, но он всё равно также выводит "File not found"...(
Во вложении программы с примером текстовых файлов. Все работает
Вложения
Тип файла: zip files.zip (18.5 Кб, 7 просмотров)
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.12.2012, 15:36
Помогаю со студенческими работами здесь

Дан файл f, компоненты которого являются целыми числами. Получить в файле g все компоненты файла f, кратные и
Дан файл f , компоненты которого являются целыми числами. Получить в файле g все компоненты файла...

Получить в файле g все компоненты файла f, кратные и 3, и 5
program a; var f:integer; m:array of integer; input, output: file of integer; begin assign...

Получить в файле все компоненты другого файла
Дан файл f, компоненты которого являются целыми числами. Получить в файле g все компоненты файла f:...

Получить в файле g все компоненты файла f, которые делятся на m
Заполнить файл последовательного доступа f целыми числами, полученными с помо щью генератора...


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

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

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