giúp mình vs ạ. Viết chương trình xóa kí tự trùng nhau trong pasal
0 bình luận về “giúp mình vs ạ. Viết chương trình xóa kí tự trùng nhau trong pasal”
var s: string = ‘haabba’; a: array[0..255] of boolean; (* dung de danh dau ky tu trung *) k: integer; begin writeln(‘CHUONG TRINH TIM VA XOA CAC KY TU TRUNG’); write(‘Nhap vao 1 xau: ‘); readln(s); write(‘Xau khong trung la: ‘); fillchar(a, sizeof(a), false); for k:= 1to length(s) dobeginifnot a[ord(s[k])] thenbeginwrite(s[k]); a[ord(s[k])]:= true; end; end; readln; end.
var s: string = ‘haabba’; a: array[0..255] of boolean; (* dung de danh dau ky tu trung *) k: integer; begin writeln(‘CHUONG TRINH TIM VA XOA CAC KY TU TRUNG’); write(‘Nhap vao 1 xau: ‘); readln(s); write(‘Xau khong trung la: ‘); fillchar(a, sizeof(a), false); for k:= 1 to length(s) do begin if not a[ord(s[k])] then begin write(s[k]); a[ord(s[k])]:= true; end; end; readln; end.
program xoa_ki_tu;
uses crt;
var s:string;
A:array[0..255] of boolean;
N:integer;
begin clrscr;
write(‘Nhap mot xau: ‘); readln(s);
write(‘Ki tu ko trung la: ‘); fillchar(A, sizeof(A), false);
for N:= 1 to length(s) do
begin
if not a[ord(s[N])] then
begin
write(s[N]); A[ord(s[N])]:=true;
end;
end;
readln;
end.
Học tốt!