0 / 0 / 0
Регистрация: 27.11.2018
Сообщений: 11

Не могу разобраться почему не работает прога. Слетает после вывода на экран 'Список искомых книг'

20.12.2018, 22:16. Показов 904. Ответов 10

Студворк — интернет-сервис помощи студентам
Delphi
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
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
type
  book=record
  surname:string[20];
  name:string[40];
  izd:string[20];
  year:string[5];
  quantity:string[5];
  end;
  ttf= file of book;
  tbmas=array of book;
  str=string[20];
var Fb:ttf;
    n,k:integer;
    mb:tbmas;
 
 
 
 
procedure Input(var Fbx:ttf; nx:integer);
var x:book;
    i:integer;
begin
 
  writeln('Введите информацию о книгах');
  for i := 1 to nx do
    begin
     writeln('Введите фамилию автора');
     readln(x.surname);
     writeln('Введите название книги');
     readln(x.name);
     writeln('Введите издательство');
     readln(x.izd);
     writeln('Введите год издания');
     readln(x.year);
     writeln('Введите кол-во страниц');
     readln(x.quantity);
     writeln;
     write(Fbx,x);
    end;
end;
 
 
procedure Output(var Fbx:ttf);
var x:book;
 begin
 writeln('Список книг:');
 writeln;
 writeln(' ':9,'Автор',' ':28,'Название книги',' ':20,'Издательство',' ':6,'Год издания',' ','Кол-во страниц');
 while not eof(Fbx) do
  begin
    read(Fbx,x);
   with x do
 begin
  write(surname:20,' ':3);
  write(name:40,' ':3);
  write(izd:20,' ':7);
  write(' ':3,year:5,' ':8);
  write(quantity:5,' ':3);
  writeln;
 end;
  end;
 writeln;
 end;
 
Procedure Search(var Fbx:ttf;var mbx:tbmas;out kx:integer);
var x,buf:book;
    i,c,j:integer;
    avtor:str;
 begin
 kx:=0;
 c:=0;
 writeln('Введите фамилию искомого автора');
  readln(avtor);
 
   while not eof(Fbx) do
     begin
        read(Fbx,x);
      if x.surname=avtor then
       kx:=kx+1;
     end;
    if kx=0 then
    writeln('Нет книг искомого автора')//Проверено
    else
    begin
    readln;
    writeln('Список искомых книг');
    Reset(Fbx);
    while not eof(Fbx) do
     begin
        read(Fbx,x);
      if x.surname=avtor then
       begin
        c:=c+1;
        mbx[c]:=x;
        writeln(x.surname:20,x.name:40,x.izd:20,x.year:5,x.quantity:5);
       end;
     end;
    end;
 
    for j :=1  to c-1 do    // Сортировка
    for i := 1 to c-j do
      if mbx[i].quantity>mbx[i+1].quantity then
    begin
     buf:=mbx[i];
     mbx[i]:=mbx[i+1];
     mbx[i+1]:=buf;
    end;
 
    writeln('Отсортированный список книг:');
    readln;
    for i := 1 to c do
     with mbx[i] do
 begin
  write(surname:20,' ':3);
  write(name:40,' ':3);
  write(izd:20,' ':7);
  write(' ':3,year:5,' ':8);
  write(quantity:5,' ':3);
  writeln;
 end;
 readln; 
 
 
    writeln('Книга с наименьшим кол-вом страниц:');
    readln;
 
  write(mbx[1].surname:20,' ':3);
  write(mbx[1].name:40,' ':3);
  write(mbx[1].izd:20,' ':7);
  write(' ':3,mbx[1].year:5,' ':8);
  write(mbx[1].quantity:5,' ':3);
  writeln;
end;
 
begin
  writeln('Введите кол-во книг');
  readln(n);
  writeln;
  AssignFile(Fb,'TypedFile.txt');
  Rewrite(Fb);
  Input(Fb,n);
  Reset(Fb);
  Output(Fb);
  Reset(Fb);
  Search(Fb,mb,k);
  Reset(Fb);
  Truncate(Fb);
  closefile(Fb);
  readln;
 
end.

проблема где-то здесь, но не могу понять какая
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 begin
    readln;
    writeln('Список искомых книг');
    Reset(Fbx);
    while not eof(Fbx) do
     begin
        read(Fbx,x);
      if x.surname=avtor then
       begin
        c:=c+1;
        mbx[c]:=x;
        writeln(x.surname:20,x.name:40,x.izd:20,x.year:5,x.quantity:5);
       end;
     end;
    end;
Миниатюры
Не могу разобраться почему не работает прога. Слетает после вывода на экран 'Список искомых книг'  
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
20.12.2018, 22:16
Ответы с готовыми решениями:

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

Не могу разобраться, почему не работает программа
# -*- coding: utf-8 -*- words = words1 = for x in words: print(x) if x == "x": words1.append(x) ...

Не могу разобраться, почему не работает код
Я еще только начинаю изучать javascript, поэтому обращаюсь за помощью. Условие задачи звучит так: Найти наибольшую и наименьшую цифры в...

10
62 / 48 / 20
Регистрация: 01.09.2017
Сообщений: 381
20.12.2018, 22:48
drozdnikita1, как тут тебе помогут выявить ошибку без TXT файла с данными? Сам проект в студию!
0
0 / 0 / 0
Регистрация: 27.11.2018
Сообщений: 11
20.12.2018, 22:54  [ТС]
смысл в том, что файл создается в процессе программы, а именно в процедуре Input
0
62 / 48 / 20
Регистрация: 01.09.2017
Сообщений: 381
20.12.2018, 23:05
drozdnikita1, Создается то он пустым, а считывать хочет сразу, а данных то нема?
0
0 / 0 / 0
Регистрация: 27.11.2018
Сообщений: 11
20.12.2018, 23:12  [ТС]
Нет, там мы пустой файл открываем и начинаем забивать данные
0
62 / 48 / 20
Регистрация: 01.09.2017
Сообщений: 381
20.12.2018, 23:36
drozdnikita1, У тебя тут с кодировкой русских символов нестыковка, поэтому, если всё русское переименовать в латиницу, то всё норм, испробуй и увидишь. Тут нужно в сторону кодировок смотреть, пока не понятно что делать, нужно подумать.
0
62 / 48 / 20
Регистрация: 01.09.2017
Сообщений: 381
20.12.2018, 23:56
drozdnikita1, Такс, я решил твою проблемку. Вот испробуйConsole3.rar потом объясню, если всё будет как надо работать, отпишись.
0
 Аватар для Matan!
1882 / 1016 / 228
Регистрация: 31.05.2013
Сообщений: 6,645
Записей в блоге: 6
21.12.2018, 10:19
Цитата Сообщение от drozdnikita1 Посмотреть сообщение
Rewrite(Fb);
Input(Fb,n);
Reset(Fb);
Не уверен, что можно вот так вот менять атрибут открытия файла.. Я бы в каждой процедуре писал Reset или Rewrite, в зависимости от роли этой процедуры. Но раз Вы пошли таким путём, то, ИМХО, перед сменой атрибутов стоит закрыть файл, и открыть с новым атрибутом.
0
62 / 48 / 20
Регистрация: 01.09.2017
Сообщений: 381
21.12.2018, 10:44
Matan!, Да! У него ещё много недостатков в проге. Во первых каждый раз при новом запуске происходит перезапись всего в файле, нужно добавить проверку на существование файла. И во вторых не работает процедура
Procedure Search(var Fbx:ttf;var mbx:tbmas;out kx:integer); вылетает ошибка когда после окончания ввода данных идет режим поиска данных. А так в общем ту проблемку, которую он тут описал я решил с помощью перекодировки файла проекта в OEM 866
0
Модератор
 Аватар для D1973
9929 / 6467 / 2457
Регистрация: 21.01.2014
Сообщений: 27,425
Записей в блоге: 3
21.12.2018, 11:09
Я вот увидел, что в объявлении типов и переменных присутствует динамический массив,
Цитата Сообщение от drozdnikita1 Посмотреть сообщение
tbmas=array of book;
но нигде не увидел, где для этого массива память выделяется...
0
пофигист широкого профиля
4770 / 3206 / 862
Регистрация: 15.07.2013
Сообщений: 18,613
22.12.2018, 02:27
Цитата Сообщение от drozdnikita1 Посмотреть сообщение
проблема где-то здесь, но не могу понять какая
В этом куске не пойми чего упоминается некая переменная mbx. По коду это массив. Нигде, ни в каких других приведенных кусках кода эта переменная не упоминается.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
22.12.2018, 02:27
Помогаю со студенческими работами здесь

ребят не могу разобраться почему не работает программ
Exception in Tkinter callback Traceback (most recent call last): File "c:\program files\python36\lib\tkinter\__init__.py", line 1699,...

Не могу разобраться с однонаправленным списком (есть прога)
Помогите программку написать, пожалуйста Реализовать алгоритм работы с динамической структурой данных – однонаправленный список:...

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

Глобальные и локальные переменные, одна и та же прога в процедуре Не работает, а просто так работает. Почему?
Здравствуйте, есть программка которая переводит из 2-ной системы в 10-ную. Она работает. А вот поместил я её в процедуру и работать...

Вывести на экран список книг
Дан массив, каждая запись содержит три поля: первое поле - название книги; второе - год издания; третье - сколько раз эту книгу брали...


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

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

Новые блоги и статьи
Отчёт о спецтехнике находящейся в ремонте
Maks 20.04.2026
Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .
Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)"
Hrethgir 19.04.2026
Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .
Запрет удаления строк ТЧ документа при определенном условии
Maks 19.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
Модель заражения группы наркоманов
alhaos 17.04.2026
Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .
Мысли в слух. Про "навсегда".
kumehtar 16.04.2026
Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .
My Business CRM
MaGz GoLd 16.04.2026
Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .
Знаешь почему 90% людей редко бывают счастливыми?
kumehtar 14.04.2026
Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД
Maks 14.04.2026
Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru