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

Like Tweet Pin it Share Share Email

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

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

Comments (2)

Trả lời

Your email address will not be published. Required fields are marked *