Lập Trình

Chủ Nhật, 6 tháng 1, 2013

Bài 5 + 6 + 7

bài 5 : vẽ đồng hồ cát nhập giá trị bất kì và rỗng ra giữa màn hình

https://dl.dropbox.com/u/95939359/Bai%205%20%2B%206/11l20005.pas

bài 6: tìm giá trị nguyên n lớn nhất thỏa mãn (3n^n-2013n) < 5

http://dl.dropbox.com/u/95939359/Bai%205%20%2B%206/11l20006.pas

bài 7: Tìm năm sinh của Nguyễn Du biết đến năm 1786, tuổi của ông bằng tổng các chữ số năm ông sinh ra

http://dl.dropbox.com/u/95939359/Bai%205%20%2B%206/11l20007.pas

https://www.dropbox.com/home/Public/Bai%205%20%2B%206

Thứ Tư, 12 tháng 12, 2012

Bài 4 : Vẽ đồng hồ cát.

Download

Không cần phức tạp quá. Thế này dễ hiểu.

https://www.dropbox.com/sh/hbr15gjm019h8j1/p9R3mA8wuG/Bai%204/11l20004.pas

Thứ Tư, 5 tháng 12, 2012

Bài 3 : Giải phương trình ax^2 + bx + c = 0

Bài này có 1 file thôi, mình viết khá chi tiết, đủ các trường hợp.

Nhớ thay số thứ tự.

>>Download<<

https://dl.dropbox.com/u/95939359/Bai%203/11l20003.pas

Thứ Tư, 7 tháng 11, 2012

Bài 2 : Đồng Hồ Cát tùy chọn

CLICK VÀO ĐÂY ĐỂ DOWNLOAD

Nên Chọn bài 11l20102.pas

Hình bài 11l20102.pas HÌNH bị sai nhé !!!

(download thoải mái, đã sửa.)

Nó là thế này cơ :

var a, b: char;

BEGIN

readln(a); readln(b);

writeln(a,' ',a,' ',a,' ',a,' ',a,' ',a,' ',a,' ',a,' ',a); write(' ');

writeln(a,' ',a,' ',a,' ',a,' ',a,' ',a,' ',a); write(' ');

writeln(a,' ',a,' ',a,' ',a,' ',a); write(' ');

writeln(a,' ',a,' ',a); write(' ');

writeln(a); write(' ');

writeln(b); write(' ');

writeln(b,' ',b,' ',b); write(' ');

writeln(b,' ',b,' ',b,' ',b,' ',b); write(' ');

writeln(b,' ',b,' ',b,' ',b,' ',b,' ',b,' ',b);

writeln(b,' ',b,' ',b,' ',b,' ',b,' ',b,' ',b,' ',b,' ',b);

readln;

END.

link : https://www.dropbox.com/sh/hbr15gjm019h8j1/oKTJAh38fU/Bai%202

Thứ Bảy, 20 tháng 10, 2012

Giải thích :

Bài này mình dùng 3 vòng lặp (loop) để co x, y, z chạy từ 1 đến 100. Bắt đầu từ vòng lặp nhỏ nhất thì giá trị lúc đầu cả 3 cái x y z đều = 1. Dần dần cho Z chạy từ 1 tới 100, nếu biểu thức x + y + z = 100 và 5*x + 3*y + z/3 = 100 thì in ra x y z là giá trị cần tìm. Nếu Z đạt đến giá trị 100 thì vòng lặp thứ 2 có Y sẽ tăng 1 đơn vị (Y = 1 trở thành Y = 2) và vòng lặp nhỏ nhất (thứ 3) sẽ trở về Z = 1. Tiếp tục tìm kiếm cho đến khi vòng lặp thứ 2 có giá trị Y = 100 thì vòng lặp ngoài cùng (thứ 3) sẽ tăng 1 đơn vị ( X = 1 sẽ lên X = 2 ). Lúc này Y trở về 1 và Z trở về 1. Khi X lên tới 100 thì kết thúc chương trình.

* Mình cho cả 3 vòng lặp chạy tới 100 cho dễ hiểu. Thực tế X chẳng bao giờ hơn được 20. Y không hơn được 33 và Z không hơn được (100 - X - Y).

* Đơn giản hơn có thể hiểu như sau :
X = 1
Y = 1
Z = 1
Biểu thức ? Sai -> Z = 2
Biểu thức ? Sai -> Z = 3
Biểu thức ? Đúng ( giả sử nó đúng ) -> In ra X Y Z -> Z = 4
Biểu thức ? Sai -> Z = 5
...
Biểu thức ? Sai -> Z = 100. Z = 100 ? Đúng -> Y = 2; Z = 1
Với :
X = 1
Y = 2
Z = 1
Tiếp tục Biểu thức ? Sai -> Z = 2
...
Y = 100 ? Đúng -> X = 2; Y = 1 ; Z = 1;
blah blah blah