BÀI TẬP 83: ĐÈN LED QUẢNG CÁO (BÀI 1 - ĐỀ HSG LỚP 9 TỈNH AN GIANG 2016)

Những năm gần đây, đèn LED được ứng dụng trong trang trí quảng cáo, làm bảng hiệu quảng cáo để quảng bá thương hiệu cũng như các loại sản phẩm, dịch vụ, … Bảng quảng cáo bằng đèn LED thường được sử dụng là bảng chữ có nội dung rõ ràng được chạy liên tục từ phải sang trái.

            Hãy viết chương trình mô phỏng bảng quảng cáo bằng đèn LED như ý tưởng đã nêu theo các yêu cầu sau:

            1. Xâu ký tự được nhập vào từ bàn phím (không quá 60 ký tự). Ví dụ: An Giang han hoan chao don cac ban!

            2. Xâu ký tự được di chuyển liên tục trên cùng một dòng của màn hình máy tính, khi cần kết thúc người sử dụng phải nhấn phím “k” hoặc “K”.

CODE THAM KHẢO:

Uses Crt;

Var i, x : LongInt;

str : AnsiString;

Begin

Repeat

ClrScr;

Write('Moi ban nhap chuoi ky tu: ');

Readln(str);

Until (Length(str) > 0) And (Length(str) <= 60);

x := 0;

Repeat

ClrScr;

Write(Copy(str, Length(str)-x+1, Length(str)));

Write(Copy(str, 1, Length(str)-x));

Delay(500);

Inc(x);

If x > Length(str)-1 Then x := 0;

Until KeyPressed And (Upcase(Readkey) = 'K');

End.