Untitled

SUBMITTED BY: Guest

DATE: May 10, 2015, 4:34 p.m.

FORMAT: Text only

SIZE: 998 Bytes

Raw Download

HITS: 779

Report
  1. VD 2: Viết chương trình nhập vào 1 xâu, sau đó đếm xem số lần xuất hiện mỗi ký tự trong xâu
  2. VD: THPT Quynh Luu 4
  3. KQ: T:2 H:2 P:1 Q:1 U:3 Y:1 N:1 4:1
  4. Giải
  5. In hoa toàn bộ xâu .
  6. Xét ký tự đầu s[1];
  7. Đếm xem có bao nhiêu ký tự giống s1 trong xâu.
  8. Mỗi lần có s[i] =s[1] thì xóa đi s[i] để tránh lặp
  9. Đếm hết thì ghi ra s[1] và đếm
  10. Xóa s[1] chuyển đếm về 1.
  11. Quay lại xét tiếp s[1];
  12. CODE:
  13. VAR s:STRING;
  14. i,d,j:INTEGER;
  15. PROCEDURE xuli;{ xu ly bai toan }
  16. BEGIN
  17. IF s[1] <>#32 THEN
  18. BEGIN
  19. d:=1; j:=2;
  20. WHILE j<=length(s) DO
  21. IF s[j] = s[1] THEN
  22. BEGIN inc(d) ; delete(s,j,1); END
  23. ELSE inc(j);
  24. Write(s[1],' = ');
  25. writeln(d);
  26. delete(s,1,1);
  27. END ELSE delete(s,1,1);
  28. END;
  29. BEGIN
  30. Write('Nhap xau : ');
  31. Readln(S);
  32. FOR i:=1 TO length(s) DO
  33. s[i]:=upcase(s[i]);
  34. WHILE s<>'' DO
  35. xuli;
  36. Readln;
  37. END.
comments powered by Disqus