Создать на статической памяти список треугольников, задаваемых структурой, содержащей координаты 3-х вершин треугольника в 3-хмерном пространстве. Порядок вершин произволен. Реализовать функцию, модифицирующую каждый из треугольников таким образом, чтобы вершины были перечислены по возрастанию расстояния от начала координат.
Не могу понять как сделать ввод координат вершин с клавиатуры, также проблемы с реализацией самой функции.
Разницы, ввести строку и передать ее в процедуру заполнения списка или ввести в структуру несколько чисел, и эту структуру передать туда же - нет никакой. Так что проблема просто надумана (ну, или тебе лень делать это самому, это уже твои проблемы).
А с функцией - ты сначала реализуй все остальное, потом будешь браться за нее. Тут важно правильно организовать структуру. Сделай уже хоть что-то сам...
Lint
9.04.2008 4:39
вот реализовал список треугольников, но процедура 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
9.04.2008 5:12
Печатать надо, начиная с первого элемента, а не неизвестно откуда:
... Print(Head[1]); ...
Lint
14.04.2008 5:13
Попробовал написать саму функцию, покажите плс ошибки и как вообще ее правильно реализовать
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.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.