Chương trình cho chữ chạy qua màn hình sử dụng hàm với string

[Nhận Ngô Văn]

Chương trình khá hay, mà chỉ sử dụng các hàm cơ bản

Cháu nó đây:

(*  Ngay viet:  15/02

    Author:         *)

Program  Viet_chu;   { Ung dung ham STRING }

Uses Crt;  {Khai bao thu vien}

Var

  cont: char;  {Bien de lap lai chuong trinh}

  text: string[100];

Begin

  Repeat   {Su dung phep lap repeat de chay lai chuong trinh}

  Clrscr;  {Xoa man hinh}

  {Khoi lenh chinh}

  { text }

  text:='Welcome to my program!!!';

  TextMode(C40);

  TextBackground(red);

  TextColor(blue);

  Repeat

    Clrscr;

    gotoxy(9, 10);

    write(text);

    delay(150);

    delete(text, 1, 1);

  Until KeyPressed;

    

  writeln('Muon tiep tuc nua khong? c/k '); cont:=readkey;

  until cont='k'; {Ket thuc phep lap}

  WRITE('    Please wait!');

  delay(500);

End.

[Hoài TN]

Hay đấy hì, mình cũng đóng ghóp cái viết chữ từ hai bên:

Program HieuUngChu;


Uses crt;


Var ch: string;


Procedure special(ch:String;h:byte);
{h: hàng của xâu}

Var i: byte;
Begin
  For i:= 1 To length(ch) Do
    Begin
      gotoxy(i,h);
      write(ch[i]);
      gotoxy(length(ch)-i+1,h);
      write(ch[length(ch)-i+1]);
      delay(300);
    End;
End;
Begin
  Clrscr;
  write('ch=');
  readln(ch);
  Writeln;
  special(ch,3);
  Readkey
End.

Vào 17:07:06 UTC+7 Thứ sáu, ngày 15 tháng hai năm 2013, Nhận Ngô Văn đã viết:

[Nhận Ngô Văn]

Hay đấy, lại có bản mod nè:

Program HieuUngChu;

Uses crt;

Var ch: string;

Procedure special(ch:String;h:byte);

Var i: byte;

Begin

  For i:= 1 To length(ch) Do

    Begin

      textcolor(red);

      gotoxy(i,h);

      If (i < (length(ch) div 2 + 1)) then write(ch[i]) else write(' ');

      gotoxy(length(ch)-i+1,h);

      If (i < (length(ch) div 2 + 1)) then write(ch[length(ch)-i+1]) else write(' ');

      delay(200);

    End;

End;

Begin

  Clrscr;

  write('ch=');

  readln(ch);

  Writeln;

  Repeat

  special(ch,3);

  Until KeyPressed;

End.

[Hoài TN]

Đẹp nhỉ, hì

[Mai Anh Nguyễn]

Các c tìm tài liệu đọc mấy hàm mới như textbackground, textmode, gotoxy ...đó ở đâu thế, trong sách hình như ko có, t ko hiểu lắm về các hàm đó. Các c có thể nói cho t biết ý nghĩa của các hàm đó ko? Cảm ơn các c nhiều...

Vào 15:26 Ngày 17 tháng 2 năm 2013, Hoài TN <ngoch...@gmail.com> đã viết:

Đẹp nhỉ, hì

--
[*---------------B2 Tin D44 Học Viện An Ninh Nhân Dân----------------*]
---
Bạn nhận được thư này vì bạn đã được đăng ký vào nhóm Google Groups "Lớp B2 Tin khóa D44 Học viện an ninh nhân dân".
Để hủy đăng ký nhóm này và ngừng nhận email từ nhóm, hãy gửi email tới b2tind44hvann...@googlegroups.com.
Để đăng bài lên nhóm này, hãy gửi email đến b2tind4...@googlegroups.com.
Truy cập nhóm này tại http://groups.google.com/group/b2tind44hvannd?hl=vi.
Để có thêm tùy chọn, hãy truy cập https://groups.google.com/groups/opt_out.

[Hoài Nông]

Hì..cái này tớ không rõ. Dựa vào nhu cầu thui, hì.
Vd như nhu cầu đang cần lệnh tăng cỡ chữ trong pascal. Thế là vào google search "hàm tăng cỡ chữ trong pascal"...

[Huy Nguyễn]

Nếu có thời gian cậu đọc ở đây: http://dothanhyb.violet.vn/entry/show/cat_id/2115364/entry_id/1960310
Có những hàm, thủ tục cơ bản

Vào 18-02-2013 10:02, "Mai Anh Nguyễn" <ntmaianh...@gmail.com> đã viết:

[Mai Anh Nguyễn]

Cảm ơn các bạn nhiều,hj,hj...

Vào 15:42 Ngày 19 tháng 2 năm 2013, Huy Nguyễn <huy...@gmail.com> đã viết: