SHARE
TWEET

Untitled

a guest Jan 21st, 2013 33 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program p5;
  2. const
  3.   n=1000;
  4. type
  5.   auto = record
  6.     number: string;
  7.     surname: string;
  8.     brand: string;
  9.   end;
  10.   array_record = array [1..n] of auto;
  11. var
  12.   a: auto;
  13.   //b: array_record;
  14.   i,j: integer;
  15. procedure read_from_file;
  16.   var
  17.     f: text;
  18.     ch: char;
  19.   begin
  20.     assign(f, 'C:\1.txt');
  21.     reset(f);
  22.     while ch<>'.' do
  23.       begin
  24.         while ch<>' ' do
  25.           begin
  26.             i:=i+1;
  27.             read(f,ch);
  28.             a.number[i]:=ch;
  29.           end;
  30.         i:=0;
  31.         while ch<>' ' do
  32.           begin
  33.             i:=i+1;
  34.             read(f,ch);
  35.             a.surname[i]:=ch;
  36.           end;
  37.         i:=0;
  38.         while (ch<>',') or (ch<>'.') do
  39.           begin
  40.             i:=i+1;
  41.             read(f,ch);
  42.             a.brand[i]:=ch;
  43.           end;
  44.         i:=0;
  45.       end;
  46.     close(f);
  47.   end;
  48. begin
  49.   read_from_file;
  50.   writeln(a.number);
  51. end.
  52.  
  53. файл:
  54. 4568 файл правка,
  55. 1234 формат вид.
  56.  
  57.  
  58. строка 28 : Ошибка времени выполнения: Индекс находился вне границ массива.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top