Bài Tập Pascal Cơ Bản đến Nâng Cao - Page 13 - Wattpad

 spt:=spt - 1; 

 Writeln; 

 Writeln(' MANG SAU KHI XOA'); 

 Writeln('- -----------------------------------'); 

 Writeln; 

 For i:=1 to spt Do Write(a[i]: 6);

 Writeln; Writeln; 

 Writeln(' Bam phim <Enter> de ket thuc '); 

 Readln 

End. 

Bài 18. Viết chương trình nhập mảng gồm n (n<=100)phần tử rồi xóa đi những phần 

tử trùng nhau trong mảng và in ra màn hình phần tử sau khi đã bỏ bớt. 

Program Bo_so_trung; 

Uses crt; 

 Const Max=100; 

 Var A: Array[1..Max] Of Integer; 

 i,j,k,n: Integer; 

Begin 

 Writeln('XOA BO CAC SO TRUNG NHAU'); 

 Writeln('-----------------------------------------------'); 

 Writeln; 

 Write('-Nhap so phan tu mang: '); Readln(n); 

 For i:=1 To N Do 

 Begin 

 Write('-Phan tu A[',i,']= '); 

 Readln(a[i]); 

 End; 

 i:=2; 

 While i <= N Do 

 Begin 

 j:=1; 

 While a[j] <> a[i] Do 

 j:=j+1; 

 If j < i Then 

 Begin 

 For k:=i to n-1 Do  a[k]:=a[k+1]; 

 n:=n-1; 

 End 

 Else 

 i:=i+1; 

 End; 

 Writeln; 

 Write('-Mang con lai: '); 

 For i:=1 to n Do Write(a[i]: 8); 

 Writeln; 

 Writeln(' Bam phim <Enter> de ket thuc '); 

 Readln 

End. 

Bài tập phần xâu: 

Bài tập1: Chương trình nhập từ bàn phím các ký tự chương trình đếm số lần xuất 

hiện của mỗi ký tự 

Program Dem_so_lan; 

Uses Crt ; 

 Var a: Array[ 'A'..'Z' ] of integer; 

 ch: char ; 

 i: byte ; 

 BEGIN 

 Clrscr ; 

 For ch:='A' to 'Z' Do a[ch]:=0 ;