Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program p5;
- const
- n=1000;
- type
- auto = record
- number: string;
- surname: string;
- brand: string;
- end;
- array_record = array [1..n] of auto;
- var
- a: auto;
- //b: array_record;
- i,j: integer;
- procedure read_from_file;
- var
- f: text;
- ch: char;
- begin
- assign(f, 'C:\1.txt');
- reset(f);
- while ch<>'.' do
- begin
- while ch<>' ' do
- begin
- i:=i+1;
- read(f,ch);
- a.number[i]:=ch;
- end;
- i:=0;
- while ch<>' ' do
- begin
- i:=i+1;
- read(f,ch);
- a.surname[i]:=ch;
- end;
- i:=0;
- while (ch<>',') or (ch<>'.') do
- begin
- i:=i+1;
- read(f,ch);
- a.brand[i]:=ch;
- end;
- i:=0;
- end;
- close(f);
- end;
- begin
- read_from_file;
- writeln(a.number);
- end.
- строка 28 : Ошибка времени выполнения: Индекс находился вне границ массива.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement