|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
20.05.2009, 23:20 | #1 |
Новичок
Джуниор
Регистрация: 08.04.2009
Сообщений: 2
|
где ошибка?
создать файл F вещ чисел.получить вектор B записывая в него каждую третью компоненту файл,читая файл сначала
и вектор А, читая файл с конца файл и векторы распечатать program vector; const Nmax=100; type Tfile=file of integer; tmas=array[1..nmax] of integer; var H:Tfile; A,B,mas:tmas; n:byte; Procedure vvod(var xH:Tfile; ch: char); var a: integer; begin rewrite(xH); writeln('Введите компоненты файла ', ch); write('a='); readln(a); While a<>999 do begin write(H, a); write('a='); readln(a) end; close(H) end; procedure FormB (var xH:Tfile;var X:tmas; var nx:byte); var a:integer; begin reset(xH); Seek(xH,2); nx:=0; While not eof(xH) do begin read (xH,a); nx:=nx+1; X[nx]:=a; Seek (xH, filepos(xH)+2); end; close(xH); end; procedure formA (var xH:Tfile; var X:tmas; var nx:byte); var a:integer; begin reset(xH); seek(xH,filesize(xH)-2); nx:=0; While filepos(xH)>=0 do begin; read(xH,a); nx:=nx+1; X[nx]:=a; Seek(xH,filepos(xH)-3); end; close(xH); end; procedure vyvod(var xH: Tfile; ch:char); var a: integer; begin writeln('Печать файла ', ch); reset(xH); While not eof(xH) do begin read(xH, a); writeln('a=', a:5) end; close(xH); end; procedure printmas (const mas:Tmas;Nx:byte;ch:char); var i: byte; begin writeln('полученный вектор:',ch); for i:=1 to nx do write (mas[i]:6); end; begin assign(H,'H.dat'); vvod(H,'H'); formB (H,B,N); formA (H,A,N); vyvod(H,'H'); printmas(A,n,'A'); printmas(B,n,'B'); end. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Подскажите где ошибка | Ximer | Паскаль, Turbo Pascal, PascalABC.NET | 5 | 13.04.2009 13:41 |
где ошибка ? | mouse697 | Помощь студентам | 2 | 22.03.2009 15:01 |
где тут ошибка? | Fogg | Общие вопросы C/C++ | 5 | 18.12.2008 09:34 |
Где ошибка? | [Smarik] | Общие вопросы Delphi | 5 | 01.04.2008 09:56 |
Где ошибка? | jarded | Общие вопросы C/C++ | 2 | 01.06.2007 15:10 |