profile
Опубликовано 6 лет назад по предмету Информатика от Аккаунт удален

Определить попадает ли точка в заданный диапазон. Написать программу.Pascal

  1. Ответ
    Ответ дан infor5
    var x,y,r:real;
    begin
    read(x,y,r);
    if (x>=0) and (y>=0) and (x^2+y^2<=r^2) and (x<=0) and (y<=0) and (x+y>= -r) then write('попадает') else write('нет');
    end.
    1. Ответ
      Ответ дан archery
      квадраты в паскале так не пишутся
    2. Ответ
      Ответ дан Аккаунт удален
      Жаль но не так
  2. Ответ
    Ответ дан archery
    var
        x, y, r: real;

    begin
        read(x, y, r);
        if ((x >= 0) and (y >= 0) and (x * x + y * y <= r * r))
            or ((x < 0) and (y < 0) and (x + y >= -r)) then
            write('да')
        else
            write('нет');
    end.

    1. Ответ
      Ответ дан Аккаунт удален
      типо что то такого должно получитьсяъ
    2. Ответ
      Ответ дан archery
      не верно у вас, например точка -0.8 -0.1 r=1 (в зону попадает), а у вас нет
    3. Ответ
      Ответ дан archery
      или вам просто надо чтоб этих if было много? это конечно можно сделать, но смысла никакого, только больше писать придется
    4. Ответ
      Ответ дан Аккаунт удален
      надо именно через если. Просто превод д*ра даёт то что не объясняет.
    5. Ответ
      Ответ дан archery
      ну так и есть одно если, этого достаточно. задача правильная
Самые новые вопросы