Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
0 / 0 / 0
Регистрация: 13.01.2015
Сообщений: 11
1

Выводится ошибка "exitcode 2"

21.05.2015, 17:37. Показов 1045. Ответов 7
Метки нет (Все метки)

выводится ошибка "exitcode 2", запускается нажимаю на кнопку меню и вылет
где накосячил?
работаю в FreePascal


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
program salon;
uses crt;
 type uslug=record
  surnameS:string[15];
  nameS:string[15];
  dateS:string[15];
  timeS:string[15];
  uslugaS:string[15];
  stoimS:string[15];
  masterS:string[15];
 end;
var uslugF:file of uslug;
uslugR:uslug;
a:array[1..500] of uslug;
 
 
 
procedure allzapis;
 begin
Assign(uslugF,'usluga\uslug.txt');
reset(uslugF);
clrscr;
writeln('‚ᥠ§*ЇЁбЁ:');
writeln;
 
while not eof(uslugF) do
begin
uslugR.surnameS:='';
uslugR.nameS:='';
uslugR.dateS:='';
uslugR.timeS:='';
uslugR.uslugaS:='';
uslugR.stoimS:='';
uslugR.masterS:='';
read(uslugF,uslugR);
writeln;
write('',uslugR.surnameS);
write('',uslugR.nameS);
write('',uslugR.dateS);
write('',uslugR.timeS);
write('',uslugR.uslugaS);
write('',uslugR.stoimS);
write('',uslugR.masterS);
end;
close(uslugF);
writeln;
writeln;
write('Press any key...');
readkey;
end;
 
procedure addzapis;
begin
assign(uslugF,'usluga\uslug.txt');
reset(uslugF);
while not eof(uslugF) do read(uslugF,uslugR);
uslugR.surnameS:='';
uslugR.nameS:='';
uslugR.dateS:='';
uslugR.timeS:='';
uslugR.uslugaS:='';
uslugR.stoimS:='';
uslugR.masterS:='';
clrscr;
writeln('add zapis:');
writeln;
write('vvedite surname:');
readln(uslugR.surnameS);
write('vvedite name:');
readln(uslugR.nameS);
write('vvedite data:');
readln(uslugR.dateS);
write('vvedite time:');
readln(uslugR.timeS);
write('vvedite uslugu:');
readln(uslugR.uslugaS);
write('vvedite stoim:');
readln(uslugR.stoimS);
write('vvedite master:');
readln(uslugR.masterS);
close(uslugF);
writeln;
writeln('zapis added sucsessful');
writeln;
write('press any key');
readkey;
end;
 
procedure deletezapis;
var temp:file of uslug;
nazv:string[15];
begin
assign(uslugF,'usluga\uslug.txt');
reset(uslugF);
assign(temp,'usluga\temp.txt');
rewrite(temp);
uslugR.surnameS:='';
uslugR.nameS:='';
uslugR.dateS:='';
uslugR.timeS:='';
uslugR.uslugaS:='';
uslugR.stoimS:='';
uslugR.masterS:='';
clrscr;
writeln('delete zapis:');
writeln;
write('vvedita surname:');
readln(nazv);
while not eof(uslugF) do
begin
read(uslugF,uslugR);
if uslugR.surnameS<>nazv then write(temp,uslugR);
end;
close(temp);
close(uslugF);
erase(uslugF);
rename(temp,'usluga\uslug.txt');
writeln;
writeln('zapis delete sucsessful');
writeln;
write('press any key');
readkey;
end;
 
 
 
procedure menusalon;
var b:integer;
begin
repeat
begin
clrscr;
writeln('"‘*«®* Єа*б®вл" - Main menu');
writeln;
writeln('1 - Џ®Є*§*вм ўбҐ §*ЇЁбЁ');
writeln('2 - „®Ў*ўЁвм §*ЇЁбм');
writeln('3 - “¤*«Ёвм §*ЇЁбм');
writeln('====================');
writeln('7 - ‚л室');
writeln;
write('‚ўҐ¤ЁвҐ Їг*Єв ¬Ґ*о:');
readln(b);
case b of
1 : allzapis;
2 : addzapis;
3 : deletezapis;
end;
end;
until b=7;
end;
begin
clrscr;
menusalon;
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.05.2015, 17:37
Ответы с готовыми решениями:

Ошибка "Exitcode = 2"
uses crt,graph; label poch,m1,m2; const mas:array of string=('1 - Zagolovok', '2- Zavdanya #1',...

Программа выдает ошибку "exited with exitcode = 2"
var a,b,c,d:real; i:integer; begin assign(input,'input.txt'); assign(output,'output.txt'); ...

Выдает ошибку "exited with exitcode = 2"
выдает ошибку &quot;Program d:\курсач\паскаль\паскаль.exe exited with exitcode = 2&quot;. подскажите, что...

Ошибка "Syntax error, "BEGIN" expected but "end of file" found"
В чём заключается ошибка в 73 строке под названием &quot;Syntax error, &quot;BEGIN&quot; expected but &quot;end of...

7
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
31466 / 20513 / 7988
Регистрация: 22.10.2011
Сообщений: 35,637
Записей в блоге: 7
21.05.2015, 17:40 2
1) на какую кнопку?
2) содержимое текстового файла нам протелепатировать нужно?
0
0 / 0 / 0
Регистрация: 13.01.2015
Сообщений: 11
21.05.2015, 17:43  [ТС] 3
1) на 1-ую тоесть просмотреть записи, на 2-ую тоже вылетает когда хочу создать

2)изначально они пустые
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
31466 / 20513 / 7988
Регистрация: 22.10.2011
Сообщений: 35,637
Записей в блоге: 7
21.05.2015, 17:50 4
С пустым файлом ничего не вылетает.
0
0 / 0 / 0
Регистрация: 13.01.2015
Сообщений: 11
21.05.2015, 17:54  [ТС] 5
а в чем дело тогда?
подскажи как мне расположить файлы uslug и temp чтобы работало
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
31466 / 20513 / 7988
Регистрация: 22.10.2011
Сообщений: 35,637
Записей в блоге: 7
21.05.2015, 17:57 6
Не имею ни малейшего понятия, в чем у тебя там дело. Говорю же, работает, вылета нет. Как исправлять ошибку, если ошибки НЕТ? Вот если бы была - тогда другое дело... А так - все в порядке...
0
0 / 0 / 0
Регистрация: 13.01.2015
Сообщений: 11
21.05.2015, 18:02  [ТС] 7
Скажи пожалуйста в каком паскале ты проверял?
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
31466 / 20513 / 7988
Регистрация: 22.10.2011
Сообщений: 35,637
Записей в блоге: 7
21.05.2015, 18:03 8
FPC 2.6.4
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.05.2015, 18:03

Ошибка при компиляции "Syntax error "Begin" expected but ";" found"
При компиляции выдаёт ошибку &quot;Syntax error &quot;Begin&quot; expected but &quot;;&quot; found&quot; в блоке Procedure...

Ошибка "Fatal: Syntax error, "BEGIN" expected but "END" found"
Ввожу unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil,...

Ошибка: "sintax error, "OF" expected, but "[" found"
Здравствуйте, в 4 строке компилятор выдаёт ошибку: &quot;sintax error, &quot;OF&quot; expected, but &quot;var...

Ошибка "Syntax Error, ":" expected but ";" found
Unit SourceModMenu; interface Uses Crt; function Menu(X,Y: integer):integer; //Функция для...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru