Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
xRandall
0 / 0 / 0
Регистрация: 30.05.2010
Сообщений: 23
1

Открыть для записи текстовый файл data.txt и записать в него полученный массив, закрыть файл

02.12.2010, 22:28. Просмотров 1063. Ответов 1
Метки нет (Все метки)

Составить программу с подпрограммами для выполнения следующего алгоритма (предусмотреть процедуры записи и чтения информации из файла).
Открыть для записи текстовый файл data.txt и записать в него полученный массив, закрыть файл.

В процедуре записи выскакивает ошибка.

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
uses crt;
const z=8;x=12;
type mz=array[1..z,1..x] of integer;
var a:mz;
    f:text;
 
procedure Input(var a:mz;n,m:integer);
var i,j:integer;
 begin
  randomize;
  for i:=1 to n do
  for j:=1 to m do
  a[i,j]:=random(48)-23;
 end;
 
procedure Output(var a:mz;n,m:integer);
var i,j:integer;
 begin
  for i:=1 to n do
   begin
    for j:=1 to m do write(a[i,j]:4,' ');writeln;
   end;
 end;
 
procedure Rec(a:mz;var t:text);
 begin
  assign(t,'c:\data.txt');
  rewrite(t);
  write(t,a);
  close(t);
 end;
 
begin
clrscr;
Input(a,z,x);
writeln(' Ввод случайной матрицы :');
writeln;
Output(a,z,x);
writeln;
writeln;
Rec(a,f);
writeln(' Массив записан в файл (c:\data.txt)');
readln;
end.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.12.2010, 22:28
Ответы с готовыми решениями:

Создать текстовый файл (txt) записать в него английские буквы и цифры и сместить их на к-элементов вправо
создать текстовый файл(txt) записать в него английские буквы и цифры и сместить их на к-элементов в...

Создать текстовый файл и записать в него все константы
нужно создать текстовый файл и записать в него все константы, а потом прочитать их перед...

Создать текстовый файл и записать в него символы согласно правилу
Дано имя файда и целое число N (0<N<27). Создать текстовый файл с указанным именем и записать в...

Работа с файлами. Вывести на экран файл Input.txt задом наперед и записать результат в файл Output.txt
1. Работа с файлами Вывести на экран файл Input.txt задом-наперед и записать результат в файл...

Создать текстовый файл, записать в него любые символы, и вывести max и min
Всем доброго времени суток, помогите с задачей. Нужно написать программу, которая создает текстовый...

1
SuPeR XaKer
2848 / 1977 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
02.12.2010, 23:00 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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
uses crt;
const z=3;x=4;
type mz=array[1..z,1..x] of integer;
var a:mz;
    t:text;
 
procedure Input(var a:mz;n,m:integer);
var i,j:integer;
 begin
  randomize;
  for i:=1 to n do
  for j:=1 to m do
  a[i,j]:=random(48)-23;
 end;
 
procedure Output(var a:mz;n,m:integer);
var i,j:integer;
 begin
  for i:=1 to n do
   begin
    for j:=1 to m do
    write(a[i,j]:5);
    writeln;
   end;
 end;
 
procedure Rec(var a:mz; n,m:integer);
var i,j:integer;
begin
  assign(t,'c:\data.txt');
  rewrite(t);
  writeln(t,n);
  writeln(t,m);
  for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    write(t,a[i,j]:4);
   end;
  writeln;
 end;
  close(t);
 end;
 
procedure chten(var a:mz; n,m:integer);
var i,j:integer;
begin
  assign(t,'c:\data.txt');
  reset(t);
  readln(t,n);
  readln(t,m);
  for i:=1 to n do
  begin
  for j:=1 to m do
   begin
    read(t,a[i,j]);
    write(a[i,j]:5);
   end;
  writeln;
 end;
  close(t);
 end;
 
 
begin
clrscr;
Input(a,z,x);
writeln(' Ââîä ñëó÷àéíîé ìàòðèöû :');
writeln;
Output(a,z,x);
writeln;
Rec(a,z,x);
writeln(' Ìàññèâ çàïèñàí â ôàéë (c:\data.txt)');
writeln;
chten(a,z,x);
writeln;
readln;
end.
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.12.2010, 23:00

Текстовый файл. Заполнить файл последовательность случайных чисел. Найти сумму наибольшего и наименьшего из них и записать в новый файл
Заполнить файл последовательность случайных чисел. Найти сумму наибольшего и наименьшего из них и...

ПУСТЬ это текстовый файл, который содержит НЕСКОЛЬКО ЦЕЛЫХ ЧИСЕЛ. ОТКРЫТЬ этот текстовый файл и КАЖДЫЙ С ЧИСЕЛ вознести В КУБ.
ПУСТЬ это текстовый файл, который содержит НЕСКОЛЬКО ЦЕЛЫХ ЧИСЕЛ. ОТКРЫТЬ этот текстовый файл и...

Пусть имеется текстовый файл, который содержит несколько целых чисел. Открыть этот текстовый файл и каждое из чисел вознести в квадрат.
Пусть имеется текстовый файл, который содержит несколько целых чисел. Открыть этот текстовый файл и...


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

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

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