线性表的实现——多功能——原创

最新推荐文章于 2024-11-09 20:55:32 发布

原创最新推荐文章于 2024-11-09 20:55:32 发布 · 814 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#random #合并 #pascal #博客 #线性表

Pascal 专栏收录该内容

7 篇文章

订阅专栏

本文介绍了一个基于线性表的数据结构实现，包括初始化、打印、插入、删除等基本操作，并演示了如何通过查找元素来合并两个线性表。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

今天读了一本关于线性表的书，写了一段代码：

program test301;
const maxlen=100;
type sqlist=record
   data : array[1..maxlen] of char;
   last : integer;
end;
var
  i,p: integer;
  l,A,B: sqlist;
  x:char;

function length(var sq:sqlist) : integer;
begin
  length :=sq.last;
end;
function locate(var sq:sqlist;x:char):integer;
var
  i:integer;
begin
  for i:=1 to length(sq) do begin
  if(sq.data[i]=x) then begin
  exit(i);
  end;
  end;
  exit(0);
end;
procedure initlist(var sq:sqlist);
begin

  for i:=1 to 5 do
      begin
      sq.data[i]:=chr(65+round(random(26)));
      inc(sq.last);
      end;
end;
procedure printlist(var sq:sqlist);
begin
    for i:=1 to length(sq) do write(sq.data[i]);
    writeln;
end;
procedure insert(var sq:sqlist;x:char;p:integer);
var
  i:integer;
begin
  for i:=sq.last+1 downto p do
  sq.data[i+1]:=sq.data[i];
  sq.data[p]:=x;
  sq.last:=sq.last+1;
end;
procedure delete(var sq:sqlist;p:integer);
var
  i:integer;
begin
  for i:=p to sq.last do
  sq.data[i]:=sq.data[i+1];
  sq.last:=sq.last-1;
end;
procedure merge(var A:sqlist;B:sqlist);
var
  i:integer;
begin
  for i:=1 to B.last do begin
  if(locate(A,B.data[i])=0) then insert(A,B.data[i],length(A)+1);
  end;
end;
begin
  randomize;
  initlist(A);
  initlist(B);
  printlist(A);
  printlist(B);
  readln;
  merge(A,B);
  printlist(A);
  readln;
end.