Pascal로 구현한 리스트

소개글

Pascal로 구현한 리스트에 대한 보고서 자료입니다.

목차

없음

본문내용

{Linked List - Pascal}

program List;

type ptr=^Node;
char10=packed array[1..10] of char;
Node=record
name:char10;
phone:char10;
next:ptr;
end;
var
Head, P, Q : ptr;
i:integer;


{*********************************************}
{ Insert a Customer }
{*********************************************}
procedure Insert(var Head:ptr; var P:ptr; var Q:ptr);
var
R:ptr;
begin
writeln('*** Input Insert name ***');
new(R);
readln(R^.name); {get new name}
readln(R^.phone);
Q:=nil;
P:=Head;

while (P<>nil) and (P^.name<=R^.name) do
begin
Q:=P;
P:=P^.next;
end;

키워드

Pascal,   List,   파스칼,   리스트