Текущий архив: 2003.11.24;
Скачать: CL | DM;

Вниз

pascal, runtime error 106   Найти похожие ветки 

← →
WormSpy   (2003-11-14 14:22) [0]

при выполнении программы выскакивет Runtime error 106 если ввести строку содержащую буквы или "-" в середине строки
можно ли как-нибудь поймать эту ошибку чтобы программа продолжала дальше работать?

---

← →
Skier ©   (2003-11-14 14:24) [1]

> можно ли как-нибудь поймать эту ошибку чтобы программа продолжала
> дальше работать?

можно

---

← →
WormSpy   (2003-11-14 14:28) [2]

> можно

как?

---

← →
Skier ©   (2003-11-14 14:29) [3]

> как?

Для начала привести код, в котором возникает ошибка.

---

← →
WormSpy   (2003-11-14 14:33) [4]


program OA74 (input, output);
var
n, i, j: integer;
list : array[0..3] of integer;
flag: boolean;
input: string;

begin
i:=1;
for n:= 0 to 3 do list[n]:=0;
writeln("enter the values please, enter -1 if you want to stop entering");
readln(list[0]);

while list[0]<>-1 do
begin
for n:=1 to 3 do
begin
if list[0]>list[n] then
begin
for j:=3 downto n do list[j+1]:=list[j];
list[j]:=list[0];
break;
end;
end;
readln(list[0]);
if (list[0]>0) and (i<3) then i:=i+1;
end;

writeln;
if i<3 then
begin
writeln("not enough numbers");
for n:= 1 to i do writeln(list[n]);
end
else
begin
writeln("the biggest values are:");
for n:=1 to 3 do writeln(list[n]);
end;

readln;
end.


программа выводит 3 наибольших числа из всех введеных положительных чисел типа integer.
error выскакивает когда вводится не integer

---

← →
Palladin ©   (2003-11-14 14:34) [5]

val + Alt-F1

---

← →
Skier ©   (2003-11-14 14:36) [6]

Параметры input, output зачем ?

---

← →
Юрий Зотов ©   (2003-11-14 14:37) [7]

См. IOResult в справке. Пример - там же.

---

← →
WormSpy   (2003-11-14 14:54) [8]

spasibo! =)

---

Страницы: 1 вся ветка

Текущий архив: 2003.11.24;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.016 c