Danh Phương Vũ Tin – lý 13 Thi Tốt Nghiệp Pascal: const maxlength=100; type list=record element:array[1 maxlength]of integer; last:integer; end; var l:list;vt,vt1,x:integer; ch:char; procedure khoitao(var l:list); begin l.last:=0; end; function ktrong(l:list):boolean; begin ktrong:=(l.last=0); end; function ktday(l:list):boolean; begin ktday:=(l.last=maxlength); end; procedure them(x,vt:integer;var l:list); var i:integer; begin if (ktday(l)) then write('loi day') else if (vt<1)or(vt>l.last+1)then write('loi vtri') else begin for i:=l.last downto vt do l.element[i+1]:=l.element[i]; l.last:=l.last+1; l.element[vt]:=x; end; end; procedure xoa(vt:integer;var l:list); - 1 - Danh Phương Vũ Tin – lý 13 var i:integer; begin if ktrong(l) then write('ds rong') else if (vt<1)or(vt>l.last+1) then write('loi vtri') else begin for i:=vt+1 to l.last do l.element[i-1]:=l.element[i]; l.last:=l.last-1; end; end; function tim(x:integer;var l:list):integer; var i:integer; begin i:=1; while (i<=l.last)and(l.element[i]<>x)do i:=i+1; tim:=i; end; PROCEDURE NHAP; VAR X,I,N:INTEGER; BEGIN WRITELN('SO PHAN TU :');READLN(N); FOR I:=1 TO N DO BEGIN WRITELN('GIA TRI THU ',I,' :');READLN(X); THEM(X,I,L); END; END; PROCEDURE XUAT; VAR I:INTEGER; BEGIN for i:=1 to l.last do writeln(l.element[i]:5); END; begin khoitao(l); NHAP; - 2 - Danh Phương Vũ Tin – lý 13 XUAT; WRITELN('GIA TRI CAN THEM:');readln(X); WRITELN('VI TRI CAN THEM:');readln(vt); them(x,vt,l); WRITELN('VI TRI CAN XOA:');readln(vt); xoa(vt,l); write('PHAN TU CAN TIM:');readln(x); if tim(x,l)>l.last then write('KHONG TIM THAY') else write('TIM THAY O VI TRI:',tim(x,l)); readln; end. Hàng Đợi Đã Sửa: PROGRAM HANGDOI_MANG; USES CRT; CONST MAX=100; TYPE KPT=INTEGER; HD=RECORD GT:ARRAY[1 MAX] OF KPT; DAU,CUOI:INTEGER; END; VAR H:HD; X:KPT; K,J,N:BYTE; CH:CHAR; {---THU TUC KHOI TAO HANG DOI RONG---} PROCEDURE TAO(VAR H:HD); BEGIN H.DAU:=0; H.CUOI:=0; END; {---HAM KIEM TRA HANG DOI RONG---} FUNCTION KT(H:HD):BOOLEAN; BEGIN KT:=(H.CUOI=0); - 3 - Danh Phương Vũ Tin – lý 13 END; {---HAM KIEM TRA HANG DAY---} FUNCTION KTD(H:HD):BOOLEAN; BEGIN KTD:=(H.CUOI-H.DAU+1=MAX); END; {---THU TUC THEM PHAN TU VAO HANG DOI---} PROCEDURE THEM(X:KPT;VAR H:HD); VAR I:INTEGER; BEGIN IF KTD(H) THEN WRITELN('KHONG THE THEM DUOC NGAN XEP DA DAY') ELSE BEGIN IF KT(H) THEN H.DAU:=1; IF (H.CUOI=MAX) AND (H.DAU<>1) THEN BEGIN FOR I:=H.DAU TO H.CUOI DO H.GT[I-H.DAU+1]:=H.GT[I]; H.CUOI:=MAX-H.DAU+1; H.DAU:=1; END ELSE H.CUOI:=H.CUOI+1; H.GT[H.CUOI]:=X; END; END; {---HAM LAY PHAN TU TRONG HANG DOI---} FUNCTION LAY(VAR H:HD):KPT; BEGIN IF KT(H) THEN WRITELN('HANG DOI KHONG THE LAY DUOC') ELSE BEGIN LAY:=H.GT[H.DAU]; H.DAU:=H.DAU+1; END; END; {THU TUC INB CAC PHAN TU TRONG HANG DOI---} PROCEDURE INDS(H:HD); - 4 - Danh Phương Vũ Tin – lý 13 VAR I:INTEGER; BEGIN FOR I:=H.DAU TO H.CUOI DO WRITE(H.GT[I]:4); WRITELN; END; {---CHUONG TRINH CHINH---} BEGIN TAO(H); WRITE('SO PHAN TU: ');READLN(N); FOR J:=1 TO N DO BEGIN READLN(X); THEM(X,H); END; WRITE('PHAN TU CAN THEM:');READLN(X); THEM(X,H); WRITELN('PHAN TU LAY RA: ',LAY(H)); WRITELN('CAC PHAN TU CON LAI :');INDS(H); Readln END. Thi Tốt Nghiệp: const chieudainx=100; type kpt=integer; stack=record gt:array[1 chieudainx]of kpt; dd:integer; end; var s:stack;k,j,n:integer;x:kpt;ch:char; procedure tao_nx(var s:stack); begin s.dd:=0; end; function ktr_nx(s:stack):boolean; begin ktr_nx:=(s.dd=0); end; function ktd_nx(s:stack):boolean; - 5 - Danh Phương Vũ Tin – lý 13 begin ktd_nx:=(s.dd=chieudainx); end; procedure day_nx(x:kpt;var s:stack); begin if s.dd=chieudainx then writeln('khong the day cao duoc vi ngan xep da day') else begin s.dd:=s.dd+1; s.gt[s.dd]:=x; end; end; function lay(var s:stack):kpt; begin if ktr_nx(s) then writeln('ds rong khong the lay ra duoc') else begin lay:=s.gt[s.dd]; s.dd:=s.dd-1; end; end; procedure xuat(s:stack); var i:byte; begin for i:=s.dd downto 1 do write(s.gt[i]:5); writeln; end; begin {tao mot danh sach} tao_nx(s); write('nhap n:');readln(n); for j:=1 to n do begin write('nhap so:');readln(x); day_nx(x,s); end; ktr_nx(s); - 6 - Danh Phương Vũ Tin – lý 13 ktd_nx(s); begin {them mot ptu} if ktr_nx(s) then tao_nx(s) else writeln('nhap ptu can them');readln(x); day_nx(x,s); xuat(s); end; BEGIN {lay ra mot ptu} writeln('ptu lay ra la:',s.gt[s.dd]); lay(s); end; xuat(s); readln; end. - 7 - . Danh Phương Vũ Tin – lý 13 Thi Tốt Nghiệp Pascal: const maxlength=100; type list=record element:array[1 maxlength]of. ',LAY(H)); WRITELN('CAC PHAN TU CON LAI :');INDS(H); Readln END. Thi Tốt Nghiệp: const chieudainx=100; type kpt=integer; stack=record gt:array[1 chieudainx]of