Форум программистов, компьютерный форум CyberForum.ru Форум программистов | Компьютерный форум | Форум web-программистов | Форум по электронике и бытовой технике | Форум о софте | Научный форум | Карьера и бизнес
CyberForum.ru - форум программистов и сисадминов > >
Восстановить пароль Регистрация

Ответ Создать новую тему
 
Andrianka
Новичок
3 / 3 / 0
Регистрация: 09.02.2010
Сообщений: 34
12.06.2010, 15:43     exited with exitcode=201
  #1
подскажите что не правильно,компилирует без ошибок,но при запуске,когда я ввожу данные выбивает с ошибкой exited with exitcode=201,также другие процедуры которые работали стали выбивать эту ошибку.

Код 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
uses crt;
type towar=record
                nazwa:string[15];
                mera:string[6];
                kolichestwo,cena,wartost:double;
                end;
var f1:file of towar;
o:array[1..30] of towar;
 
 
procedure zakaz;
var i,n:byte;
nazwa:string[15];
mera:string[6];
wartost,kolichestwo:double;
begin
clrscr;
assign(f1,'magazyn.jnd');
reset(f1);
write('What do you want to buy?');
writeln;
write('Nazwanije towara: '); readln(nazwa);
write('Kolichestwo: ');           readln(kolichestwo);
write('Mera: ');                      readln(mera);
write('Cena');                          write(o[i].cena:0:2);
for i:=1 to n do
if (o[i].nazwa=nazwa) and (o[i].mera=mera) then
if (o[i].kolichestwo>= kolichestwo) then
begin
writeln('Zakaz prinjat!');
o[i].kolichestwo:=o[i].kolichestwo-kolichestwo;
o[i].wartost:=o[i].cena*kolichestwo;
end
else begin
writeln('Zakaz nie prinjat!');
end;
close(f1);
end;
AdAgent
Объявления
12.06.2010, 15:43
o-user
Форумчанин
239 / 196 / 4
Регистрация: 03.02.2009
Сообщений: 789
12.06.2010, 15:55
  #2
Это даже нельзя откомпилировать! Это кусок программы!
Как проверять?
WorldException
Банальное исключение
118 / 86 / 2
Регистрация: 31.03.2010
Сообщений: 314
Записей в блоге: 1
12.06.2010, 15:58
  #3
а какже program blabla; вначале,и end. в конце?
или не в этом дело?
Puporev
Модератор
42223 / 30737 / 1802
Регистрация: 18.05.2008
Сообщений: 65,425
12.06.2010, 16:03
  #4
а какже program blabla;
Это вообще можно уже давным-давно не писать.

Добавлено через 51 секунду
Andrianka, Может и окончание программы покажете?
Andrianka
Новичок
3 / 3 / 0
Регистрация: 09.02.2010
Сообщений: 34
12.06.2010, 16:25  [ТС]
  #5
Код 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
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
uses crt;
type towar=record
             nazwa:string[15];
             mera:string[6];
            koli4estwo,cena,wartost:double;
             end;
 
 
 
var f1:file of artykul;
o:array[1..30] of artykul;
 
 
 
procedure sozdanije;
var i,n:longint;
begin
  begin
  clrscr;
 
    assign(f1,'magazyn.jnd');
    rewrite(f1);
    write('Podaj ile danych chcesz wpisac: '); readln(n);
    for i:=1 to n do
    begin
    clrscr;
    writeln;
    write('Nazwa towara: ');   readln(o[i].nazwa);
    write('koli4estwo: ');              readln(o[i].koli4estwo);
    write('Mera: ');                readln(o[i].mera);
    write('Cena: ');                   readln(o[i].cena);
    write(f1,o[i]);
    clrscr;
    end;
    close(f1);
  end;
end;
 
procedure dopisanije;
var i,n:longint;
begin
  begin
  clrscr;
   assign(f1,'magazyn.jnd');
   reset(f1);
  write('Skolko towara nuzno dopisat: ');  readln(n);
  for i:=1 to n do
  begin
  clrscr;
  seek(magazyn,FileSize(magazyn));
  writeln;writeln;
            write(Nazwa: ');                    readln(o[i].nazwa);
            write('koli4estwo: ');            readln(o[i].koli4estwo);
            write('Mera: ');                   readln(o[i].mera);
            write('Cena: ');                 readln(o[i].cena);
            write(f1,o[i]);
    clrscr;
  end;
  close(f1);
  end;
  end;
 
procedure prosmotr;
var i,n:byte;
nazwa:string[15];
begin
clrscr;
assign(f1,'magazyn.jnd');
reset(f1);
write('Wpiszy nazwanije towara: ');
readln(nazwa);
for i:=1 to n do
if (o[i].nazwa=nazwa) then
begin
write('Nazwa towara: ');   writeln(o[i].nazwa);
    write('koli4estwo: ');              writeln(o[i].koli4estwo);
    write('Mera: ');                writeln(o[i].mera);
    write('Cena: ');                   writeln(o[i].cena);
end;
close(f1);
readln;
end;
 
procedure allprosmotr;
var i,n:byte;
begin
assign(f1,'magazyn.jnd');
reset(f1);
while not eof(f1) do
begin
read(f1,o[i]);
with o[i] do
begin
write('Nazwa towara: ');   writeln(o[i].nazwa);
    write('koli4estwo: ');              writeln(o[i].koli4estwo);
    write('Mera: ');                writeln(o[i].mera);
    write('Cena: ');                   writeln(o[i].cena);
end;
end;
close(f1);
end;
 
 
 
procedure zakaz;
var i,n:byte;
nazwa:string[15];
mera:string[6];
wartost,koli4estwo:double;
begin
clrscr;
assign(f1,'magazyn.jnd');
reset(f1);
write('4to hotite kupit?');
writeln;
write('Nazwanije towara: '); readln(nazwa);
write('Koli4estwo: ');           readln(koli4estwo);
write('Mera: ');                      readln(mera);
write('Cena');                          write(o[i].cena:0:2);
for i:=1 to n do
if (o[i].nazwa=nazwa) and (o[i].mera=mera) then
if (o[i].koli4estwo>= koli4estwo) then
begin
writeln('Zakaz prinjat!');
o[i].koli4estwo:=o[i].koli4estwo-koli4estwo;
o[i].wartost:=o[i].cena*koli4estwo;
end
else begin
writeln('Zakaz nie prinjat!');
end;
close(f1);
end;
 
 
procedure menu;
var q:byte;
begin
 
writeln('1.sozdanije.');
writeln('2.Dopisanije do magazina.');
writeln('3.Prosmotr towara.');
writeln('4.Prosmotr wsech towarow.');
writeln('5.Zakaz towara.');
 
readln(q);
begin
if q=1 then
begin
sozdanije;
menu;
end else
if q=2 then
begin
dopisanije;
menu;
end else
if q=3 then
begin
prosmotr;
menu;
end else
if q=4 then
begin
allprosmotr;
menu;
end else
if q=5 then
begin
zakaz;
menu;
end;
end;
end;
begin
clrscr;menu;
end.
Puporev
Модератор
42223 / 30737 / 1802
Регистрация: 18.05.2008
Сообщений: 65,425
12.06.2010, 16:42
  #6
Начнем с начала.
Это как?
type towar=record
..............................................
var f1:file of artykul;
o:array[1..30] of artykul;

Добавлено через 3 минуты
Ну а дальше вообще черт ногу сломит. До range error даже и не добраться.
Andrianka
Новичок
3 / 3 / 0
Регистрация: 09.02.2010
Сообщений: 34
12.06.2010, 16:44  [ТС]     exited with exitcode=201
  #7
Цитата Сообщение от Puporev Посмотреть сообщение
Начнем с начала.
Это как?
type towar=record
..............................................
var f1:file of artykul;
o:array[1..30] of artykul;

Добавлено через 3 минуты
Ну а дальше вообще черт ногу сломит. До range error даже и не добраться.
сори)переводила с другого языка..и пропустила видимо некоторые слова...счас исправлю...

Код 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
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
uses crt;
type towar=record
             nazwa:string[15];
             mera:string[6];
            koli4estwo,cena,wartost:double;
             end;
 
 
 
var f1:file of towar;
o:array[1..30] of towar;
 
 
 
procedure sozdanije;
var i,n:longint;
begin
  begin
  clrscr;
 
    assign(f1,'magazyn.jnd');
    rewrite(f1);
    write('Podaj ile danych chcesz wpisac: '); readln(n);
    for i:=1 to n do
    begin
    clrscr;
    writeln;
    write('Nazwa towara: ');   readln(o[i].nazwa);
    write('koli4estwo: ');              readln(o[i].koli4estwo);
    write('Mera: ');                readln(o[i].mera);
    write('Cena: ');                   readln(o[i].cena);
    write(f1,o[i]);
    clrscr;
    end;
    close(f1);
  end;
end;
 
procedure dopisanije;
var i,n:longint;
begin
  begin
  clrscr;
   assign(f1,'magazyn.jnd');
   reset(f1);
  write('Skolko towara nuzno dopisat: ');  readln(n);
  for i:=1 to n do
  begin
  clrscr;
  seek(f1,FileSize(f1));
  writeln;writeln;
            write('Nazwa: ');                    readln(o[i].nazwa);
            write('koli4estwo: ');            readln(o[i].koli4estwo);
            write('Mera: ');                   readln(o[i].mera);
            write('Cena: ');                 readln(o[i].cena);
            write(f1,o[i]);
    clrscr;
  end;
  close(f1);
  end;
  end;
 
procedure prosmotr;
var i,n:byte;
nazwa:string[15];
begin
clrscr;
assign(f1,'magazyn.jnd');
reset(f1);
write('Wpiszy nazwanije towara: ');
readln(nazwa);
for i:=1 to n do
if (o[i].nazwa=nazwa) then
begin
write('Nazwa towara: ');   writeln(o[i].nazwa);
    write('koli4estwo: ');              writeln(o[i].koli4estwo);
    write('Mera: ');                writeln(o[i].mera);
    write('Cena: ');                   writeln(o[i].cena);
end;
close(f1);
readln;
end;
 
procedure allprosmotr;
var i,n:byte;
begin
assign(f1,'magazyn.jnd');
reset(f1);
while not eof(f1) do
begin
read(f1,o[i]);
with o[i] do
begin
write('Nazwa towara: ');   writeln(o[i].nazwa);
    write('koli4estwo: ');              writeln(o[i].koli4estwo);
    write('Mera: ');                writeln(o[i].mera);
    write('Cena: ');                   writeln(o[i].cena);
end;
end;
close(f1);
end;
 
 
 
procedure zakaz;
var i,n:byte;
nazwa:string[15];
mera:string[6];
wartost,koli4estwo:double;
begin
clrscr;
assign(f1,'magazyn.jnd');
reset(f1);
write('4to hotite kupit?');
writeln;
write('Nazwanije towara: '); readln(nazwa);
write('Koli4estwo: ');           readln(koli4estwo);
write('Mera: ');                      readln(mera);
write('Cena');                          write(o[i].cena:0:2);
for i:=1 to n do
if (o[i].nazwa=nazwa) and (o[i].mera=mera) then
if (o[i].koli4estwo>= koli4estwo) then
begin
writeln('Zakaz prinjat!');
o[i].koli4estwo:=o[i].koli4estwo-koli4estwo;
o[i].wartost:=o[i].cena*koli4estwo;
end
else begin
writeln('Zakaz nie prinjat!');
end;
close(f1);
end;
 
 
procedure menu;
var q:byte;
begin
 
writeln('1.sozdanije.');
writeln('2.Dopisanije do magazina.');
writeln('3.Prosmotr towara.');
writeln('4.Prosmotr wsech towarow.');
writeln('5.Zakaz towara.');
 
readln(q);
begin
if q=1 then
begin
sozdanije;
menu;
end else
if q=2 then
begin
dopisanije;
menu;
end else
if q=3 then
begin
prosmotr;
menu;
end else
if q=4 then
begin
allprosmotr;
menu;
end else
if q=5 then
begin
zakaz;
menu;
end;
end;
end;
begin
clrscr;menu;
end.
Yandex
Объявления
12.06.2010, 16:44
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Автор Дата
Turbo Pascal program exited with exitcode=0
программа в графическом режиме выводит фигуру человечка по 4 параметрам человек- то вверху ,то внизу ,то слева ,то справа прога хорошая и когда по f7 стучишь с расстановкой то идет бесконечно...
Turbo Pascal ujif 23.08.2013 02:31
Free Pascal exited with exitcode = 201
Program laba8; uses crt; type zap=record name,film:string; minsto,maxsto:integer; end; var s:array of zap; i,r,w,n,q,l:integer; BEGIN clrscr;
Free Pascal Гаррус 16.12.2012 17:34
Free Pascal выкидывает из программы exited with exitcode = 200
Привет всем! У меня вновь появилась проблема с программированием в паскале. Прошу вашей помощи. Я написала программу для расчета по проектированию электрических станций. Программа получилась...
Free Pascal Укропка 25.11.2012 17:57
Turbo Pascal Графика: exitcode = 201
Хочу нарисовать муравья Ленгтона http://ru.wikipedia.org/wiki/%D0%9C%D1%83%D1%80%D0%B0%D0%B2%D0%B5%D0%B9_%D0%9B%D1%8D%D0%BD%D0%B3%D1%82%D0%BE%D0%BD%D0%B0. Чтобы он рисовал пока не нажмем любую...
Turbo Pascal Керра 12.04.2012 19:58
Free Pascal exited with exitcode=201
Подскажите почему программа не работает? Выдаёт "exited with" "exitcode=201" Program PomehozachitniiKod; Uses Crt; Var...
Free Pascal Стас45rus 25.08.2011 16:14
Pascal exitcode 201
написал прогу на метод Ньютона -Рафсона.да не могу понять где у меня ошибка в проге.Помогите пожалуйста. uses crt; const m=2; type matr_real=array of real; matr_int=array of integer;...
Pascal (Паскаль) goal555 04.05.2011 14:41
Free Pascal ошибка exited with exitcode =3
Добрый вечер. Компилятор ошибок не выдает,но при запуске программы пишут:" ошибка exited with exitcode =3" Суть задачи была: ввод/вывод матрицы из файла. Матрица А(4,4).Найти сумму отрицательных...
Free Pascal Szamarmadar 21.12.2010 10:53
Free Pascal Exitcode 201
наверно уже избитая тема(сорри если уже было что то похожее). Не могли бы вы помочь найти ошибку в задаче. условие: Дано целое число N. Пусть М -Число записанное теми же цифрами, что и N, но в...
Free Pascal Deryck 01.12.2010 18:09
Опции темы

Текущее время: 13:07. Часовой пояс GMT +4.

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