Форум программистов и сисадминов CyberForum.ru
Вернуться   Форум программистов и сисадминов CyberForum.ru > Форум Форум программистов > Форум Pascal (Паскаль)
Перезагрузить страницу

exited with exitcode=201

Регистрация Правила Блоги Социальные группы Поиск Сообщения за день Все разделы прочитаны

Ответ Создать новую тему
 
Поиск в этой теме
Старый 12.06.2010, 15:43   #1
Andrianka
Новичок
 
Аватар для Andrianka
 
Регистрация: 09.02.2010
Адрес: Вроцлав
Сообщений: 35
Репутация: 2 (2)
Печаль exited with exitcode=201
подскажите что не правильно,компилирует без ошибок,но при запуске,когда я ввожу данные выбивает с ошибкой 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

 
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;
 
 
Andrianka вне форума
Другие темы раздела Форум программистов Pascal. Программирование с использованием языка Pascal (Паскаль). Помощь в решении задач.
Pascal (Паскаль) Массив, строки и последовательность.
Вводится последовательность из N элементов, определить 2 минимума. Сгенерировать 2-х мерный массив с элементами от -10 до 10, отсортировать по возрастанию элементы первой строки. Вводится строка. Сколько слов начинается и заканчивается на одну и туже букву.. Массив, строки и последовательность. 		Переставить строки матрицы в соответствии с возрастанием элементов первого столбца. Pascal (Паскаль)
Ввести матрицу A(m,n). Переставить строки матрицы в соответствии с возрастанием элементов первого столбца. вывести исходную и преобразованную матрицы. Пожалуйста пишите весь код. Переставить строки матрицы в соответствии с возрастанием элементов первого столбца.
Старый 12.06.2010, 15:55   #2
o-user
Форумчанин
 
Регистрация: 03.02.2009
Сообщений: 789
Репутация: 235 (192)
По умолчанию Re: выбивает ошибку=(((((((
Это даже нельзя откомпилировать! Это кусок программы!
Как проверять?
o-user вне форума
Старый 12.06.2010, 15:58   #3
WorldException
Банальное исключение
 
Аватар для WorldException
 
Регистрация: 31.03.2010
Адрес: Новосибирск
Сообщений: 323
Репутация: 114 (82)
Записей в блоге: 1
По умолчанию Re: выбивает ошибку=(((((((
а какже program blabla; вначале,и end. в конце?
или не в этом дело?
WorldException вне форума
Старый 12.06.2010, 16:03   #4
Puporev
Модератор
 
Аватар для Puporev
 
Регистрация: 18.05.2008
Адрес: Пермский край г.Красновишерск
Сообщений: 53,826
Репутация: 35505 (24340)
По умолчанию Re: выбивает ошибку=(((((((
а какже program blabla;
Это вообще можно уже давным-давно не писать.

Добавлено через 51 секунду
Andrianka, Может и окончание программы покажете?
Puporev вне форума
Старый 12.06.2010, 16:25  [ТС]   #5
Andrianka
Новичок
 
Аватар для Andrianka
 
Регистрация: 09.02.2010
Адрес: Вроцлав
Сообщений: 35
Репутация: 2 (2)
По умолчанию Re: выбивает ошибку=(((((((
Код 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
177
178
179
180
181
182

 
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.
 
 
 
 
 
Andrianka вне форума
Старый 12.06.2010, 16:42   #6
Puporev
Модератор
 
Аватар для Puporev
 
Регистрация: 18.05.2008
Адрес: Пермский край г.Красновишерск
Сообщений: 53,826
Репутация: 35505 (24340)
По умолчанию Re: exited with exitcode=201
Начнем с начала.
Это как?
type towar=record
..............................................
var f1:file of artykul;
o:array[1..30] of artykul;

Добавлено через 3 минуты
Ну а дальше вообще черт ногу сломит. До range error даже и не добраться.
Puporev вне форума
Старый 12.06.2010, 16:44
Yandex
Объявления
Старый 12.06.2010, 16:44  [ТС]   #7
Andrianka
Новичок
 
Аватар для Andrianka
 
Регистрация: 09.02.2010
Адрес: Вроцлав
Сообщений: 35
Репутация: 2 (2)
По умолчанию Re: exited with exitcode=201
Цитата Сообщение от 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
177

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

Похожие темы
Тема Автор
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. Чтобы он рисовал пока не нажмем любую клавишу. Не понимаю, почему выдает exitcode = 201. Объясните пожалуйста) Вот код: uses crt,graph; ... 		Керра
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 		Стас45rus
Pascal (Паскаль) exitcode 201
написал прогу на метод Ньютона -Рафсона.да не могу понять где у меня ошибка в проге.Помогите пожалуйста. uses crt; const m=2; type matr_real=array of real; matr_int=array of integer; mas_real=array of real; mas_int=array of integer; var B,X:mas_real; a:matr_real; 		goal555
Free Pascal ошибка exited with exitcode =3
Добрый вечер. Компилятор ошибок не выдает,но при запуске программы пишут:" ошибка exited with exitcode =3" Суть задачи была: ввод/вывод матрицы из файла. Матрица А(4,4).Найти сумму отрицательных элементов среди элементов , расположенных ниже побочной диагонали. 1)Минимальный положительный... 		Szamarmadar
Free Pascal Exitcode 201
наверно уже избитая тема(сорри если уже было что то похожее). Не могли бы вы помочь найти ошибку в задаче. условие: Дано целое число N. Пусть М -Число записанное теми же цифрами, что и N, но в порядке возрастания, Найдите сумму N+M. Вот мое решение: Type IntArray = array of LongInt;... 		Deryck
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра
Линейный вид Линейный вид

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

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