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

Ввести данные двумерного массива с клавиатуры, а затем записать это в текстовый файл

23.03.2014, 14:54. Показов 624. Ответов 6
Метки нет (Все метки)

Здравствуйте! Помогите, пожалуйста.
Задание следующее: Нужно ввести данные двумерного массива с клавиатуры, а затем записать это в текстовый файл. Делаю так:
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
  LABEL
Vvod_m,Vvod_n;
VAR
i,j,m,n     :integer;
MassA:   array [1..6,1..6] of real;
a,b         :real;
Fout,Fin    :text;
BEGIN
Vvod_m:
       writeln('Введите кол-во строк массива:');
       readln(m);
 
 
if (m < 2) or (m > 6) then
begin
     writeln('Недопустимое кол-во строк! Необходимо от 2 до 6!!!');
     goto vvod_m;
end;
Vvod_n:
       writeln('Введите кол-во столбцов массива:');
       readln(n);
 
if (n < 2) or (n > 6) then
begin
   writeln('Недопустимое кол-во столбцов! Необходимо от 2 до 6!!!');
   goto Vvod_n;
end;
 
for i:=1 to M do
    for j:=1 to N do
begin
     Writeln('Введите значение MassA(:',i, ', ', j, '):');
     readln(MassA[i,j]);
end;
 
Assign (Fout,'Summa.txt');
ReWrite(Fout);
for i:=1 to M do
    for j:=1 to N do
begin
write(Fout,MassA[i,j]);
Writeln(Fout);
end;
close(Fout);
END.
Но почему-то в файл ничего не записывается. Не могу понять почему.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.03.2014, 14:54
Ответы с готовыми решениями:

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

перед мной стоит задача записать данные с 8 LabeledEdit в текстовый файл, как это сделать?
перед мной стоит задача записать данные с 8 LabeledEdit в текстовый файл, как это сделать?

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

Ввести из текстового файла данные для массива структур, записать их в типизированный файл
type TStudent=record FIO:string;//Поле Ф.И.О. Ngrup:Integer;//Поле номера группы ...

6
Почетный модератор
64272 / 47571 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
23.03.2014, 15:01 2
У меня все записывается, но лучше записывать так
Pascal
1
2
3
4
5
6
7
for i:=1 to M do
 begin
  for j:=1 to N do
  write(Fout,MassA[i,j]:6:2);
  Writeln(Fout);
 end;
close(Fout);
Ввожу размеры 2х2, 4 числа и вот что в файле
Миниатюры
Ввести данные двумерного массива с клавиатуры, а затем записать это в текстовый файл  
1
2 / 2 / 2
Регистрация: 15.11.2013
Сообщений: 51
23.03.2014, 15:23  [ТС] 3
Puporev, Спасибо. А из-за чего может не записываться?
0
Почетный модератор
64272 / 47571 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
23.03.2014, 15:24 4
А я откуда знаю, у меня записывается...
0
37 / 37 / 25
Регистрация: 19.11.2012
Сообщений: 197
23.03.2014, 15:52 5
Reginar, если не закроете файл командой close
0
2 / 2 / 2
Регистрация: 15.11.2013
Сообщений: 51
23.03.2014, 15:54  [ТС] 6
EagleAlex, Но у меня-то он закрыт(
0
37 / 37 / 25
Регистрация: 19.11.2012
Сообщений: 197
23.03.2014, 22:09 7
Reginar, покажите весь код
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.03.2014, 22:09
Помогаю со студенческими работами здесь

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

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

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

Создать на диске текстовый файл, ввести в него произвольный текст, затем вывести 2-ую строку текста
Добрый день!) 4.Создать на диске текстовый файл, ввести в него произвольный текст, затем...

Ввести из текстового файла данные для массива структур, записать их в типизированный файл и выполнить действия в соответствии со своим вариантом
Структура STUDENT содержит следующие поля: - фамилия и инициалы; - номер группы; - успеваемость...

Ввести с клавиатуры число N. Создать текстовый файл из N строк
Здравствуйте, не понимаю как решать эту задачу, помогите, пожалуйста: Ввести с клавиатуры целое...


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

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

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