Chào mừng các bạn đến với forum 12a


 
Trang ChínhTrang Chính  CalendarCalendar  Trợ giúpTrợ giúp  Tìm kiếmTìm kiếm  Thành viênThành viên  NhómNhóm  Đăng kýĐăng ký  Đăng Nhập  

Share | 
 

 CHƯƠNG TRÌNH CHỮ CHẠY TRONG TUBOR PASCAL

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
hoangkhuong_md*
Hiệu truởng
Hiệu truởng
avatar

Points : 140
Thanked : 4
Join date : 27/09/2011
Age : 22
Đến từ : ĐÔNG SƠN Kingdom

Bài gửiTiêu đề: CHƯƠNG TRÌNH CHỮ CHẠY TRONG TUBOR PASCAL   Sat Oct 15, 2011 3:57 am


sat thu

Cài đặt chương trình chữ chạy với TUBOR PASCAL

chương trình 1
uses crt;
var
st,st1 :string;
ch:char;
begin
clrscr;
Writeln('Nhap 1 xau ban muon no chay ');
readln(st);
st:=' '+st;
st1:=st;
ch:='0';
repeat
while (st<>'')and(not keypressed) do
begin
clrscr;
write(st);
delete(st,1,1);
delay(700);
end;
st:=st1;
until keypressed;
end.

hoặc với trương trình sau:

uses crt;
var st:string;
begin
clrscr;
repeat
write('Nhap mot xau bat ki:');readln(st);
until length(st)>0;


st:=st+' ';
repeat
clrscr;
St:=copy(st,length(st),1)+st;
Delete(st,length(st),1);
write(st);
delay(200);
until keypressed;
readln;
end.

nhớ thank đấy

Chữ Ký


Được sửa bởi hoangkhuong_md* ngày Sun Oct 23, 2011 2:05 am; sửa lần 1.
Về Đầu Trang Go down
Xem lý lịch thành viên
hoangkhuong_md*
Hiệu truởng
Hiệu truởng
avatar

Points : 140
Thanked : 4
Join date : 27/09/2011
Age : 22
Đến từ : ĐÔNG SƠN Kingdom

Bài gửiTiêu đề: Re: CHƯƠNG TRÌNH CHỮ CHẠY TRONG TUBOR PASCAL   Sat Oct 15, 2011 9:16 am

các ban có thể coppy-paste và soạn thảo trên trình duyệt TUBOR PASCAL để chạy các dòng kí tự mà bạn muốn 22
Chữ Ký
Về Đầu Trang Go down
Xem lý lịch thành viên
Từ Mai_heo
Lớp phó
Lớp phó
avatar

Points : 127
Thanked : 5
Join date : 03/10/2011
Age : 22
Đến từ : vương quốc trái tim

Bài gửiTiêu đề: Re: CHƯƠNG TRÌNH CHỮ CHẠY TRONG TUBOR PASCAL   Sat Mar 31, 2012 2:22 am

thank khuong nha!!!!
Chữ Ký
Về Đầu Trang Go down
Xem lý lịch thành viên
Sponsored content




Bài gửiTiêu đề: Re: CHƯƠNG TRÌNH CHỮ CHẠY TRONG TUBOR PASCAL   

Chữ Ký
Về Đầu Trang Go down
 

CHƯƠNG TRÌNH CHỮ CHẠY TRONG TUBOR PASCAL

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 

 Similar topics

-
» làm sao dò thuanviet trong dth
» cách lắp đặp camera quan sát
» "Bệnh" của Remote...cần được giúp đỡ.
» ABS-5 hôm qua (08.12.2010) lại "ra đi" một số kênh
» đầu thu vệ tinh tandberg tt1260
Trang 1 trong tổng số 1 trang

Permissions in this forum:Bạn không có quyền trả lời bài viết
Chào mừng các bạn đến với forum 12a :: Góc học tập! :: Tin học-