0 / 0 / 0
Регистрация: 15.11.2013
Сообщений: 23
1

Ошибка при выводе файла записи

13.02.2014, 20:54. Показов 534. Ответов 1
Метки нет (Все метки)

Задача состоит в том, что надо создать файл записи (музыка: исполнитель, название, год, жанр), затем упорядочить внесенные данные по какому-либо параметру, а также совершить поиск по заданному параметру.

Никак не могу сделать вывод записи из файла, программа просто срубается вместо того, чтобы перейти к процедуре вывода..Помогите, пожалуйста!

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
program MusicList;
 
{$APPTYPE CONSOLE}
uses
  SysUtils, CRT32;
 
type
 
Tmusic = record
  name:string[50];
  performer:string[50];
  year:integer;
  genre:string[50];
end;
 
Tfile = file of Tmusic;
 
Procedure Input(VAR f:Tfile);
VAR music:Tmusic; c:char;
begin
rewrite(f);
repeat
  with music do
   begin
     write('name: '); readln(name);
     write('performer: '); readln(performer);
     write('year: '); readln(year);
     write('genre: '); readln(genre);
     write(f,music);
   end;  
  writeln;
  write('press <Space> to finish; <Enter> to continue');
  writeln;
  c:=readkey;
  writeln;
Until c = #32;
close(f);
end;
 
Procedure Output(VAR f:Tfile);
VAR music:Tmusic;
begin
reset(f);
while not eof(f) do
  begin
  read(f,music);
    with music do
    begin
      writeln(name);
      writeln(performer);
      writeln(year);
      writeln(genre);
    end;
  end;  
close(f);
end;
 
 
VAR f:Tfile; music:Tmusic;
begin
assign(f,'D:\temp\list.txt');
Input(f);
Output(f);
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.02.2014, 20:54
Ответы с готовыми решениями:

Ошибка при вводе - выводе из файла
Почему пишет не найдет файл (в проге ассигн,ресет, реврайт стоит на него) создаю его вручную -...

Ошибка при выводе IP
С виду самая примитивная программка при нажатии на кнопку выводит IP адрес сетевой карты в Edit, но...

Ошибка при выводе матрицы
Задача такова: Расставьте строки данной матрицы в порядке возрастания элементов первого столбца....

Ошибка при выводе массива
Здравсвтуйте! Моя задача сосчитать, сколько раз каждая из цифр (от 0 до 9) встречается в массиве...

1
571 / 525 / 201
Регистрация: 24.01.2012
Сообщений: 1,283
13.02.2014, 22:25 2
Программа работает правильно. Просто после выполнения тут-же закрывается. Чтобы увидеть результат после Output(f); нужно написать Readln;
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.02.2014, 22:25

Ошибка при выводе графика
Нужно вывести график из одного массива x unit Unit2; interface uses WinTypes, WinProcs,...

Ошибка при выводе в Excel
При выводе данных с программы в Excel проявляется ошибка. При этом данные выгружаются все без...

Ошибка при выводе матрицы
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics,...

Ошибка при выводе суммы (в StringGrid)
Есть таблица (как на рис) 11х11 мне необходимо посчитать Gj(1) (первая итерация), и qj(1),...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.