Hướng dẫn làm bài tập và thực hành 6 trang 103 SGK Tin học 11

procedure Chuchay(s1:Str79; dong:byte);

var s2 : Str79;

 stop:boolean;

begin

clrscr;

cangiua(s1);

clrscs;

stop: = false;

while not(stop) do

begin

gotoxy(1,dong);

write(s1);

delay(100); (*Dung 100 miligiay*)

Catdan(s1,s2); s1:=s2 ;

stop:=keypressed;

end;

end;

-  Thủ tục Chuchay (s, dong) có sử dụng hai thủ tục Catdan(s1,s2) và CanGiua(s). Do vậy, chương trình sử dụng thủ tục ChuChay vẫn có hai thủ tục đó trong phần khai báo chương trình con, phải đặt phía trên phần khai báo thủ tục ChuChay.

- Thân chương trình sử dụng thủ tục ChuChay đơn giản vì chỉ cần gọi thủ tục này làm việc. Tất nhiên trước đó cần xác định giá trị của xâu chữ cần chạy (xác định giá trị của biến s) và xác định chữ chạy ở dòng nào trên màn hình (xác định tham số thực sự cho tham số dong khi gọi thủ tục ChuChay). Chương trình chính có thêm biến dong thuộc kiểu byte (thực tế số nguyên dương không vượt quá số dòng của màn hình).

Chương trình:

Program Xau_chu_chay_o_dong_bat_ky;

uses crt;

type Str79 = string[79];

var s1, s2: Str79;

dong: byte; stop: boolean;

procedure

CatDan(s1: Str79; var s2: Str79);

begin

s2:= copy(s1,2,length(s1)-1)+s1[1] ;

end;

procedure

CanGiua(var s:str79);

var i, n: integer;

begin

n:= length(s);

n:= (80-n)div 2;

for i:=1 to n do s:=' '+S;

end;

procedure Chuchay(s1:Str79; dong:byte);

var s2: Str79;

stop: boolean;

begin

clrscr;

cangiua(s1);

clrscr;

stop:= false;

while not(stop) do

begin

gotoxy(1,dong); write(s1);

delay(100); (*Dung 100 miligiay*)

Catdan(s1,s2); s1:=s2;

stop:=keypressed;

end ;

end.

clrscr;

vrite('Nhap xau chu:');

readln(s1);

vrite('Nhap đong xuat hien:');

readln(dong);

ChuChay(s1, dong);

readln

END

Khi chạy chương trình trên, giả sử ta nhập vào xâu:

' Xin chao cac ban ! ' thì ngay sau đó sẽ xuất hiện một dòng yêu cầu ' Nhap dong Xuat hien:' của xâu vừa nhập vào (chẳng hạn, ở dòng 15)(Hình 73)

Kết quả của chương trình sẽ là một dòng chữ chạy ở dòng 15 trên màn hình có dạng như hình 74 dưới đây:

Loigiaihay.com