Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Запись и чтение из файла массива строк

Автор: -=АнЮтА=- 3.06.2007 17:56

    Program vvod_stud;
    uses crt;
    const coun=2;
var m:array[1..coun] of string;
i:integer;
q:char;
f:file of array [1..coun] of string;
 Begin
 Clrscr;
 assign(f,'stud.dat');
 rewrite(f);
 i:=1;
 while not (i=10) or (q=#27) do begin
 q:=readkey;
 if q=#27 then begin writeln('Операция прервана'); 
readln;halt(1);  end;
 writeln ('Введите студента или нажмите Esc');
 readln(m[i]);

 i:=i+1;
 end;

 close(f);
 readln;
 assign(f,'stud.dat');
 reset(f);
 for i:=1 to coun do
 readln (f,m[i]);
 write(m[i],'   ');
 close(f);
 readln;
end.



что хочу сделать - записать в файл массив из десяти строк а пото его считать оттуда. подозреваю что неверно обращаюсь к тому,чо хочу считать. Обращаюсь к элементу массива. а в файле записан целый. Как это можно реализовать?

blink.gif



Автор: Perfez 3.06.2007 18:48

Цитата
f:file of array [1..coun] of string;

вместо этого вроде
Цитата
f:file of string;

это должно быть... smile.gif

Автор: Артемий 3.06.2007 19:01

а зачем 2 раза открывать файл?Все равно в первом разе ты не производишь с ним никаких операций..или это не весь код?

Автор: -=АнЮтА=- 3.06.2007 19:23

Неа, не совсем весь....что-то я подзапуталась о_О
Спасиб за помощь)