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

@Tusk · Регистрация: 05.07.2012

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

Имею наглость просить о помощи добрых людей.

Лаба №3:

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

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

Заранее спасибо огромное.

@ermolay · 11.07.2012, 10:33

Pascal

const
  n=10;
var
  i: byte;
  x,y,r: real;
begin
  write('Введите радиус: ');
  readln(r);
  for i:=1 to n do
  begin
    write('Введите координаты ',i,'-го выстрела через пробел: ');
    readln(x,y);
    if (x<0)and(y>0) then
    begin
      if sqrt(sqr(x+r)+sqr(y))<r then writeln('Попал!') 
        else writeln('Молоко!');
    end
      else if (x>0)and(y<0) then
        begin
          if sqrt(sqr(x-r)+sqr(y))<r then writeln('Попал!') 
            else writeln('Молоко!');
        end
          else writeln('Молоко!');
  end;
  readln;
end.

Добавлено через 1 час 57 минут
вторая версия - более рациональная, первую наспех делал))

Pascal

const
  n=10;
var
  i: byte;
  x,y,r: real;
begin
  write('Введите радиус: ');
  readln(r);
  for i:=1 to n do
  begin
    write('Введите координаты ',i,'-го выстрела через пробел: ');
    readln(x,y);
    if (x<=0)and(y>=0)and(sqrt(sqr(x+r)+sqr(y))<=r)
      or (x>=0)and(y<=0)and(sqrt(sqr(x-r)+sqr(y))<=r)
        then writeln('Попал!') 
          else writeln('Молоко!');
  end;
  readln;
end.

@Tusk · 11.07.2012, 22:19 **[ТС]**

спасибо)

@Tusk 0 / 0 / 0 Регистрация: 05.07.2012 Сообщений: 22
		1
	Для десяти выстрелов вывести текстовые сообщения о попадании в мишень 05.07.2012, 18:27. Показов 3748. Ответов 2 Метки нет (Все метки) Имею наглость просить о помощи добрых людей. Лаба №3: Задание 2. Для десяти выстрелов, координаты которых задаются с клавиатуры, вывести текстовые сообщения о попадании в мишень из задания 2 лабораторной работы № 2. Заранее спасибо огромное. 0

@Tusk 0 / 0 / 0 Регистрация: 05.07.2012 Сообщений: 22
	11.07.2012, 22:19 [ТС]	3
	спасибо) 0

Опции темы

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

Решение