![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
CormiX |
![]()
Сообщение
#1
|
|||
Новичок ![]() Группа: Пользователи Сообщений: 42 Пол: Мужской Репутация: ![]() ![]() ![]() |
Всем доброго времени суток. На практической я имел возможность ознакомиться вот с такой задачкой:
Задано N точек на плоскости. Вычислить (N-1) не замкнутую ломаную кривую, которая проходит через все эти точки и не пересекает себя. Соседние отрезки ломаной могуть лежать на одной прямой. Буду очень признателен, если поможете решыть задачку. И если вас не затруднит то напишыте кодом Turbo Pascal. Зарание спасибо!
|
|||
![]() ![]() |
CormiX |
![]()
Сообщение
#2
|
Новичок ![]() Группа: Пользователи Сообщений: 42 Пол: Мужской Репутация: ![]() ![]() ![]() |
const n=100; задаем N
var a:array[1..n] of real; задаем массив и переменные
i,j:integer;
begin
write('i='); 1-я координата
readln(i);
write('j='); 2-я (ну ето есл я правильно понимаю)
readln(j);
for i:=1 to n do запускаем цикл
begin
write('a[',i,']='); задаем массив
readln(a[i]);
for j:=1 to n do
write('a[',j,']=');
readln(a[j]);
end;
вроде все) |
Lapp |
![]()
Сообщение
#3
|
![]() Уникум ![]() ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 6 823 Пол: Мужской Реальное имя: Лопáрь (Андрей) Репутация: ![]() ![]() ![]() |
Попробуй разобраться.
const
m=100; // задаем максимально возможное число точек
var
x,y: array[1..m] of real; // определяем массивы координат
i,n: integer;
begin
write('n='); // вводим реальное число точек
readln(n);
for i:=1 to n do begin
write('x[',i,']=');
readln(x[i]);
write('y[',i,']=');
readln(y[i]);
end
end.
(исправил) Сообщение отредактировано: Lapp - 27.12.2009 17:05 -------------------- я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой |
![]() ![]() |
![]() |
Текстовая версия | 26.07.2025 19:24 |