- Bước2: Ý tưởng
Bài làm Bước 1:
Input: Xâu số N (Xâu không quá 50 chữ số và không có số 0 không có nghĩa ở đầu), Ouput: Xác định kiểu dữ liệụ
Xây dựng thống kê của N.
Bước 2:
Nhập vào xâu N.
Sử dụng hàm thống kê số lần xuất hiện của các số trong xâu N Duyệt toàn bộ xâu so sánh N[i] với các chữ số từ ‘0’ đến ‘9’ Nếu bằng thì tăng đếm lên.
In ra tần số xuất hiện và chữ số đó. Bước 3: a)Kiểu dữ liệu cần sử dụng : *Chương trình chính: N,Tk:String[50] i: Char j:Byte
*Đoạn chương trình dùng hàm, có kiểu trả về là một
Học Pascal online, bài tập Pascal cơ bản nâng cao: Codepascal.blogspot.com
Function Thongke( ch: Char ;N: String):String; Var s: String;
Tam, i: Integer; Begin
Tam:=0;
For i:=1 To Length(s) Do
If N[i] = ch Then Tam:= Tam+1; Str( Tam, S); Thongke:=S; End; c)Cài đặt chương trình: Program Bai_tap_7.14; Var n,Tk: String[50]; j :Char;
Function Thongke( ch: Char ;N: String):String; Var s: String;
Tam, i: Integer; Begin
Tam:=0;
For i:=1 To Length(s) Do
If N[i] = ch Then Tam:= Tam+1; If Tam<>0 Then Str( Tam, S) Else S:=’’;
Thongke:=S; End;
BEGIN
Write(‘Nhap vao xau so N:’);Readln(N); Tk:=’’;
For i:=’0’ To ‘9’ Do
If Thongke(i ,N)<>’’ Then Tk:=Tk+Thongke(i,N) + i Else; Write(Tk); Readln; END. d)Test: N:’1223’ +i =’0’
Thongke( i,N)=’’ bỏ qua + i =’1’ + i =’1’ Thongke(i ,N)<>’’ :Tk:=’’+ ‘1’+’1’=’11’ + i =’2’ Thongke(i ,N)<>’’ :Tk:=’11’+’2’+’2’=’1122’ + i =’3’ Thongke(i ,N)<>’’ :Tk:=’1122’+’1’+’3’=’112213’ + i=’4’ Thongke(i ,N )=’’ bỏ qua + i =’5’…….i =’9’ In ra :Tk =112213
Học Pascal online, bài tập Pascal cơ bản nâng cao: Codepascal.blogspot.com
e)Bài tập tương tự:
Bài 1:Nhập vào dãy số, tìm số lần xuất hiện nhiều nhất của một số trong dãy đó.
Bài 2:Nhập vào một xâu chữ cái và một kí tự bất kì,sau đó đếm số lần xuất hiện của chữ cái đó.
Nguyễn Thị Hồng Bài 3.31 (SBT trang 23)
Lập trình nhập số thực x và số nguyên dương n từ bàn phím. Tính và đưa ra màn hình giá trị biểu thức:
P = 1 + 2x + 3x2 + …+ nxn-1+(n+1)xn
Giải: