IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Координаты графика!, вывести координаты
LoLzZ
сообщение 4.06.2006 21:41
Сообщение #1





Группа: Пользователи
Сообщений: 3
Пол: Мужской

Репутация: -  0  +


Напечатать координаты точек, попадающих в заштрихованную фигуру, если координата х изменяется от –2.6 до 2.2 с шагом Dх=0.2, а координата у меняется от –2.5 до 2.5 с шагом Dу=0.5.

вот к какому графику

http://img129.imageshack.us/img129/5140/graph6fi.jpg

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

Код
program rg;
uses graph;
var a,b:real; c:integer;
begin
a:=-2.6;c:=1;
repeat
b:=-2.5;
repeat
if
{здесь доолжно быть условие}
then begin
writeln ('(' ,a:4:2, '; ' ,b:4:2, ')');
c:=c+1;
if (C mod 24)=0 then begin
Writeln('Push enter');
readln;
end;
end;
b:=b+0.5;
until b>2.5;
a:=a+0.2;
until a>2.2;
readln;
end.


Не забываем код оформлять в теги!

Сообщение отредактировано: APAL - 4.06.2006 21:58
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Bokul
сообщение 4.06.2006 22:00
Сообщение #2


Гуру
*****

Группа: Пользователи
Сообщений: 1 117
Пол: Мужской
Реальное имя: Богдан

Репутация: -  11  +


((0>=y>=x-2) and (0<=x<=2)) or
((0>=y>=-x)   and (1<=x<=2)) or

((0<=y<=x+2) and (-2<=x<=0)) or
((-x-2<=y<=0) and (-2<=x<=-1))


--------------------
Лао-Цзы :
Знать много и не выставлять себя знающим есть нравственная высота. Знать мало и выставлять себя знающим есть болезнь. Только понимая эту болезнь, мы можем избавиться от нее.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
LoLzZ
сообщение 4.06.2006 22:24
Сообщение #3





Группа: Пользователи
Сообщений: 3
Пол: Мужской

Репутация: -  0  +


Он пишет что Error 89: ">" expected. Это что такое?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
APAL
сообщение 4.06.2006 22:35
Сообщение #4


Смотрю...
*****

Группа: Модераторы
Сообщений: 1 055
Пол: Мужской
Реальное имя: Пшеничный Алексей Анатольевич

Репутация: -  6  +


Потому что ((0>=y>=x-2) надо раскладывать пораздельно:

(y<=0) and (y>=x-2)


--------------------
Если что-то не делает того, что вы запланировали ему делать - это еще не означает, что оно бесполезно.
--------------------
Прежде, чем задать вопрос - Правила :: FAQ :: Поиск
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Bokul
сообщение 4.06.2006 22:35
Сообщение #5


Гуру
*****

Группа: Пользователи
Сообщений: 1 117
Пол: Мужской
Реальное имя: Богдан

Репутация: -  11  +


Я написал решения в "математическом" представлении, а тебе надо в "паскалевском"...
Например

Код

((0>=y>=x-2) and (0<=x<=2))

надо переписать
Код

((0>=y) and (y>=x-2) and (0<=x) and (x<=2))


--------------------
Лао-Цзы :
Знать много и не выставлять себя знающим есть нравственная высота. Знать мало и выставлять себя знающим есть болезнь. Только понимая эту болезнь, мы можем избавиться от нее.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 4.06.2006 22:36
Сообщение #6


Гость






Паскаль не поддерживает двусторонних условий.
Надо расписывать условие типа
A < x < B
вот так: (A < x) and (x < B)... Так что твое условие преобразуется к такому:
((0>=y)and(y>=x-2)) and ((0<=x)and(x<=2))) or
(((0>=y)and(y>=-x))   and ((1<=x)and(x<=2))) or

(((0<=y)and(y<=x+2)) and ((-2<=x)and(x<=0))) or
(((-x-2<=y)and(y<=0)) and ((-2<=x)and(x<=-1)))
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

- Текстовая версия 27.07.2025 3:23
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"