При нажатии мышкой на внутреннею область квадрата происходит ошибка.Из-за чего она возникает:"Program8.pas(6) : Ошибка времени выполнения: Поток не выполняется; его нельзя приостановить."?Как можно переделать программу?Программа(PascalABC.NET):uses graphabc;vara: real;procedure md(x, y, z: integer);beginif (x > 100) and (x < 200) and (y > 100) and (y < 200) then readln(a); end;beginonmousedown := md;rectangle(100, 100, 200, 200);end.

Question

Nadar 09.25.18

Решено

При нажатии мышкой на внутреннею область квадрата происходит ошибка.Из-за чего она возникает:"Program8.pas(6) : Ошибка времени выполнения: Поток не выполняется; его нельзя приостановить."?Как можно переделать программу?Программа(PascalABC.NET):uses graphabc;vara: real;procedure md(x, y, z: integer);beginif (x > 100) and (x < 200) and (y > 100) and (y < 200) then readln(a); end;beginonmousedown := md;rectangle(100, 100, 200, 200);end.

64

ОТВЕТЫ

вот например в таком варианте все работает. 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.

18

Отв. дан 2021-11-14 00:00:00 Doriris

Другие вопросы в разделе - Математика