Viết chương trình đếm các ký tự chữ trong xâu Pascal

Viết chương trình đếm các ký tự chữ trong xâu Pascal

Ôn tập Từ khóa

Các từ khoá là các từ dành riêng của Pascal mà người lập trình có thể sử dụng chúng trong chương trình để thiết kế chương trình. Không được dùng từ khoá để đặt cho các tên riêng như tên biến, tên kiểu, tên hàm…

Một số từ khoá của Pascal gồm:

  • And External Mod Shr
  • Array File Nil String
  • Begin For Not Then
  • Case Function Object To
  • Const Goto Of Type
  • Constructor If Or Unit
  • Div Implementation Packed Until
  • Do In Procedure Uses
  • Downto Inline Program Var
  • Else Interface Record Virtual
  • End Label Repeat While
  • Set Shl With Xor

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_chu:=0;

    For i:=1 to length(S) do

    If S[i] in ['A'..'Z']+['a'..'z'] then

    Dem_chu:=dem_chu+1 else

    Dem_so:=dem_so+1;
    
    tong:= Dem_so + Dem_chu;

    Writeln('Trong xau S co tat ca ',tong,' ky tu');
    
    readln;

End.

Hình minh họa

Hình minh họa

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.

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

 
Tỉ phú Facebook cưỡi trâu thăm bản Hồ, Sapa

Tỉ phú Facebook cưỡi trâu thăm bản Hồ, Sapa

CEO của Facebook đã có một ngày đi bộ khám phá các bản làng gần Sapa, cùng bạn gái đạp xe, cưỡi trâu và chơi cả trò bịt mắt bắt dê.

Học cách How to create a Custom REST API using a Controller in Drupal 9

Học cách Custom REST API using a Controller in Drupal 9 cùng Postman

Now we have everything ready, let’s enable this module, also since we are using

20 Hot iPhone 4S Accessories

20 Hot iPhone 4S Accessories

The new iPhone 4S has lots of new features like iOS 5 and Siri, the new iPhone 4S is much more than a phone.

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

 

Diet con trung