Логин:     Забыли пароль?
 
Пароль:   Регистрация

Форум / Программирование - Free Pascal, нужно определить принадлежит ли точка плоскаости  

Free Pascal, нужно определить принадлежит ли точка плоскаости

strannik23
strannik23
Посетитель
Сообщения: 6
[Сообщение #1] 4 апреля 2011, 18:14
Здравстуйте, помогите пож-та с задачей, в паскале почти ноль, а решить как то надо, Точка с координатами (х, у) принадлежит части плоскости,лежащей между прямыми x=m, x=n, (m<n).
p.s если да то должно вывестись сообщение true, если нет то false.

strannik23
strannik23
Посетитель
Сообщения: 6
[Сообщение #2] 4 апреля 2011, 19:34
плиз помогите пож-та

a a
a a
Посетитель
Сообщения: 3
[Сообщение #3] 4 апреля 2011, 22:47
var m,n,x : real;
b : boolean;
begin
write('m n?');
readln(m,n);
write('x?');
readln(x);
b := (m<=x) and (x<=n);
writeln(b);
readln;
end.

a a
a a
Посетитель
Сообщения: 3
[Сообщение #4] 4 апреля 2011, 23:37
Если Pascal, то

var m,n,x : real;
begin
write('m n?');
readln(m,n);
write('x?');
readln(x);
writeln((m<=x)and(x<=n));
readln;
end.

Если Delphi, то

program Project1;
{$APPTYPE CONSOLE}
uses SysUtils;
var m,n,x : real;
begin
write('m n?');
readln(m,n);
write('x?');
readln(x);
writeln((m<=x)and(x<=n));
readln;
end.

strannik23
strannik23
Посетитель
Сообщения: 6
[Сообщение #5] 5 апреля 2011, 10:50
спс


Всего сообщений: 5 (сейчас показаны: с 1 по 5)

Перейти в раздел:


 © 2004 - 2017, Delphi.int.ru
Версия форума: 1.10 (19.01.2010)
RSS Delphi.int.ru Expert Код
Выполнено за 0.02 сек.
Обратная связь  
Рейтинг@Mail.ru Majordomo.ru - надёжный хостинг