Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Renner
0 / 0 / 1
Регистрация: 27.05.2014
Сообщений: 37
#1

Построение множества отрезков на одной прямой - PascalABC.NET

17.06.2014, 01:10. Просмотров 297. Ответов 1
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program tardis;
uses GraphABC;
Var 
i,x,y :integer;
begin
x:=1;
y:=1;
line(5,400,5,5);
line(5,400,400,400);
setpencolor(clred);
for i:=1 to 400 do;
begin
line(x-2+i,y+400-i+1,x-1+i,y+400-i);
end;
end.
Программа должна строить один отрезок за другим и в результате должна получится одна прямая. Что не так? он вообще ничего не строит
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.06.2014, 01:10
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Построение множества отрезков на одной прямой (PascalABC.NET):

Построение числовой прямой
Подскажите как правильно построить числовую прямую, а конкретно как управлять...

Построение множества Жюлиа
Постройте множество Жюлиа для функции h(z)=f(z)*g(z), где f(z)=z2+0,1+0,1i и...

Определить, лежат ли точки на одной прямой
подскажите, я написал код, но если ввести координаты при которых точки не лежат...

Выяснить лежат ли эти точки на одной прямой
Даны координаты трех точек на плоскости. Выяснить лежат ли эти точки на одной...

Даны длины трех отрезков. Определить, можно ли из этих отрезков сложить треугольник?
Даны длины трех отрезков. Определить, можно ли из этих отрезков сложить...

Даны длины трех отрезков. Определить, можно ли из этих отрезков сложить треугольник
помогите ещё одну задачу)

1
erl27
892 / 741 / 831
Регистрация: 06.09.2013
Сообщений: 1,561
17.06.2014, 02:50 #2
Цитата Сообщение от Renner Посмотреть сообщение
for i:=1 to 400 do;
После do поставлена точка с запятой, а это значит конец оператора.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program tardis;
 
uses
  GraphABC;
 
var
  i, x, y: integer;
 
begin
  x := 1;
  y := 1;
  line(5, 400, 5, 5);
  line(5, 400, 400, 400);
  setpencolor(clred);
  for i := 1 to 400 do
  begin
    line(x - 2 + i, y + 400 - i + 1, x - 1 + i, y + 400 - i);
  end;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.06.2014, 02:50
Привет! Вот еще темы с решениями:

Выяснить, лежат ли две точки в одной полуплоскости относительно заданной прямой
Даны действительные числа x, y. Точки с координатами (x,y),(x,y),(x,y)...

Определить минимальное подмножество точек, после удаления которых останутся точки лежащие на одной прямой
задано множество точек на плоскости,не лежащих на одной прямой.Определить...

Построение графика функции от одной переменной
Добрый вечер! Подскажите, пожалуйста, как создать программу для построения...

Построение объекта, который двигается по одной из траекторий
Траектории: y = x, по кругу, по синусоиде. Движение организовать слева направо...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru