Консультация № 138509
29.05.2008, 16:40
0.00 руб.
0 1 1
ПРОШУ помощи. Завтра нужно сдать эту программу:
Задача 1
Написать процедуры для записи в текстовый файл и считывания из файла массива из 20 целых чисел по четыре числа в каждой строке.

Обсуждение

Неизвестный
29.05.2008, 17:15
общий
это ответ
Здравствуйте, Sokolov Vitaliy Aleksandrovich!

Вот код, который соответствует Вашему условию:
<code><b>const</b> m=5; n=4;
<b>type</b> mas=<b>array</b> [<font color=purple>1</font>..m,<font color=purple>1</font>..n] <b>of</b> integer;

<b>procedure</b> fRead(<b>var</b> x:mas); <font color=green>//процедура чтения
</font><b>var</b> i,j:integer;
<b>begin</b>
  assign(input,<font color=blue>‘input.txt‘</font>); reset(input);
  <b>for</b> i:=1 <b>to</b> m <b>do</b> <b>begin</b>
    <b>for</b> j:=1 <b>to</b> n <b>do</b> <b>read</b>(x[i,j]);
    readln;
  <b>end</b>;
  close(input);
<b>end</b>;

<b>procedure</b> fWrite(x:mas);  <font color=green>//процедура записи
</font><b>var</b> i,j:integer;
<b>begin</b>
  assign(output,<font color=blue>‘output.txt‘</font>); rewrite(output);
  <b>for</b> i:=1 <b>to</b> m <b>do</b> <b>begin</b>
    <b>for</b> j:=1 <b>to</b> n <b>do</b> <b>write</b>(x[i,j]:5);
    writeln;
  <b>end</b>;
  close(output);
<b>end</b>;
<font color=green>//************* Основная программа **************
</font><b>var</b> a:mas;
<b>begin</b>
  <font color=green>//использование процедур
</font>  fRead(a);
  fWrite(a);
<b>end</b>.</code>

<b><i>Примечание:</i></b> При заполнении файла с данными (input.txt) вводите по четыре числа в строке разделённые пробелами!

Good Luck!
Форма ответа