Попадание в мишень

@Nickname1 · Регистрация: 24.01.2013

Author24 — интернет-сервис помощи студентам

Для десяти выстрелов, координаты которых задаются с клавиатуры, вывести текстовые сообщения о попадании в мишень

@Puporev · 25.01.2013, 09:02

Pascal

uses crt;
var r,x,y:real;
    i:integer;
begin
clrscr;
repeat
write('Введите радиус r=');
readln(r);
until r>0;
for i:=1 to 10 do
 begin
  writeln('Введите координаты точки');
  readln(x,y);
  if((x<=0)and(y>=0)and(x*x+y*y<=r*r))
  or((x>0)and(y<=0)and(y>=-2*x)and(y>=2*x-2*r))
  then writeln('Попал') else writeln('Не попал')
 end;
readln
end.

@Nickname1 0 / 0 / 0 Регистрация: 24.01.2013 Сообщений: 6
		1
	Попадание в мишень 25.01.2013, 08:16. Показов 2226. Ответов 1 Метки нет (Все метки) Для десяти выстрелов, координаты которых задаются с клавиатуры, вывести текстовые сообщения о попадании в мишень Миниатюры 0

	25.01.2013, 09:02

Попадание в мишень

Решение