Форум программистов, компьютерный форум CyberForum.ru

Задача Газон - C++

Восстановить пароль Регистрация
 
Рейтинг: Рейтинг темы: голосов - 12, средняя оценка - 5.00
serik13
3 / 3 / 0
Регистрация: 04.01.2011
Сообщений: 71
23.09.2011, 18:37     Задача Газон #1
Срочна нужна помощь в реализации в С++

Задачу нужно реализовать в с++

Газон

Имя входного файла: lawn.in
Имя выходного файла: lawn.out


Фермер Иван с юности следит за своим газоном. Газон можно считать плоскостью, на которой в каждой точке с целыми координатами растет один пучок травы.
В одно из воскресений Иван воспользовался газонокосилкой и постриг некоторый прямоугольный участок газона. Стороны этого участка параллельны осям координат, а две противоположные вершины расположены в точках (x1, y1) и (x2, y2). Следует отметить, что пучки травы, находящиеся на границе этого прямоугольника, также были пострижены.
Довольный результатом Иван купил и установил на газоне дождевальную установку. Она была размещена в точке с координатами (x3, y3) и имела радиус действия струи r. Таким образом, установка начала поливать все пучки, расстояние от которых до точки (x3, y3) не превышало r.
Все было хорошо, но Ивана заинтересовал следующий вопрос: сколько пучков травы оказалось и пострижено, и полито в это воскресенье?
Требуется написать программу, которая позволит дать ответ на вопрос Ивана.

Формат входных данных
В первой строке входного файла содержатся четыре целых числа x1, y1, x2, y2 (−100 000 ≤ x1 < x2 ≤ 100 000; −100 000 ≤ y1 < y2 ≤ 100 000).
Во второй строке входного файла содержатся три целых числа x3, y3, r (−100 000 ≤ x3, y3 ≤ 100 000; 1 ≤ r ≤ 100 000)

Формат выходных данных
В выходной файл необходимо вывести одно целое число — число пучков травы, которые были и пострижены, и политы.

Пример входных и выходных данных
lawn.in
0 0 5 4
4 0 3
lawn.out
14

Есть на Паскале:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
type 
  abc=Int64;
var 
  x1,y1,x2,y2,x3,y3,x: longint; 
  k,r,y : abc;
  input,output: text;
function kol(x,z1,z2:longint):longint;
  var 
    min,max,k: longint;
  begin
    if (x<x1)or(x>x2)or(z1>y2)or(z2<y1) then 
      k:=0 
    else 
      begin
        min:=y1; 
        if z1>y1 then 
          min:=z1; 
        max:=y2; 
        if z2<y2 then 
          max:=z2;
        k:=max-min+1
      end;
     kol:=k
  end;
begin
  assign(input, 'input.txt'); 
  reset(input);
  assign(output, 'output.txt'); 
  rewrite(output);
  readln(input,x1,y1,x2,y2);
  read(input,x3,y3,r); 
  k:=kol(x3,y3-r,y3+r); 
  y:=r;
  for x:=1 to r-1 do 
    begin
      while sqr(x)+sqr(y)>sqr(r) do 
        y:=y-1;
      k:=k+kol(x3+x,y3-y,y3+y)+kol(x3-x,y3-y,y3+y)
    end;
  k:=k+kol(x3+r,y3,y3)+kol(x3-r,y3,y3);
  write(output,k); 
  close(input);
  close(output);
end.
 Комментарий модератора 
Используйте теги форматирования кода!
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Rыba
0 / 0 / 0
Регистрация: 12.10.2012
Сообщений: 38
22.12.2013, 20:05     Задача Газон #2
Добрый вечер! если вас не затруднит,то не могли бы вы сделать пояснения к коду задачи,где что выполняется,буду очень признателен!!!заранее вас благодарю!!!
Yandex
Объявления
22.12.2013, 20:05     Задача Газон
Ответ Создать тему
Опции темы

Текущее время: 16:09. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru