VCT in ra màn hình xâu gồm các ký tự và tổng các chữ số 0 trong xâu

VCT in ra màn hình xâu gồm các ký tự và tổng các chữ số 0 trong xâu

Viết chương trình nhập vào một xâu in ra màn hình xâu gồm các ký tự và tổng các chữ số 0 trong xâu.

Ôn tập tên

Tên dùng để đặt cho tên chương trình, hằng, kiểu, biến, chương trình con… tên được chia thành 2 loại.

– Tên chuẩn đã được PASCAL đặt trước, chẳng hạn các hàm số SIN, COS, LN,… hằng số PI, kiểu INTEGER, BYTE, REAL…

– Tên do người dùng tự đặt.

+ Dùng bộ chữ cái, bộ chữ số và dấu gạch dưới để đặt tên

+ Bắt đầu bằng chữ cái hoặc dấu gạch dưới ( _ ) sau đó là chữ cái hoặc chữ số.

+ Không có khoảng trống ở giữa tên

+ Không được trùng với từ khoá.

+ Độ dài tối đa của tên là 127 ký tự, tuy nhiên cần đặt sao cho tên gọn và có ý nghĩa.

+ Pascal không bắt lỗi việc đặt tên trùng với tên chuẩn, nhưng khi đó ý nghĩa của tên chuẩn không còn giá trị nữa => ko nên đặt trùng tên chuẩn

Lưu ý: Pascal không phân biệt chữ hoa và chữ thường trong từ khóa, tên chuẩn hay tên. Ví dụ “BEGIN” hay “Begin” hay “BeGin” là như nhau. Tuy nhiên chúng ta nên tập thói quen viết một cách thống nhất tên trong toàn bộ chương trình.

Bài giải

Program Dem_kytu;

Uses crt;

Var I,dem_chu, dem_so, tong: integer;

S: string;

Begin

    Clrscr;

    Write('Nhap xau S: '); Readln(S);

    Dem_so:=0;

    For i:=1 to length(S) do

    If S[i] in ['0'..'9'] then Dem_so:=Dem_so+1;    
    
    Writeln('Trong xau S co tat ca ',Dem_so,' so');
    
    For i:=1 to length(S) do
    
    If S[i] <> #32 then  
        Writeln('Ky tu ',S[i],' trong S');        
    
    readln;

End.

Hình minh họa

ky tu

Bạn thấy bài viết này như thế nào?: 
Average: 10 (1 vote)
Ảnh của Tommy Tran

Tommy Tran owner Express Magazine

Drupal Developer having 9+ year experience, implementation and having strong knowledge of technical specifications, workflow development. Ability to perform effectively and efficiently in team and individually. Always enthusiastic and interseted to study new technologies

  • Skype ID: tthanhthuy
  • Phone/Zalo: (+84) 944 225 212
  • WhatsApp: (+84) 944 225 212
  • Line Messenger: (+84) 944 225 212
  • Email: [email protected]
  • Telegram Messenger: https:/t.me/tommytran0401

Bình luận (0)

 

Add Comment

Plain text

  • No HTML tags allowed.
  • Các địa chỉ web và email sẽ tự động được chuyển sang dạng liên kết.
  • Tự động ngắt dòng và đoạn văn.
CAPTCHA
This question is for testing whether or not you are a human visitor and to prevent automated spam submissions.
5 + 0 =
Solve this simple math problem and enter the result. E.g. for 1+3, enter 4.

Advertisement

 

jobsora

Dich vu khu trung tphcm

Dich vu diet chuot tphcm

Dich vu diet con trung

Quảng Cáo Bài Viết

 
StatCounter: Chrome vượt Firefox, giành vị trí trình duyệt số 2

StatCounter: Chrome vượt Firefox, giành vị trí trình duyệt số 2

Tháng 11/2011, Chrome (của Google) đã vượt qua Firefox (của Mozilla) để giành vị trí trình duyệt phổ biến thứ 2, theo số liệu do công ty StatCounter (Ailen) công bố hôm 1/12.

Những điểm bất tiện trên giao diện mới của Gmail

Những điểm bất tiện trên giao diện mới của Gmail

Đối với người sử dụng là doanh nhân hay các doanh nghiệp, Gmail đang dần đánh mất lòng tin của đối tượng người dùng này. Có vẻ như Google đang muốn biến sản phẩm...

Xây dựng chiến lược phễu khách hàng từ sự hỗ trợ đa kênh

Xây dựng chiến lược phễu khách hàng từ sự hỗ trợ đa kênh

Viết blog là một trong những điều quan trọng nhất của tiếp thị nội dung. Đây là một chiến lược tập trung vào việc tạo ra nội dung thú vị hoặc có giá trị cho đối tượng được xác định của bạn với mục tiêu thu hút

Wordpress Freelancer

 

Wordpress Freelancer