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

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

 
Sức mạnh của HTML 5 trong thiết kế web mobile

Sức mạnh của HTML 5 trong thiết kế web mobile

Công nghệ thiết kế website bằng HTML 5 thì ra đời khá lâu rồi. HTML 5 là công nghệ. Theo IBM thì

Khóa học Drupal trực tuyến

Bình Dương mở khóa học Drupal trực tuyến

Bạn đang là lập trình viên PHP, Bạn đang muốn xây dựng 1 website thật nhanh chóng nhưng vẫn đảm bảo nhanh, bảo mật, linh động, đẹp, ...

BlackBerry khởi kiện Typo Products - công ty với ý tưởng vỏ bảo vệ kiêm bàn phím Qwerty cho iPhone

Vỏ bảo vệ Typo Keyboards Case (ảnh) dù chưa chính thức bán ra nhưng đã vấp phải vụ kiện từ BlackBerry - hãng nổi tiếng với smartphone có bàn phím Qwerty vật lý​

Tomdesgin.vn

 

Drupal Services