.::DIỄN ĐÀN HỌC TẬP VÀ VUI CHƠI::.

Toàn bộ
Tiêu đềNgười tạoNgười gửi cuốiChuyên mụcBìnhXem
Bài gửi sau cùng

You are not connected. Please login or register

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down  Thông điệp [Trang 1 trong tổng số 1 trang]

1 CODE Pascal hay on Thu Feb 16, 2012 9:15 pm

Petrus TAT


Quản Trị Viên
Quản Trị Viên
Sau đây mình xin share code cho các bạn giải trí...(Nhớ là chỉ gải trí thôi nhen... Rolling Eyes )
Dùng Free Pascal hay Turbo Pascal để chạy chương trình nhé!

Code:
Bạn muốn copy CODE nhưng dài quá, và cũng không thể copy paste từ Web sang Pascal ?
Một cách đơn giản và hiệu quả, đó là:
-B1: Chọn khối cần chép, sau đó Copy (Ctrl+C) như bình thường.
-B2: Vào NotePad (hoặc Start ->Run, gõ notepad hoặc Start/ (All) Programs/Accessories/Notepad)
-B3: Paste (Ctrl+V)
-B4: File/Save (Ctrl+S), lưu vào thư mục BIN với đuôi "  .PAS  " (để ý ô Save as type : All files)
-B5: Vào Pascal, File/Open để mở file đó
-B6: Compile (Alt+F9), sau đó đóng Pascal lại, bạn sẽ có một file  ungdung.EXE ở thư mục BIN

ĐÂY LÀ CODE:
Bói Tình yêu:
Code:
uses crt,sysutils;
const Code='LOVES'; max_loop=50;
var s1,s2:string;
k,q,a:string;
i,j,s:byte; loves:array[1..5]of shortint;
BEGIN
repeat
k:=''; q:=''; a:=''; i:=0; j:=0;
loves[1]:=0; loves[2]:=0; loves[3]:=0;
loves[4]:=0; loves[5]:=0;
  textbackground(red); clrscr; textcolor(lightred);
    writeln('Nhap ten cua ban nam: ');
  textcolor(white); readln(s1);
  if s1='' then halt; textcolor(lightred);
    writeln('Nhap ten cua ban nu: ');
  textcolor(white); readln(s2);
    if s1='' then halt;
  writeln; writeln('    L  O  V  E  S ');

  textcolor(lightred); textbackground(black);

    for i:=1 to length(s1) do
        for j:=1 to 5 do
        if upcase(s1[i])=code[j] then
        begin
            loves[j]:=loves[j]+1;
            gotoxy(i,2); write(s1[i]);
            gotoxy(3*j,7); write(loves[j]:3);
            delay(50);
        end;

    for i:=1 to length(s2) do
        for j:=1 to 5 do
        if upcase(s2[i])=code[j] then
        begin
            loves[j]:=loves[j]-1;
            gotoxy(i,4); write(s2[i]);
            gotoxy(3*j,7); write(loves[j]:3);
            delay(50);
        end;
  textbackground(red); textcolor(lightred);

    for i:=1 to 5 do
    begin
        loves[i]:=abs(loves[i])+1;
        gotoxy(3*i,7); write(loves[i]:3);
        k:=k+IntToStr(loves[i]);
    end;

    while (length(k)>2) and (s<max_loop) do
    begin
  inc(s);
    textcolor(lightred);
    writeln; write('  ');
        q:='';
        for i:=1 to length(k)-1 do
        begin
            a:=IntToStr(StrToInt(k[i])+StrToInt(k[i+1]));
            q:=q+a;
            write(a:3);
            delay(50);
        end;
    textcolor(white);
        k:=q; gotoxy(3,wherey);
    for i:=1 to length(k)do write(k[i]:3);
  if s=max_loop then k:='100';
    end;

textcolor(lightred); textbackground(black); writeln;
writeln('Ket qua: ',k,' %');
textcolor(white); textbackground(red);
write('Nhan phim bat ki de tiep tuc, ESC de thoat');
until readkey=#27;
END.



Được sửa bởi Hudson Tô ngày Tue Mar 13, 2012 8:46 pm; sửa lần 2.


____SIGNATURE_________________________
Khi một người bạn yêu quý khóc, hãy nói với người ấy rằng:
ĐKM NGU! VCL

Bấm để xem bí mật:
Đừng Khóc Mà, Never Give Up! Vui Cười Lên
Xem lý lịch thành viên http://a5class.5forum.net

2 Re: CODE Pascal hay on Sun Feb 19, 2012 7:47 pm

john cena


Thành viên tích cực
Thành viên tích cực
sao ko post mấy kiến thức english ấy,tui đang rất cần nè.với lại môn văn nữa Exclamation Exclamation Sad Sad Sad

Xem lý lịch thành viên

3 Re: CODE Pascal hay on Sun Feb 19, 2012 10:04 pm

Petrus TAT


Quản Trị Viên
Quản Trị Viên
Thế thì qua bên đó mà hỏi!
Hỏi bên này làm gì? Bên này là Tin học mà cha!


____SIGNATURE_________________________
Khi một người bạn yêu quý khóc, hãy nói với người ấy rằng:
ĐKM NGU! VCL

Bấm để xem bí mật:
Đừng Khóc Mà, Never Give Up! Vui Cười Lên
Xem lý lịch thành viên http://a5class.5forum.net

4 Re: CODE Pascal hay Today at 12:54 pm

Sponsored content


Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang  Thông điệp [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