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

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

подскажите что не правильно,компилирует без ошибок,но при запуске,когда я ввожу данные выбивает с ошибкой 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;
12.06.2010, 15:43
AdAgent
Объявления
12.06.2010, 15:55   #2
o-user
Форумчанин
239 / 196 / 4
Регистрация: 03.02.2009
Сообщений: 789
exited with exitcode=201

Это даже нельзя откомпилировать! Это кусок программы!
Как проверять?
Другие темы раздела
Pascal Массив, строки и последовательность.
Вводится последовательность из N элементов, определить 2 минимума. Сгенерировать 2-х мерный массив с элементами от -10 до 10, отсортировать по возрастанию элементы первой строки. Вводится строка. Сколько слов начинается и заканчивается на одну и туже букву.
Переставить строки матрицы в соответствии с возрастанием элементов первого столбца. Pascal
Ввести матрицу A(m,n). Переставить строки матрицы в соответствии с возрастанием элементов первого столбца. вывести исходную и преобразованную матрицы. Пожалуйста пишите весь код
12.06.2010, 15:58   #3
WorldException
Банальное исключение
118 / 86 / 2
Регистрация: 31.03.2010
Сообщений: 314
Записей в блоге: 1
exited with exitcode=201

а какже program blabla; вначале,и end. в конце?
или не в этом дело?
12.06.2010, 16:03   #4
Puporev
Модератор
42120 / 30639 / 1759
Регистрация: 18.05.2008
Сообщений: 65,190
exited with exitcode=201

а какже program blabla;
Это вообще можно уже давным-давно не писать.

Добавлено через 51 секунду
Andrianka, Может и окончание программы покажете?
12.06.2010, 16:03
AdAgent
Объявления
12.06.2010, 16:25  [ТС]   #5
Andrianka
Новичок
3 / 3 / 0
Регистрация: 09.02.2010
Сообщений: 34
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
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.
12.06.2010, 16:42   #6
Puporev
Модератор
42120 / 30639 / 1759
Регистрация: 18.05.2008
Сообщений: 65,190
exited with exitcode=201

Начнем с начала.
Это как?
type towar=record
..............................................
var f1:file of artykul;
o:array[1..30] of artykul;

Добавлено через 3 минуты
Ну а дальше вообще черт ногу сломит. До range error даже и не добраться.
12.06.2010, 16:44  [ТС]   #7
Andrianka
Новичок
3 / 3 / 0
Регистрация: 09.02.2010
Сообщений: 34
exited with exitcode=201 / Pascal (Паскаль)

Цитата Сообщение от 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.
12.06.2010, 16:44
Yandex
Объявления
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Автор Дата
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
Free Pascal exited with exitcode=201
Подскажите почему программа не работает? Выдаёт "exited with" "exitcode=201" Program PomehozachitniiKod; Uses Crt; Var b:array of byte; des,ost,ed,i,n,s:integer; Begin ClrScr; for i:=1 to 11 do begin
Free Pascal Стас45rus 25.08.2011 16:14
Free Pascal ошибка exited with exitcode =3
Добрый вечер. Компилятор ошибок не выдает,но при запуске программы пишут:" ошибка exited with exitcode =3" Суть задачи была: ввод/вывод матрицы из файла. Матрица А(4,4).Найти сумму отрицательных элементов среди элементов , расположенных ниже побочной диагонали. 1)Минимальный положительный...
Free Pascal Szamarmadar 21.12.2010 10:53
Опции темы

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

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