При нажатии мышкой на внутреннею область квадрата происходит ошибка. из-за чего она возникает: "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.

Huysosimoy Huysosimoy    2   02.09.2019 17:20    1

Ответы
маша200620 маша200620  06.10.2020 12:48
Вот например в таком варианте все работает. 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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика