argon bulletin board

Експертно търсене  

Новини:

Регистрирането на нови потребители е временно деактивирано.

Автор Тема: PASCAL спешно  (Прочетена 1479 пъти)

asdf-

  • Гост
PASCAL спешно
« -: 20.12.2006, 12:08:06 »

много спешно ми трябва решението на тази задачка:
Зададени са точка с координатите си Х и У и правоъгълнuк, ограничен от правите с уравнения Х=0, Υ=0, Χ=Α, Υ=Β (А>0, В<0). Да се състави алгоритъм, по който се определя дали точката лежи в правоъгълника.
ако някой може да помогне, ще съм му много благодарен
Активен

mircho

  • Неактивен Неактивен
  • Публикации: 335
Re: PASCAL спешно
« Отговор #1 -: 20.12.2006, 12:38:41 »

Аз мога да ти помогна само с това, че е очевидно, че точката е в правоъгълника при 0<х<А, В<у<0.
Активен

Jack Johnson

  • Неактивен Неактивен
  • Публикации: 704
  • Хора, пазете си здравето! То няма цена!
Re: PASCAL спешно
« Отговор #2 -: 20.12.2006, 13:03:35 »

Псевдокодът на Мирчо е перфектното решение, но ако искаш реален код - ето ти един фрагмент на езика C:

/*
/Проверка дали точка (x, y) лежи в правоъгълника:

(0, 0) - (A, 0)
   |          |
(0, B) - (A, B)              (A > 0, B < 0)
*/

if(x > 0 &&
   x < A &&
   y > B &&
   y < 0)
{
  // точката е вътре
}
else
{
  // точката е вън
}


Ако ти трябва друг език (може би Pascal) - проблемът си е твой! Задачата е повече от елементарна и моят най-искрен съвет е да ходиш по-често на упражнения.

Айде със здраве и да черпиш Мирчо за решението!
« Последна редакция: 20.12.2006, 13:09:16 от Иван Давидов »
Активен

chebaev

  • Неактивен Неактивен
  • Публикации: 216
    • Официалната интернет страница на Ивайло Чебаев
Re: PASCAL спешно
« Отговор #3 -: 20.12.2006, 13:04:21 »

asdf- ще попитам съквартиранта ми. Той попринцип учи pascal, но не знам дали ще може да ти помогне :)
Активен

antoniy

  • Управител
  • *
  • Неактивен Неактивен
  • Публикации: 723
    • http://antoniy.net/
Re: PASCAL спешно
« Отговор #4 -: 20.12.2006, 14:11:10 »

Program zad01;
Uses Crt;
var x,y,a,b: Integer;
Begin
   ClrScr;
   write('a,b=');
   readln(a,b);
   write('x,y=');
   readln(x,y);
   if (x>0) AND (x<a) AND (y>b) AND (y<0) THEN writeln('Tochkata e vytreshna')
          else writeln('Tochkata e vynshna');
          readln;
End.
Активен
Too short signature limits.

hammer

  • Неактивен Неактивен
  • Публикации: 10
    • Уеб - блабла
Re: PASCAL спешно
« Отговор #5 -: 20.12.2006, 21:13:30 »

Ципхер, каква е идеята да даваш готов код? :) Никога пича няма да седне да научи това което му трябва за да го реализира, ако всеки път му се дава на готово! Учиш ги на лошо :)
Активен
Stupidity Is Limitless ...

antoniy

  • Управител
  • *
  • Неактивен Неактивен
  • Публикации: 723
    • http://antoniy.net/
Re: PASCAL спешно
« Отговор #6 -: 23.12.2006, 21:40:18 »

Абе имал съм време - направил съм го. И аз съм на мнение, че човек сам трябва да се потруди, но това е прекалено елементарна задача и щом човекът не може да направи това, значи има наистина спънки за него в тази наука.
Активен
Too short signature limits.