Free Pascal, нужно определить принадлежит ли точка плоскаости — Здравстуйте, помогите пожта с задачей, в паскале почти ноль, а решить ...

Форум

Программирование

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

strannik23

Посетитель

Сообщения: 6

[Сообщение #1] 4 апреля 2011, 18:14

Здравстуйте, помогите пож-та с задачей, в паскале почти ноль, а решить как то надо, Точка с координатами (х, у) принадлежит части плоскости,лежащей между прямыми x=m, x=n, (m<n).
p.s если да то должно вывестись сообщение true, если нет то false.

strannik23

Посетитель

Сообщения: 6

[Сообщение #2] 4 апреля 2011, 19:34

плиз помогите пож-та

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

Посетитель

Сообщения: 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

Посетитель

Сообщения: 6

[Сообщение #5] 5 апреля 2011, 10:50

спс

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

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

Версия форума: 1.10 (19.01.2010)

Выполнено за 0.02 сек.

Обратная связь