Tin học Code Pascal Mới

[Lục Vân Tiên]

[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.

Sau 1 ngày ngồi trước máy tính, em đã hoàn thành code pascal này.
Code dùng được trong Turbo Pascal và cả Free Pascal. Mọi người xem qua rồi góp ý nhé!!
Cách copy code vào Pascal:
B1: mở Free hay Turbo
B2: Copy code Pascal từ bên ngoài
B3: Vào Pascal, chọn Edit rồi chọn Paste from Windows

program To_tinh;
uses crt;
const max=10;
var b1,b2,c : string;
    i,j : integer;
BEGIN
 clrscr;
 write('Nhap ten cua ban: ');readln(b1);
 write('Nhap ten nguoi ay: ');readln(b2);
 textcolor(3);
 writeln('=> ',b1,' want to say: I LOVE ',b2);delay(100);
 textbackground(9);
 textcolor(14);
 c:='I LOVE YOU!!! MY LOVE!!!';
 for i:=1 to max do
 begin
 for j:=1 to i do write(' ');
 write(c);
 delay(100);
 clrscr;
 end;
 textbackground(15);
 textcolor(4);
 writeln('Tac gia: Hoang Xuan Dung');{Xoa cung duoc};
 readln;
END.

 

[namnam06]

Sau 1 ngày ngồi trước máy tính, em đã hoàn thành code pascal này.
Code dùng được trong Turbo Pascal và cả Free Pascal. Mọi người xem qua rồi góp ý nhé!!
Cách copy code vào Pascal:
B1: mở Free hay Turbo
B2: Copy code Pascal từ bên ngoài
B3: Vào Pascal, chon Edit rồi chọn Paste from Windows

program To_tinh;
uses crt;
const max=10;
var b1,b2,c : string;
    i,j : integer;
BEGIN
 clrscr;
 write('Nhap ten cua ban: ');readln(b1);
 write('Nhap ten nguoi ay: ');readln(b2);
 textcolor(3);
 writeln('=> ',b1,' want to say: I LOVE ',b2);delay(1000);
 textbackground(9);
 textcolor(14);
 c:='I LOVE YOU!!! MY LOVE!!!';
 for i:=1 to max do
 begin
 for j:=1 to i do write(' ');
 write(c);
 delay(100);
 clrscr;
 end;
 textbackground(15);
 textcolor(4);
 writeln('Tac gia: Hoang Xuan Dung');{Xoa cung duoc};
 readln;
END.

Bạn ơi, rảnh ghê!
Bạn có giúp mk làm cái code tìm UCLN cho n số được không?

 

[Lê Quang Đông]

Sau 1 ngày ngồi trước máy tính, em đã hoàn thành code pascal này.
Code dùng được trong Turbo Pascal và cả Free Pascal. Mọi người xem qua rồi góp ý nhé!!
Cách copy code vào Pascal:
B1: mở Free hay Turbo
B2: Copy code Pascal từ bên ngoài
B3: Vào Pascal, chon Edit rồi chọn Paste from Windows

program To_tinh;
uses crt;
const max=10;
var b1,b2,c : string;
    i,j : integer;
BEGIN
 clrscr;
 write('Nhap ten cua ban: ');readln(b1);
 write('Nhap ten nguoi ay: ');readln(b2);
 textcolor(3);
 writeln('=> ',b1,' want to say: I LOVE ',b2);delay(1000);
 textbackground(9);
 textcolor(14);
 c:='I LOVE YOU!!! MY LOVE!!!';
 for i:=1 to max do
 begin
 for j:=1 to i do write(' ');
 write(c);
 delay(100);
 clrscr;
 end;
 textbackground(15);
 textcolor(4);
 writeln('Tac gia: Hoang Xuan Dung');{Xoa cung duoc};
 readln;
END.

bạn giỏi thật đấy

 

[Quang Trungg]

Bạn ơi, rảnh ghê!
Bạn có giúp mk làm cái code tìm UCLN cho n số được không?

Làm hộ mình nữa.Mình muốn tính nhanh đỡ khỏi nghĩ

Sau 1 ngày ngồi trước máy tính, em đã hoàn thành code pascal này.
Code dùng được trong Turbo Pascal và cả Free Pascal. Mọi người xem qua rồi góp ý nhé!!
Cách copy code vào Pascal:
B1: mở Free hay Turbo
B2: Copy code Pascal từ bên ngoài
B3: Vào Pascal, chon Edit rồi chọn Paste from Windows

program To_tinh;
uses crt;
const max=10;
var b1,b2,c : string;
    i,j : integer;
BEGIN
 clrscr;
 write('Nhap ten cua ban: ');readln(b1);
 write('Nhap ten nguoi ay: ');readln(b2);
 textcolor(3);
 writeln('=> ',b1,' want to say: I LOVE ',b2);delay(1000);
 textbackground(9);
 textcolor(14);
 c:='I LOVE YOU!!! MY LOVE!!!';
 for i:=1 to max do
 begin
 for j:=1 to i do write(' ');
 write(c);
 delay(100);
 clrscr;
 end;
 textbackground(15);
 textcolor(4);
 writeln('Tac gia: Hoang Xuan Dung');{Xoa cung duoc};
 readln;
END.

 

[Lục Vân Tiên]

Bạn ơi, rảnh ghê!
Bạn có giúp mk làm cái code tìm UCLN cho n số được không?

Làm hộ mình nữa.Mình muốn tính nhanh đỡ khỏi nghĩ

Vào trang này nha 2 bạn(bỏ dấu cách nha)
http : / / codepascal.blogspot.com/2012/03/tim-uoc-chung-lon-nhat-va-boi-chung-lon . html

 

[Ngố Ngây Ngô]

ghê thật, mình thử rồi nhưng cái chạy chạy nó nhanh quá, chưa kịp nhìn chữ gì đã quay về rồi

 

[Lục Vân Tiên]

ghê thật, mình thử rồi nhưng cái chạy chạy nó nhanh quá, chưa kịp nhìn chữ gì đã quay về rồi

thay thế này nè:
const max=10;(Thay 10 bằng số lần bạn muốn chữ di chuyển). Ví dụ const max=15;(di chuyển 15 lần)
delay(100)(Thay 100 bằng số lần bạn muốn dừng lại sau mỗi lần di chuyển). Ví dụ delay(1000)(mỗi lần di chuyển cách nhau 1s, vì trong câu lệnh delay(x) thì nếu x=1 thì [tex]x=\frac{1}{1000}s[/tex])

 

[kaito kuroba]

program To_tinh; uses crt; const max=10; var b1,b2,c : string; i,j : integer; BEGIN clrscr; write('Nhap ten cua ban: ');readln(b1); write('Nhap ten nguoi ay: ');readln(b2); textcolor(3); writeln('=> ',b1,' want to say: I LOVE ',b2);delay(100); textbackground(9); textcolor(14); c:='I LOVE YOU!!! MY LOVE!!!'; for i:=1 to max do begin for j:=1 to i do write(' '); write(c); delay(100); clrscr; end; textbackground(15); textcolor(4); writeln('Tac gia: Hoang Xuan Dung');{Xoa cung duoc}; readln; END.

thành công luôn.