Gaara nhờ mình làm chương trình này cũng lâu rồi, đợt đó chưa có time+hứng, chiều nay nhân tiện nhớ các hàm trong thư viện crt; tôi làm một ct pascal để thề hiện tình yêu với "người ấy";
Công sức mình bỏ ra khá nhiều cả một buổi chiều+tối ~ 10h; mọi người nếu chia sẻ ở đâu thì nhớ để lại cái Credit là "Code by Wind_NarSas" nhá.Thanks
AI có thắc mắc xin liên hệ vào yahoo: Sasuke_tim_sakura_94 ; mail: [You must be registered and logged in to see this link.]
Đây là mã nguồn chương trình bạn có thể sửa để nó được đẹp hơn phù hợp với phong cách của bạn hoặc không thì thôi:

Code:


uses crt;
type
      str79=string[79];


var s,s2,ban1,ban2:string;
stop:boolean;
n,i:integer;
Procedure heart;
begin
textcolor(lightred);
Writeln('      **      **  *      * *  ');
writeln('    *  *  *    *  *  *    *  ');
Writeln('  *      *        *  *      *  ');
writeln('  *                *          *  ');
writeln('  *              *          *  ');
writeln('    *            *          *  ');
writeln('    *          *          *    ');
writeln('      *        * *        *      ');
writeln('      *    *    *    *        ');
writeln('        *  *      *  *          ');
writeln('        *          *            ');
end;
Procedure load(t:integer); {thoi gian load(so giay), cho oai thoi chu chang
chuc nang j ca hj` hj`}
var i:integer;
  begin
  Write('Loading');
  for i:=1 to 10 do
    begin
    write('.');
    delay(t*100); {vi thoi gian cua ham delay la mili giay nen...tu => ra nhe'}
    end;
  write('100% Done!');
  clrscr;
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 chu_chay(s:str79; var s2:str79);
 var i,n:integer;
  begin
    s2:=copy(s,2,length(s)-1)+s[1];
  end;
Procedure chucmung(x,y:integer);
  begin
  Gotoxy(x,y); Writeln('_._');
  gotoxy(x,y+1);Write  ('/ \');

  delay(300);
  Gotoxy(x+4,y); write('\./');
  Gotoxy(x+4,y+1); write('/ \');
  end;



begin clrscr;
Write('Nhap ten ban: '); Readln(ban1);
Write('Nhap ten nguoi ay hjhj: '); Readln(ban2);
Ban1[1]:=upcase(ban1[1]);
Ban2[1]:=upcase(ban2[1]);
S:=ban1+' want to say: I LOVE '+ban2;
load(5);
clrscr;
cangiua(s);
stop:=false;
i:=1;
textcolor(darkgray);
While i<=20 do
 begin
 delay(300);
 gotoxy(1,1);
 chu_chay(s,s2);
s:=s2;
write(s);
i:=i+1;
writeln;
 end;
heart;
i:=1; s:='';

  gotoxy(7,5);
  textcolor(lightblue);
For i:=1 to length(ban1) do
  begin
  delay(300);

  Write(ban1[i]);

  end;

  gotoxy(23,5);
  Textcolor(yellow);

for i:=1 to length(ban2) do
  begin
  delay(300);

  write(ban2[i]);

  end;
gotoxy(1,15);
n:=1; i:=15;
  chucmung(n,i); chucmung(n+8,i); chucmung(n+16,i);
 stop:=keypressed;
 writeln;
 Write('          Code by Wind_NarSas(Ta Quang Phong'); {cho nay ban sua cung duoc de the hien vs ban minh hjhj}
 
 if stop then exit;


  readln;
end.



Đây là chương trình có thể sử dụng ngay
link download file .exe: [You must be registered and logged in to see this link.]
Link download bộ mã pascal .pas: [You must be registered and logged in to see this link.]

Chúc vui!




Có thời gian rỗi mình sẽ ra love2.0

Phần mềm tuyệt thật, thanks Wind nhìu ! Hj hj, có mấy câu lệnh hay hay, mình có thể sửa thêm dc

Ờ, mới đầu mình nghĩ nó đơn giản nhưng ko ngờ nó khá vất cả. khi nào rỗi tớ sẽ ra ver 2.0 sẽ đẹp vào nhiều chức năng hơn và có cả nhạc nữa

Mình ko nghĩ là Pascal có cả nhạc nữa,

hình như wind là lập trình viên ak, hay đang học máy tính
ước mơ cua mih là làm lập trình viên đấy

Pascal là phần mềm học sinh, cậu có học ko?

Gaara đã viết:Mình ko nghĩ là Pascal có cả nhạc nữa,

Gọi là có âm thanh thôi chứ nhạc thì ko ổn, hình như trong pascal chỉ có nhạc đơn âm

Pascal là phần mềm học sinh, cậu có học ko?

Tớ tưởng Pascal là một ngôn ngữ lập trình chứ

Tớ học nó vào lớp 8, một phần mềm lập trình của HS

Là cái pascal study đó á

pascal là cái ngôn ngữ lập trình, trước mih cũng dùng 1 lần
hay phết nhưng khó lắm, mih hok để tkj thành phố đấy, tự nhiên bh lại ko hok nữa

Hay wa' nhỉ!!!

"hay wa nhỉ" là sao, là chương trình pascal hay hay là cái j hay
mà sao admin rùi mà còn spam viết dưới 10 từ vậy, phải làm gương cho các mem chứ