Tin học Typingtext - chia sẻ một chương trình Pascal đơn giản

[SGORKI]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Hôm nay mạo dạn chia sẻ mọi người một chương trình Pascal đơn giản mình viết lúc rảnh .
Chương trình tự viết có sai sót gì mọi người sửa giùm.
Dùng để làm gì thì mọi người tự tìm hiểu nhé !

program typingtext;
uses crt;
const content='Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat cupidatat non proident, sunt in culpa qui officia deserunt mollit anim id est laborum.';
function typing(text:String;time:byte):Boolean; 
var len,i :Integer;
begin
(* Lay do dai van ban *)
len:=Length(text);
(*In van ban *)
for i:=1 to len do
  begin
    write(text[i]);
    delay(time);
  end;
end;
begin
{
  Author: Tô Quang Thắng .
  Facebook : https://www.facebook.com/sgorkivn
}
  clrscr();
  (* Goi ham *)
  typing(content,25);
  readln;
end.

 

[trà nguyễn hữu nghĩa]

Hôm nay mạo dạn chia sẻ mọi người một chương trình Pascal đơn giản mình viết lúc rảnh .
Chương trình tự viết có sai sót gì mọi người sửa giùm.
Dùng để làm gì thì mọi người tự tìm hiểu nhé !

program typingtext;
uses crt;
const content='Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat cupidatat non proident, sunt in culpa qui officia deserunt mollit anim id est laborum.';
function typing(text:String;time:byte):Boolean;
var len,i :Integer;
begin
(* Lay do dai van ban *)
len:=Length(text);
(*In van ban *)
for i:=1 to len do
  begin
    write(text[i]);
    delay(time);
  end;
end;
begin
{
  Author: Tô Quang Thắng .
  Facebook : https://www.facebook.com/sgorkivn
}
  clrscr();
  (* Goi ham *)
  typing(content,25);
  readln;
end.

Cái này bạn ứng dụng Delay với hàm cắt chữ để làm. Nhưng cái text của nó dài quá bạn ơi, nên làm ngắn gọn thì sẽ dễ chạy hơn.

 

[SGORKI]

Cái này bạn ứng dụng Delay với hàm cắt chữ để làm. Nhưng cái text của nó dài quá bạn ơi, nên làm ngắn gọn thì sẽ dễ chạy hơn.

nhưng dù sao vẫn chạy đc mà