Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.78/9: Рейтинг темы: голосов - 9, средняя оценка - 4.78
0 / 0 / 0
Регистрация: 05.06.2012
Сообщений: 6
1

Работа с файлами. Даны три файла целых чисел. Создать новый файл, в котором чередовались бы элементы исходных файлов

05.06.2012, 10:35. Просмотров 1704. Ответов 1
Метки нет (Все метки)

Даны три файла целых чисел одинакового размера с именами SA, SB, SC и строка SD. Создать новый файл с именем SD, в котором чередовались бы элементы исходных файлов с одним и тем же номером: A1, B1, C1, A2, B2, C2, …
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.06.2012, 10:35
Ответы с готовыми решениями:

Создать новый файл, в котором чередовались бы элементы исходных файлов
Даны четыре файла целых чисел разного размера с именами SA, SB, SC, SD и строка SE. Создать новый...

Создать новый файл с именем NameD, в котором чередовались бы элементы исходных файлов
Доброе время суток друзья! Надеюсь на ваше мастерство,вот значит задачка.... Даны три файла...

Создать файл, в котором чередовались бы элементы исходных файлов
Даны три файла целых чисел одинакового размера с именами NameA, NameB и NameC. Создать новый файл с...

Даны три файла вещественных чисел с именами S1, S2 и S3, элементы которых упорядочены по убыванию. Объединить эти файлы в новый файл с именем S4 так,
Даны три файла вещественных чисел с именами S1, S2 и S3, элементы которых упорядочены по убыванию....

__________________
1
Почетный модератор
7957 / 3928 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
05.06.2012, 12:08 2
Лучший ответ Сообщение было отмечено Викулечка как решение

Решение

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
uses crt;
var f1,f2,f3,f: file of integer;
    i,n: integer;
    sa,sb,sc,sd: string;
begin
sa:='file1.dta';  sa:='D:\'+sa;
sb:='file2.dta';  sb:='D:\'+sb;
sc:='file3.dta';  sc:='D:\'+sc;
write('Óêàæèòå íàçâàíèå ðåçóëüòèðóþùåãî ôàéëà: '); readln(sd); sd:='D:\'+sd+'.dta';
assign(f1,sa);
assign(f2,sb);
assign(f3,sc);
assign(f,sd);
rewrite(f1); rewrite(f2); rewrite(f3);
for i:=1 to 10+random(10) do
    begin
    n:=random(199)-99; write(f1,n);
    n:=random(199)-99; write(f2,n);
    n:=random(199)-99; write(f3,n);
    end;
writeln('èñõîäíûå ôàéëû çàïîëíåíû ñëó÷àéíûì êîëè÷åñòâîì ñëó÷àéíûõ ÷èñåë');
reset(f1); reset(f2); reset(f3); rewrite(f);
while not (eof(f1)) do
      begin
      read(f1,n); write(f,n);
      read(f2,n); write(f,n);
      read(f3,n); write(f,n);
      end;
writeln;
writeln('Êîìïîíåíòû èñõîäíûõ ôàéëîâ');
writeln('    ôàéë 1  ôàéë 2  ôàéë 3            Èòîãîâûé ôàéë');
reset(f1); reset(f2); reset(f3); reset(f);
while not (eof(f1)) do
      begin
      read(f1,n); write(n:8);
      read(f2,n); write(n:8);
      read(f3,n); write(n:8);
      for i:=1 to 7 do write(' ');
      for i:=1 to 3 do
          begin
          read(f,n); write(n:7);
          end;
      writeln;
      end;
close(f1); close(f2); close(f3); close(f);
end.
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.06.2012, 12:08

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Дан файл состоящий из целых чисел. Создать новый файл целых чисел, содержащий длины всех серий исходного файла
Дан файл целых чисел. Создать новый файл целых чисел, содержащий длины всех серий исходного файла...

Дан файл целых чисел. Создать новый файл целых чисел, содержащий длины всех серий исходного файла
Дан файл целых чисел. Создать новый файл целых чисел, содержащий длины всех серий исходного файла...

Дан файл целых чисел. Создать новый файл целых чисел, содержащий длины всех серий исходного файла.
Задачу нужно решить в Borland C++ 3.11 Дан файл целых чисел. Создать новый файл целых чисел,...

Файлы. Создать файл целых чисел, в котором содержится P первых чисел из файла 1 и Q последних чисел из файла 2
Помогите решить две задачи срочно плиз!!!! 1) Написать программу, создающую 2 файла целых чисел...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.