CODE Pascal hay

Petrus TAT · 1 CODE Pascal hay Thu Feb 16, 2012 9:15 pm

Petrus TAT

Quản Trị Viên

Posts : 65

Points : 2690

Reputation : 10

4Coin : 5000

Join date : 15/10/2011

Tuổi : 27

Đến từ : Quy Nhon City

Status : Unbelievable !

Tài sản cá nhân
Logo đội bóng:

Sau đây mình xin share code cho các bạn giải trí...(Nhớ là chỉ gải trí thôi nhen... )
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.