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

Создать третий файл целых чисел, в котором содержится Р первых чисел из файла 1 и Q последних чисел из файла 2

22.12.2011, 18:46. Показов 1130. Ответов 3
Метки нет (Все метки)

Написать программу,создающую 2 файла целых чисел разной длины.Файлы заполнить ,случайными числами.Пользователь вводит 2целых числа: P и Q.Программа создает третий файл целых чисел,в котором содержится Р первых чисел из файла 1 и Q последнийх чисел из файла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
47
program P1;
const
N = 100;
Var
I,Q,W,E:Integer;
F1,F2,Ftxt :file of integer;
 
begin                              {создаем два файла длинны N(причем N-константа}
AssignFile(F1, 'нужный текст.txt');
Rewrite(F1);
for I := 1 to N do
begin
W:= Random(1000);
write(F1,W);
end;
CloseFile(F1);
AssignFile(F2, 'B.txt');
Rewrite(F2);
for I := 1 to N do
begin
W:= Random(1000);
write(F2,W);
end;
CloseFile(F2);
Readln(W);                         {введем цифры}
Readln(Q);
AssignFile(Ftxt, 'С.txt');         {откроем третий файл}
Rewrite(Ftxt);                     {копируем цифры из первого файла}
AssignFile(F1, 'A.txt');
reset(F1);
for I := 1 to W do
begin
read(F1,E);
write(Ftxt,E , ' ');
end;
CloseFile(F1);                     {копируем цифры второго файла}
AssignFile(F2, 'B.txt');
reset(F2);
seek(F2, N-Q+1);
for I := 1 to Q do
begin
read(F2,E);
write(Ftxt,E, ' ');
end;
CloseFile(F2);
CloseFile(Ftxt);
end.
Добавлено через 1 час 32 минуты
исправлять не принципиально...можно и сначала написать(желательно с объясняющими комментариями)...
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.12.2011, 18:46
Ответы с готовыми решениями:

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

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

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

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

3
--\.founder./--
564 / 564 / 392
Регистрация: 20.10.2011
Сообщений: 867
22.12.2011, 18:51 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
uses crt;
 
var a,b,c:text;
i,p,q,m,n:integer;
m1,m2:array [1..50] of integer;
 
begin
   assign(a,'1.txt');assign(b,'2.txt');assign(c,'3.txt');
   rewrite(a);rewrite(b);rewrite(c);
 
   Write('Кол-во чисел в 1 файле(до 50): ');readln(n);
   Write('Кол-во чисел во 2 файле(до 50): ');readln(m);
   Write('P = ');readln(p);
   Write('Q = ');readln(q);
   randomize;
   For i:=1 to n do
     begin
     m1[i]:=random(50)+1;
     Write(a,m1[i],' ');
     end;
   For i:=1 to m do
     begin
     m2[i]:=random(41)-20;
     write(b,m2[i],' ');
     end;
   For i:=1 to q do
   write(c,m1[i],' ');
   write(c,#13,#10);
   For i:=m-q to m do
   write(c,m2[i],' ');
   close(a);close(b);close(c);
end.
1
0 / 0 / 0
Регистрация: 20.12.2011
Сообщений: 14
22.12.2011, 19:17  [ТС] 3
WebMax 2.0, пользователь должен ввести только числа I и Q, файлы будут заполнены не пользователем...
0
--\.founder./--
564 / 564 / 392
Регистрация: 20.10.2011
Сообщений: 867
22.12.2011, 19:26 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
33
uses crt;
 
var a,b,c:text;
i,p,q,m,n:integer;
m1,m2:array [1..50] of integer;
 
begin
   assign(a,'1.txt');assign(b,'2.txt');assign(c,'3.txt');
   rewrite(a);rewrite(b);rewrite(c);
   randomize;
   n:=random(30)+10;
   m:=random(30)+10;
   Writeln('Созданно ',n,' чисел в 1 файле .');
   Writeln('Созданно ',m,' чисел в 2 файле .');
   Write('P = ');readln(p);
   Write('Q = ');readln(q);
   For i:=1 to n do
     begin
     m1[i]:=random(50)+1;
     Write(a,m1[i],' ');
     end;
   For i:=1 to m do
     begin
     m2[i]:=random(41)-20;
     write(b,m2[i],' ');
     end;
   For i:=1 to q do
   write(c,m1[i],' ');
   write(c,#13,#10);
   For i:=m-q to m do
   write(c,m2[i],' ');
   close(a);close(b);close(c);
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.12.2011, 19:26

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

Дан файл вещественных чисел. Создать файл целых чисел, содержащий номера всех локальных экстремумов исходного файла в порядке убывания
File22. Дан файл вещественных чисел. Создать файл целых чисел, содержащий номера всех локальных...

Сформировать два текстовых файла из целых чисел. Записать в третий файл минимальный элемент первого файла и максимальный элемент второго файла
Тема: работа с текстовыми файлами с использованием стандартных функций библиотеки stdio.h Нужно...

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


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

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

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