Предмет: Информатика,
автор: contrlc
При нажатии мышкой на внутреннею область квадрата происходит ошибка.
Из-за чего она возникает:"Program8.pas(6) : Ошибка времени выполнения: Поток не выполняется; его нельзя приостановить."?
Как можно переделать программу?
Программа(PascalABC.NET):
uses graphabc;
var
a: real;
procedure md(x, y, z: integer);
begin
if (x > 100) and (x < 200) and (y > 100) and (y < 200) then readln(a);
end;
begin
onmousedown := md;
rectangle(100, 100, 200, 200);
end.
Ответы
Автор ответа:
0
вот например в таком варианте все работает. readln подразумевает ожидание потому и ошибка. И вообще в чем задача то?
uses graphabc;
var
a: real;
procedure md(x, y, z: integer);
begin
if (x > 100) and (x < 200) and (y > 100) and (y < 200) then
Println(x, y, z);
end;
begin
onmousedown := md;
rectangle(100, 100, 200, 200);
end.
uses graphabc;
var
a: real;
procedure md(x, y, z: integer);
begin
if (x > 100) and (x < 200) and (y > 100) and (y < 200) then
Println(x, y, z);
end;
begin
onmousedown := md;
rectangle(100, 100, 200, 200);
end.
Похожие вопросы
Предмет: Английский язык,
автор: vlada050208
Предмет: Русский язык,
автор: ludmila81983
Предмет: Қазақ тiлi,
автор: Aisha202037
Предмет: География,
автор: ksu018
Предмет: Физика,
автор: ShOV240201