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

Ответ Создать новую тему
 
Старый 12.06.2010, 15:43   #1
Andrianka
Новичок
 
Аватар для Andrianka
 
Регистрация: 09.02.2010
Сообщений: 34
Репутация: 2 (2)
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:55   #2
o-user
Форумчанин
 
Регистрация: 03.02.2009
Сообщений: 789
Репутация: 236 (193)
Лучшие ответы: 4
Это даже нельзя откомпилировать! Это кусок программы!
Как проверять?
Другие темы раздела Форум программистов Pascal. Программирование с использованием языка Pascal (Паскаль). Помощь в решении задач.
Pascal Массив, строки и последовательность.
Вводится последовательность из N элементов, определить 2 минимума. Сгенерировать 2-х мерный массив с элементами от -10 до 10, отсортировать по возрастанию элементы первой строки. Вводится строка. Сколько слов начинается и заканчивается на одну и туже букву.
Переставить строки матрицы в соответствии с возрастанием элементов первого столбца. Pascal
Ввести матрицу A(m,n). Переставить строки матрицы в соответствии с возрастанием элементов первого столбца. вывести исходную и преобразованную матрицы. Пожалуйста пишите весь код
Старый 12.06.2010, 15:58   #3
WorldException
Банальное исключение
 
Аватар для WorldException
 
Регистрация: 31.03.2010
Сообщений: 314
Репутация: 116 (84)
Записей в блоге: 1
Лучшие ответы: 2
а какже program blabla; вначале,и end. в конце?
или не в этом дело?
Старый 12.06.2010, 16:03   #4
Puporev
Модератор
 
Аватар для Puporev
 
Регистрация: 18.05.2008
Сообщений: 62,087
Репутация: 40859 (29406)
Лучшие ответы: 1137
а какже program blabla;
Это вообще можно уже давным-давно не писать.

Добавлено через 51 секунду
Andrianka, Может и окончание программы покажете?
Старый 12.06.2010, 16:03
Google
Объявления
exited with exitcode=201 / Pascal (Паскаль)

Старый 12.06.2010, 16:25  [ТС]   #5
Andrianka
Новичок
 
Аватар для Andrianka
 
Регистрация: 09.02.2010
Сообщений: 34
Репутация: 2 (2)
Код 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
Модератор
 
Аватар для Puporev
 
Регистрация: 18.05.2008
Сообщений: 62,087
Репутация: 40859 (29406)
Лучшие ответы: 1137
Начнем с начала.
Это как?
type towar=record
..............................................
var f1:file of artykul;
o:array[1..30] of artykul;

Добавлено через 3 минуты
Ну а дальше вообще черт ногу сломит. До range error даже и не добраться.
Старый 12.06.2010, 16:44  [ТС]   #7
Andrianka
Новичок
 
Аватар для Andrianka
 
Регистрация: 09.02.2010
Сообщений: 34
Репутация: 2 (2)
Цитата Сообщение от 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 Графика: 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
Опции темы

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

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