16.10.2013, 15:03
|
#7
|
Освоился
Регистрация: 24.06.2013
Адрес: Калининград
Сообщений: 236
Вы сказали Спасибо: 20
Поблагодарили 19 раз(а) в 11 сообщениях
|
Re: Есть тут программисты?
Цитата:
Блин, а я думал что по-сложнее. Даже формулу в Экселе написал для варианта с кривым ромбом.
Код:
=ЕСЛИ(И((ИЛИ(y<x+1;y=x+1));(ИЛИ(y<(1-0,25*x);y=(1-0,25*x)));(ИЛИ(y>(-2-2*x);y=(-2-2*x)));(ИЛИ(y>(-2+0,5*x);y=(-2+0,5*x))));"ок!";"мимо!ололо")
Сам не программист, но на сколько понял нужно что бы введенные Х и У были в области - то есть одновременно удовлетворяли условию -1<=X<=4 и -2<=Y<=1
ромб
Код:
var
x,y: real;
begin
write('Введите значения x y: ');
readln(x,y);
if ((y<=(x+1))and(y<=(1-0.25*x))and(y>=(-2-2*x))and(y>=(-2+0.5*x)))
then writeln('TRUE') else
writeln('FALSE');
readln;
end.
прямоугольник
Код:
var
x,y: real;
begin
write('Введите значения x y: ');
readln(x,y);
if ((x>=(-1))and(x<=4)and(y<=1)and(y>=(-2)))
then writeln('TRUE') else
writeln('FALSE');
readln;
end.
чето типо этого штоли?
Если, да то хотелось бы узнать на кого учишься и какой курс?
---------- Добавлено в 01:40 ---------- Предыдущее сообщение было написано в 01:33 ----------
да, забыл:
"free, использование на свой страх и риск"
претензии из-за "двойки" не принимаются
|
Мне бы через boolean надо бы)))
---------- Добавлено в 13:30 ---------- Предыдущее сообщение было написано в 11:36 ----------
Есть ещё одна работка,уже весь интернет перерыл и половины не нашёл (((
[Ссылка заблокирована: Зарегистрируйтесь!]
---------- Добавлено в 14:03 ---------- Предыдущее сообщение было написано в 13:30 ----------
Цитата:
Мне бы через boolean надо бы)))
---------- Добавлено в 13:30 ---------- Предыдущее сообщение было написано в 11:36 ----------
Есть ещё одна работка,уже весь интернет перерыл и половины не нашёл (((
[Ссылка заблокирована: Зарегистрируйтесь!]
|
Это то что уже сделано
[Ссылка заблокирована: Зарегистрируйтесь!]
|
|
|