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 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

Bình luận (0)

 

Add Comment

Filtered HTML

  • Các địa chỉ web và email sẽ tự động được chuyển sang dạng liên kết.
  • Các thẻ HTML được chấp nhận: <a> <em> <strong> <cite> <blockquote> <code> <ul> <ol> <li> <dl> <dt> <dd>
  • Tự động ngắt dòng và đoạn văn.

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.
Image CAPTCHA
Enter the characters shown in the image.

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

 
Làm thế nào tạo Search Pages sử dụng Views trong Drupal 7

Làm thế nào tạo Search Pages sử dụng Views trong Drupal 7

Search API can be tough to setup especially for new users to Drupal. For example, you need to understand the difference between a Search API Server and Index, and then you need to spend time configuring everything.

Máy tính bảng Nexus 7 xuất xưởng, “cháy” trên kệ hàng

Máy tính bảng Nexus 7 xuất xưởng, “cháy” trên kệ hàng

Sau khi ra mắt tại Google I/O hồi cuối tháng 6, hãng tìm kiếm khổng lồ bắt đầu xuất xưởng những chiếc MTB đầu tiên Nexus 7 chạy hệ điều hành Android 4.1 Jelly Bean cho các khách hàng đặt trước.

Kindle Fire kéo lợi nhuận của Amazon giảm một nửa

Kindle Fire kéo lợi nhuận của Amazon giảm một nửa

Chính việc Amazon chịu lỗ khoảng 50 USD cho mỗi máy tính bảng Kindle Fire được bán ra là nguyên nhân khiến lãi suất trong quý IV/2011 giảm đến 58%.

Công ty diệt chuột T&C

 

Diet con trung