Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 27.11.2018
Сообщений: 10
1
Delphi 6-7

Подскажите в чем ошибка, после ввода названия картины вылетает

28.11.2018, 17:34. Просмотров 867. Ответов 4
Метки нет (Все метки)

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
type
 
tzap=record
nazv:string[80];
imya:string[64];
god_napis:integer;
strana:integer;
cena:integer;
end;
 
var
f : file of tzap;
my_geo : tzap;
choice : integer;
n, a, i: Integer;
z: tzap;
 
procedure sozd;
 
begin
Rewrite(f);
write('Vvedite kol-vo kartin ');
readln(n);
 
 
for i:=1 to n do with z do
 
begin
write('Vvedite nazvaniye ', i, ' kartini ');
readln(nazv);
write('Vvedite imya xydoznika ');
readln(imya);
write('Vvedite god napisania ');
readln(god_napis);
write('Vvedite strany ');
readln(strana);
write('Vvedite ceny kartini ');
readln(cena);
write(f,z);
end;
 
CloseFile(f);
Writeln('File sozdan');
Readln;
end;
 
procedure output_rec;
 
begin
writeln('kartini mira:');
Writeln('--------------------------------------------------------------------------');
writeln(' Nazvanie | imya | god_napis | strana | cena ');
Writeln('--------------------------------------------------------------------------');
reset(f);
while not eof(f) do
 
begin
 
read(f,my_geo);
with my_geo do
 
begin
 
write(nazv:10,' ');
write(imya:13,' ');
write(god_napis:13);
write(strana:16);
writeln(cena:14);
 
end;
 
writeln;
end;
 
Writeln('--------------------------------------------------------------------------');
writeln('Nazhmite Enter.');
readln;
closefile(f);
end;
 
procedure append_rec;
begin
writeln('Dobavlenie kartin:');
reset(f);
with my_geo do
 
begin
write('Nazv:'); readln(Nazv);
write('imya:'); readln(imya);
write('god_napis:'); readln(god_napis);
write('strana:'); readln(strana);
write('cena:'); readln(cena);
end;
 
seek(f,filesize(f));
write(f,my_geo);
writeln;
writeln('Nazhmite Enter.');
readln;
closefile(f);
end;
 
procedure list_rec;
begin
writeln('kartini bolee izvestnix xydoznikov ',a,':');
Writeln('--------------------------------------------------------------------------');
writeln(' Nazvanie | imya | god_napis | strana | cena ');
Writeln('--------------------------------------------------------------------------');
reset(f);
while not eof(f) do
begin
read(f,my_geo);
if my_geo.strana > a then
begin
 
with my_geo do
begin
 
write(nazv:10,' ');
write(imya:13,' ');
write(god_napis:13);
write(strana:16);
writeln(cena:14);
 
end;
 
writeln;
end;
end;
Writeln('--------------------------------------------------------------------------');
writeln('Nazhmite Enter.');
readln;
closefile(f);
end;
 
begin
assignfile(f,'geo.dat');
Writeln('Vvedite zadannyu kartiny :');
Readln(a);
sozd;
output_rec;
list_rec;
append_rec;
append_rec;
output_rec;
 
readln;
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.11.2018, 17:34
Ответы с готовыми решениями:

Подскажите, почему вылетает программа после ввода названия первого производителя?
# include <iostream> using namespace std; struct car { char* name ; int year; }; int...

Ошибка в программе после ввода названия файла
Помогите найти проблему в небольшой программе. Вылетает с ошибкой 217 после того, как ввожу...

не пойму в чем ошибка после ввода переменной и нажатие на кнопку выдаешь ошибку
#include <vcl.h> #include <math.h> #pragma hdrstop #include "Unit1.h"...

Запуск программы после ввода её названия
Подскажите пожалуйста какой аргумент нужно вводить в cin, чтобы когда пользователь прописывал...

4
Модератор
60899 / 45705 / 31537
Регистрация: 18.05.2008
Сообщений: 110,005
28.11.2018, 17:39 2
Потому что объявлено
var a:integer;
в вводите название как строку?
1
0 / 0 / 0
Регистрация: 27.11.2018
Сообщений: 10
28.11.2018, 18:21  [ТС] 3
Что-то я не особо поняла в чем дело. Можете подробнее объяснить? Если не в интежер, то куда ?
0
Эксперт Pascal/Delphi
6269 / 4227 / 4611
Регистрация: 05.06.2014
Сообщений: 20,806
28.11.2018, 18:43 4
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
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
type
  tzap = record
    nazv: string[80];
    imya: string[64];
    god_napis: integer;
    strana: string[64];
    cena: real;
  end;
 
var
  f: file of tzap;
  my_geo: tzap;
  choice: integer;
  n, a, i: Integer;
  z: tzap;
  s: string;
 
procedure sozd;
var
  i: Integer;
 
begin
  Rewrite(f);
  write('Vvedite kol-vo kartin ');
  readln(n);
  for i := 1 to n do 
    with z do
    begin
      write('Vvedite nazvaniye ', i, ' kartini ');
      readln(nazv);
      write('Vvedite imya xydoznika ');
      readln(imya);
      write('Vvedite god napisania ');
      readln(god_napis);
      write('Vvedite strany ');
      readln(strana);
      write('Vvedite ceny kartini ');
      readln(cena);
      write(f, z);
    end;
  CloseFile(f);
  Writeln('File sozdan');
  Readln;
end;
 
procedure output_rec;
 
begin
  writeln('kartini mira:');
  Writeln('--------------------------------------------------------------------------');
  writeln(' Nazvanie | imya | god_napis | strana | cena ');
  Writeln('--------------------------------------------------------------------------');
  reset(f);
  while not eof(f) do
  begin
    read(f, my_geo);
    with my_geo do
    begin
      write(nazv:10, ' ');
      write(imya:13, ' ');
      write(god_napis:13);
      write(strana:16);
      writeln(cena:14);
      
    end;
    
    writeln;
  end;
  
  Writeln('--------------------------------------------------------------------------');
  writeln('Nazhmite Enter.');
  readln;
  closefile(f);
end;
 
procedure append_rec;
begin
  writeln('Dobavlenie kartin:');
  reset(f);
  with my_geo do
  begin
    write('Nazv:');readln(Nazv);
    write('imya:');readln(imya);
    write('god_napis:');readln(god_napis);
    write('strana:');readln(strana);
    write('cena:');readln(cena);
  end;
  seek(f, filesize(f));
  write(f, my_geo);
  writeln;
  writeln('Nazhmite Enter.');
  readln;
  closefile(f);
end;
 
procedure list_rec;
begin
  writeln('kartini bolee izvestnix xydoznikov ', a, ':');
  Writeln('--------------------------------------------------------------------------');
  writeln(' Nazvanie | imya | god_napis | strana | cena ');
  Writeln('--------------------------------------------------------------------------');
  reset(f);
  while not eof(f) do
  begin
    read(f, my_geo);
    if my_geo.strana > s then
    begin
      with my_geo do
      begin
        write(nazv:10, ' ');
        write(imya:13, ' ');
        write(god_napis:13);
        write(strana:16);
        writeln(cena:14);
      end;
      writeln;
    end;
  end;
  Writeln('--------------------------------------------------------------------------');
  writeln('Nazhmite Enter.');
  readln;
  closefile(f);
end;
 
begin
  assignfile(f, 'geo.dat');
  Writeln('Vvedite zadannyu kartiny :');
  Readln(s);
  sozd;
  output_rec;
  list_rec;
  append_rec;
  append_rec;
  output_rec;
  readln;
end.
1
0 / 0 / 0
Регистрация: 27.11.2018
Сообщений: 10
28.11.2018, 21:34  [ТС] 5
Спасибо огромное!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.11.2018, 21:34

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Вылетает после ввода кода
У меня вылетает флеш после ввода кода.Что нужно сделать,чтоб исправить? import...

Программа вылетает после ввода данных
После ввода Количества вылетает, подскажите, как исправить #include "stdafx.h" #include...

После ввода первого элемента программа вылетает
Добрый день. Я студент, пытаюсь сделать лабораторную работу. #include <stdio.h> void...

после ввода сразу вылетает с крит. ошибкой
int main(int nNumberofArgs, char* pszArgs) { char *ipshnik; cout << "enter IP"; ...

После ввода текста и перехода на другую ячейку excel вылетает
win 7, office 2013. При попытке создать новый документ, после ввода текста и перехода на другую...

Как зациклить? после ввода дважды не правильного числа вылетает
#include <iostream> #include<limits> using namespace std; int check(int Test) { ...


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

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

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