Помощь - Поиск - Пользователи - Календарь
Полная версия: Задача на списки
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Lint
Проблема с такой задачей:

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

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

P.S. Заранее благодарен за помощь
volvo
Я уже показывал тебе один раз, как реализуется список: Программа на списки на статистической памяти

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

А с функцией - ты сначала реализуй все остальное, потом будешь браться за нее. Тут важно правильно организовать структуру. Сделай уже хоть что-то сам...
Lint
вот реализовал список треугольников, но процедура 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.



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

...
Print(Head[1]);
...
Lint
Попробовал написать саму функцию,
покажите плс ошибки и как вообще ее правильно реализовать

 
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.

Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.