Hãy tìm kiếm trước khi HỎI hoặc ĐĂNG BÀI




búp bê disney
 
bình giữ nhiệt

kết quả từ 1 tới 6 trên 6
  1. #1
    Thành viên nhiệt tình
    Gia nhập
    Jun 2009
    Nơi cư ngụ
    Hà Nội
    Bài gởi
    305

    Dòng chữ chạy ngang qua màn hình

    Viết chương trình cho dòng chữ chạy ngang qua màn hình(căn giữa màn hình) cho tới khi nhấn một phím bất kì thì dừng (chương trinh viết sử dụng các thủ tục - vì mình đang học phần thủ tục).
    Các bạn viết cách ngắn gon giúp mình nhé! Cám ơn các bạn trước. Bài này thực ra ở sách giáo khoa 11 có viết nhưng mình thấy hơi dài, rườm dà, có cách khác ngắn gọn hơn chứ.

    DMCA.com Protection Status




    Chia sẻ bài viết...



    Copy đoạn dưới và gửi cho bạn bè qua Yahoo!
    Link bài viết Diễn Đàn Tin Học by QRCode
    Chỉnh sửa lần cuối bởi lehang_gb1 : 04/02/2010 lúc 11:53 AM

  2. #2
    Thành viên nhiệt tình Avatar của tungthao94
    Gia nhập
    Sep 2009
    Nơi cư ngụ
    Hòa Bình
    Bài gởi
    334
    em hiểu biết nông cạn ko biết viết thế này có đúng ko . anh/chị em ý kiến nhé
    Code:
    uses     crt;
    var       s:ansistring;
    procedure      inp;
    begin
               write('nhap xau can thao tac:');
               readln(s); s:=s+'   ';
               clrscr;
    end;
    procedure      xuly;
    var       i,d:longint;
    begin
               d:=length(s);
               repeat
                           gotoxy(10,10);
                           write(s);
                           delay(1000);
                           s:=copy(s,2,d-1)+copy(s,1,1);;
              until    keypressed;
    end;
    begin 
              clrscr;
              inp;
              xuly;
    end.

  3. #3
    Thành viên nhiệt tình Avatar của Ginta_ITFam
    Gia nhập
    Oct 2009
    Nơi cư ngụ
    Nam Định
    Bài gởi
    823
    CHạy chương trình báo lỗi ở ansistring . Mà nó là kí gì thế? Mình chưa biết

  4. #4
    Thành viên nhiệt tình Avatar của tungthao94
    Gia nhập
    Sep 2009
    Nơi cư ngụ
    Hòa Bình
    Bài gởi
    334
    Trích dẫn Nguyên văn bởi o0Tieu0Long0o Xem Bài Gởi
    CHạy chương trình báo lỗi ở ansistring . Mà nó là kí gì thế? Mình chưa biết
    Đó là kiểu xâu khá bự và chỉ đc xài trong fpc .

  5. #5
    Thành viên nhiệt tình Avatar của Ginta_ITFam
    Gia nhập
    Oct 2009
    Nơi cư ngụ
    Nam Định
    Bài gởi
    823
    lehang mới học Pascal mà, chắc chưa dùng tới free pascal đâu. Mình học PC 4 năm oài mà đã lần nào được mó vào fpc đâu. :D

  6. #6
    Người Đóng Góp Hàng Đầu Avatar của HappySoftGroup
    Gia nhập
    May 2008
    Nơi cư ngụ
    Tp. Cam Ranh - Khánh Hòa
    Bài gởi
    2,261
    Code:
    uses  crt;
    var   i:integer;
          a:string;
    begin
          a:='Chao Mung Ban Den Dien Dan Tin Hoc';
          for i:=1 to 78 do
                a:=' '+a;
          a:=a+a;
          clrscr;
          repeat
                inc(i);
                gotoxy(1,12);
                write(copy(a,i,79));
                delay(150);
                if i=120 then
                begin
                      i:=0;
                      clrscr;
                end;
          until keypressed;
    end.
    ...♥.♥.♥..:: Chúc Tất cả các bạn thành công ::..♥.♥.♥...
    ---------o0o---------
    Chúc bạn vui vẻ̉ khi đến với DIENDANTINHOC.VN
    ============>>><<<============

Thảo luận qua mạng xã hội



Thông tin Chủ đề

Users Browsing this Thread

Hiện đang có 1 người đang đọc bài này. (0 thành viên và 1 khách)

Các đề tài liên quan

  1. Màn hình laptop bị chập chờn, có mấy dòng kẻ ngang nháy dưới thanh taskbar
    Bởi kingcat2212 trong diễn đàn Thủ thuật máy tính | Laptop
    Trả lời: 8
    Bài mới gởi: 16/09/2014, 05:11 PM
  2. [Help - Check] Dòng chữ chạy ngang màn hình.
    Bởi lehang_gb1 trong diễn đàn Pascal/Delphi/Kylix
    Trả lời: 6
    Bài mới gởi: 22/06/2010, 05:09 PM
  3. Luồng ảnh chạy ngang
    Bởi JavaScriptBank.com trong diễn đàn CLB Webmasters
    Trả lời: 0
    Bài mới gởi: 19/05/2010, 07:53 AM
  4. Định dạng ảnh căn giữa chiều ngang của dòng văn bản word?
    Bởi vtv1 trong diễn đàn Hỏi-Đáp Tin học
    Trả lời: 0
    Bài mới gởi: 14/02/2009, 11:16 PM
  5. hỏi về lệnh tạo chữ chạy ngang và chạy lên xuống.
    Bởi tiencan trong diễn đàn Visual Basic
    Trả lời: 4
    Bài mới gởi: 19/03/2008, 08:49 AM

Quyền Hạn Của Bạn

  • Bạn không thể gửi chủ đề mới
  • Bạn không thể trả lời
  • Bạn không thể gửi file
  • Bạn không thể sửa bài viết
  •