Viết chương trình đếm số từ trong chuổi trong pascal

2020-01-10T00:23:04+08:00 2020-01-10T00:23:04+08:00 Hướng dẫn lập trình Pascal: Viết chương trình đếm số từ trong một chuỗi đếm số từ trong một chuỗi, lập trình Pascal https://baikiemtra.com/uploads/news/2019_11/bai-tap-lap-trinh-pascal.jpg

Nội dung chính Show

Viết chương trình đếm các ký tự chữ trong xâu Pascal
Ôn tập Từ khóa
Bài giải
Hình minh họa
Tommy owner Express Magazine
Trích nguồn code của thầy Nguyễn Tấn Phong

Program DEM_SO_TU;
Uses Crt;
Var st:string;
       i,dem:integer;
Begin
       Clrscr;
      Writeln('DEM SO TU TRONG CHUOI:');
      Writeln('-------------------------------------');
      Write('Nhap chuoi: ');readln(st);
      If st[1]=' ' then
      dem:=0
      Else
      dem:=1;
      For i:=1 to length(st)-1 do
      If (st[i] = ' ')and (st[i+1] <>' ') then
        dem:=dem+1;
        Writeln('So tu trong chuoi la: ',dem);
      Readln;
End.

January 2, 2012

vn4000 Ví dụ và Bài tập lập trình Pascal Leave a comment

Chương trình Đếm số từ trong một chuỗi.

Đếm số từ trong một chuỗi.

Program Dem_So_Tu;
Uses Crt;
Var st:string;
i,dem:integer;
Begin
Clrscr;
Writeln(‘DEM SO TU TRONG CHUOI:’);
Write(‘Nhap chuoi: ‘);readln(st);
If st[1]=’ ‘ then dem:=0
Else
dem:=1;
For i:=1 to length(st)-1 do
If (st[i] = ‘ ‘)and (st[i+1] ‘ ‘) then dem:=dem+1;
Writeln(‘So tu trong chuoi la: ‘,dem);
Readln;
End.

Comments are closed.

Posted by: Tommy Tran
Sat, 4/09/2021, 15:13 (GMT+7)
0 Bình luận

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

Bạn thấy bài viết này như thế nào?:

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

Lập trình Pascal – Đếm số trong chuỗi – HSG tin Bảo Lộc 1819

Bài này không khó các bạn chỉ cần duyệt từng kí tự của chuỗi nếu là số thì dùng kỹ thuật cộng dồn để đếm mà thôi.

Trích nguồn code của thầy Nguyễn Tấn Phong

program BaoLoc_Bai1;
var ch:char;
dem:integer;
f:text;
begin
{– đọc từng ký tự và tính trực tiếp –}
assign(f,’kyso.inp’);
reset(f);
dem := 0;
while not eof(f) do
begin
read(f,ch);
if ch in [‘0′..’9′] then dem:=dem+1;
end;
close(f);
{–ghi file OUT}
assign(f,’kyso.out’);
rewrite(f);
write(f,dem);
close(f);
end.

Đừng quên còn nhiều bài trong đề thi HSG tin năm nay

Đề thi Tin học trẻ Đà Lạt 1819
Sắp xếp ma trận Đề bảo lộc

Mình cũng thấy bài này chuyển sang Scratch làm cũng rất dễ các bạn hãy trên cơ sở chương trình pascal trên code trong Scratch xem thế nào nha.

Đang ngồi viết bài thì nhận được thơ mới nên chia sẻ lên để các bạn đọc cho vui

MÀU HOA PHƯỢNG 03 / 4 / 2019

Nghiêng nghiêng theo gió dáng hồng,
Phượng lên tiếng gọi … đợi mong hè về ?
Du dương tấu khúc sầu ve,
Trời hong mây trắng sắt se gợi buồn.
Bao tà áo trắng thân thương,
Tình thân chưa tỏ lời thương ngại ngùng.
Xác hoa tơi tả bên đường
Biệt ly khúc hát, nhạc lòng tiễn đưa
Màu hoa đỏ thắm trong mưa,
Cánh hoa tim vỡ nhặt thưa gợi tình …

Mỗi chiều, áo trắng trung trinh
Nón nghiêng ấp ủ dáng hình thướt tha
Có người nhặt nhớ cánh hoa
Gom tâm tư nhỏ đếm qua ghế chờ.

Lần về kỷ niệm tuổi thơ,
Màu hoa, hè đến kết hờ … phượng ơi !

NGƯỠNG MỘ HẢI PHÒNG

Nhìn giải đất tổ quốc mình đẹp lằm
Nơi mát lành, nơi nắng sém màu da
Ở Hải -Phòng thời tiết thật hiền hòa
Bởi gió biển luôn thổi vào mát rợi

Hoa phượng đỏ, khoe màu trong nắng mới
Cảng rộn ràng,Tàu tấp nập ra vào
Phao số không đèn nhấp nháy như sao
Hoa tiêu cảng hướng cho tầu vào bến

Biển đồ sơn một thời mang đấu ấn
Tàu không tên không số tiến vào nam
Anh Hải quân vượt bom đan hiên ngang
Cùng đất nước đã góp phần chiến thắng

Có những cuộc hy sinh rất thấm lặng
Được vinh danh và truy tặng bảng vàng
Yêu biêt mấy tổ quóc, có Hải Phòng
Thật rực rỡ một màu hồng đất nước…
Kao Hữu