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

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

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

 
 Ответить  Открыть новую тему 
> Задача на списки, помогите плс решить задачу
сообщение
Сообщение #1





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

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


Проблема с такой задачей:

Создать на статической памяти список треугольников, задаваемых структурой, содержащей координаты 3-х вершин треугольника в 3-хмерном пространстве. Порядок вершин произволен.
Реализовать функцию, модифицирующую каждый из треугольников таким образом, чтобы вершины были перечислены по возрастанию расстояния от начала координат.

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

P.S. Заранее благодарен за помощь
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






Я уже показывал тебе один раз, как реализуется список: Программа на списки на статистической памяти

Разницы, ввести строку и передать ее в процедуру заполнения списка или ввести в структуру несколько чисел, и эту структуру передать туда же - нет никакой. Так что проблема просто надумана (ну, или тебе лень делать это самому, это уже твои проблемы).

А с функцией - ты сначала реализуй все остальное, потом будешь браться за нее. Тут важно правильно организовать структуру. Сделай уже хоть что-то сам...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3





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

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


вот реализовал список треугольников, но процедура Print не работает, не могу понять, в чем ошибка..


Program Triangles;
Uses Crt;

Type Vershina=Record
x:array[1..3] of real;
End;

Type TData=array[1..3] of Vershina;

Type Tlist=^Triangle;
Triangle=record
Data:TData;
Next:Tlist;
end;

Var List,Head:array[1..3] of Tlist;
TriangleData:TData;
i,j:integer;
p:integer;

Function Add(Var Head:TList; const Data:TData):boolean;
var NewElem:TList;
Begin
New(NewElem);
If NewElem<>Nil then
Begin
NewElem^.Data:=Data;
NewElem^.Next:=Head;
Head:=NewElem;
Add:=True;
End
else
Add:=false;
end;

Procedure AddTriangle;
var
Flag:boolean;
key:string;
Begin
Begin
p:=1;
Flag:=true;
while Flag=true do
Begin
For i:=1 to 3 do
Begin
writeln('vershina',i,' :');
For j:=1 to 3 do
Begin
write('vvedite koordinatu vershini X',j,'=');
Read(TriangleData[i].x[j]);
End;
End;
Add(Head[p],TriangleData);
writeln('kolichestvo treugolnikov:',p);
p:=p+1;
writeln('hotite dobavit eshe treugolnik?[y/n]');
key:=readkey;
If (key='n') then
Flag:=false;
End;
End;
End;


Procedure Print(List:Tlist);
var Flag:boolean;
Elem:TList;
Begin
Flag:=true;
Elem:=List;
While Elem<>nil do
Begin
for i:=1 to 3 do
Begin
writeln('vershina',i,' :');
for j:=1 to 3 do
write('X',j,'=',Elem^.Data[i].x[j]:5:2,' ; ');
writeln;
end;
Elem:=Elem^.next;
End;
End;

Procedure Initialize;
Begin
For i:=1 to 3 do
Begin
New(Head[i]);
Head[i]:=nil;
End;
End;

Begin
Initialize;
clrscr;
AddTriangle;
Print(Head[p]);
readkey;
End.



 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






Печатать надо, начиная с первого элемента, а не неизвестно откуда:

...
Print(Head[1]);
...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5





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

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


Попробовал написать саму функцию,
покажите плс ошибки и как вообще ее правильно реализовать

 
Program Triangles;
Uses Crt;

const N=50;

Type Vershina=Record
x:array[1..3] of real;
End;

Type TData=array[1..3] of Vershina;

Type Tlist=^Triangle;
Triangle=record
Data:TData;
Next:Tlist;
end;

Var List,Head:array[1..N] of Tlist;
TriangleData:TData;
i,j:integer;
p:integer;
z:integer;

Function Add(Var Head:TList; const Data:TData):boolean;
var NewElem:TList;
Begin
New(NewElem);
If NewElem<>Nil then
Begin
NewElem^.Data:=Data;
NewElem^.Next:=Head;
Head:=NewElem;
Add:=True;
End
else
Add:=false;
end;



Procedure AddTriangle;
var
Flag:boolean;
key:string;
Begin
Begin
p:=1;
Flag:=true;
while Flag=true do
Begin
For i:=1 to 3 do
Begin
writeln('vershina',i,' :');
For j:=1 to 3 do
Begin
write('vvedite koordinatu vershini X',j,'=');
Read(TriangleData[i].x[j]);
End;
End;
Add(Head[p],TriangleData);
writeln('kolichestvo treugolnikov:',p);
p:=p+1;
writeln('hotite dobavit eshe treugolnik?[y/n]');
key:=readkey;
If (key='n') then
Flag:=false;
End;
End;
End;


Procedure Print(List:Tlist);
var Flag:boolean;
Elem:TList;
Begin
Flag:=true;
Elem:=List;
While Elem<>nil do
Begin
for i:=1 to 3 do
Begin
writeln('vershina',i,' :');
for j:=1 to 3 do
write('X',j,'=',Elem^.Data[i].x[j]:5:2,' ; ');
writeln;
end;
Elem:=Elem^.next;
End;
End;

Procedure Initialize;
Begin
For i:=1 to 3 do
Begin
New(Head[i]);
Head[i]:=nil;
End;
End;

Procedure Tp(var a:TData);
var
b:TData;

Begin
if (sqr(b[1].x[1])+sqr(b[1].x[2])+sqr(b[1].x[3]))>(sqr(b[2].x[1])+sqr(b[2].x[2])+sqr(b[2].x[3])) then
Begin
b[1]:=a[2];
b[2]:=a[1];
a[1]:=b[1];
a[2]:=b[2];
end;
if (sqr(b[1].x[1])+sqr(b[1].x[2])+sqr(b[1].x[3]))>(sqr(b[3].x[1])+sqr(b[3].x[2])+sqr(b[3].x[3])) then
Begin
b[1]:=a[3];
b[3]:=a[1];
a[1]:=b[1];
a[3]:=b[3];
End;
if (sqr(b[2].x[1])+sqr(b[2].x[2])+sqr(b[2].x[3]))>(sqr(b[3].x[1])+sqr(b[3].x[2])+sqr(b[3].x[3])) then
Begin
b[2]:=a[3];
b[3]:=a[2];
a[2]:=b[2];
a[3]:=b[3];
End;
End;

Begin
Initialize;
clrscr;
AddTriangle;
for z:=1 to p do
Begin
Print(Head[z]);
End;
Tp(TriangleData);
for z:=1 to p do
Begin
Print(Head[z]);
End;
readkey;
End.

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 





- Текстовая версия 23.10.2021 9:28
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name