Tin tức tin học (Dành cho người sử dụng máy tính)!!

**So nguyen to:
var n,i,j:integer;ok:boolean;
begin
write('cho n=');readln(n);
writeln('Cac so nguyen to trong pham vi n la:');
for i:=2 to n do
begin j:=2;ok:=true;
while (j<=i div 2) and (ok:=true) do
begin
if i mod j=o then ok:=false;
inc(j);
end;
if ok=true then write(i,' ');
end;
readln;
end.
FIBO dễ lắm, làm như ở hk1 thôi.
 
Chỉnh sửa lần cuối:
Fibo bạn dùng Hàm đi , vừa nhanh vừa tổng quát!
Var i,n,d :longint;
{}Function Fibo(i:longint) :longint;
Begin
If (i = 1) or (i = 2) then Fibo:=1;
If i > 2 then Fibo:= Fibo(i-1)+ Fibo(i-2);
End;
{}BEGIN
Write(' Cho phạm vi của dãy Fibo bạn cấn :'); Readln(n); d:=0;
For i:=1 to n do
begin
write(' ',Fibo(i),' '); inc(d);
end;
Writeln;
Write(' Có ',d,' số Fibonaxi trong phạm vi ',n);
Readln;
End.

----------

Các bạn có thể làm cách 2 :
Var a,b,c,n,i,d: longint;
Begin
Write(' Nhập n = '); Readln(n);
Writeln(' Các hợp số của dãy Fibonaxi là:');
Write(' 1 1 ');
a:=1; b:=1; c:=a+b; d:=2;
While c<= n do
Begin
a:=b; b:=c; c:=a+b;
write(' ',c,' '); inc(d);
end;
Writeln(' Có ',d,' số Fibonaxi trong phạm vi ',n);
Readln;
End.

----------

Có ai hỏi gì nữa ko? Thôi post thêm mánh mới nè!
 
Chỉnh sửa lần cuối:
var f:array[1..1000,1..100] of integer;
f[1]:=1;f[2]:=1;
for i:=1 to n do
f[i+2]:=f+f[i+1];
cách này tao tháynhanh nhất nè cách của minh phải gọi hàm f1 nhiều lần :D cách này mỗi hàn gọi 1 lần
 
uhm`, ao cũng thấy thế. Cảm ơn mày đã hợp tác!
 
Chỉnh sửa lần cuối:
Khởi đầu học ki` II hoàn hảo với Máy Tinh Casio^^
Nếu bạn muốn học Toán tốt hơn thì bạn ko thể không có một máy tính bỏ túi thông minh, cực kì hiện đại với những tính năng vượt trội phong phú, từ các phép tính đơn giản đến các hàm tính cao cấp, vẽ đồ thị, thống kê, hình học, ma trận lập trình và cả chơi games, soạn thảo giáo án điện tử... Có thể nói đây là một công cụ hỗ trợ đắc lực cho các bạn h/s , s/v, giảng viên, các nghiên cứu sinh, kỹ sư... không chỉ giới hạn ở bộn môn Toán mà còn mở rộng sang Lý- Hóa -Sinh...
Mới đây, Casio vừa nâng cấp thành công phiên bản phần mềm hệ điệu hành cho máy lên 3.02 đòng thời cũng cập nhập chương trình lên phiên bản tương ứng. Các bạn có thể tải free tại http://www.echip.com.vn/echiproot/Softwares/2007/ClassPad3.02.rar chỉ với 2,5MB. Để sử dụng hiệu quả bạn nên tải thêm sách hướng dẫn tại http://www.classpad.net
Chúc các bạn thành công!

----------

Bạn nào có ý kiến ri` có thể liên lạc trực tiếp tại trường :
Địa chỉ: Lớp 10 Tin, tầng 2, gặp Tuấn Minh, Thành Đức, Mai Anh hoặc Hải Long để hỏi.
Xin cảm ơn!
 
Chỉnh sửa lần cuối:
Bạn nào có ý kiến ri` có thể liên lạc trực tiếp tại trường :
Địa chỉ: Lớp 10 Tin, tầng 2, gặp Tuấn Minh, Thành Đức, Mai Anh hoặc Hải Long để hỏi.
Xin cảm ơn![/QUOTE]

------------------
này này, tớ có giỏi giang gì đâu mà lôi tên tớ vào
:-??
 
Để chuộc lỗi cùng các bạn:, chúng tôi xin post thêm 1 mánh mới hứa hẹn cực kì thú vị:
Biến Ảnh 2 chiều thành 3 chiều!!
Những hình ảnh 2 chiều có thể biến thành 2 chiều chỉ với 1 thao tác đơn giản, đó chính là chức năng đọc đáo củac chương trình Auto3D. Chương trình có dung lượng chỉ 1,4MB tải miễn phí tại địa chỉ http://www.xpounded.com/RHS2D23D/Auto3D.zip
Để chuyển đổi hình, bạn chọn tập tin hình ảnh rồi nhấn Anaglyphs. Bạn sẽ có 1 tấm hình hơi "tai tái". Đừng vội nản lòng, để chiêm ngưỡng kết quả bạn phải sử dụng 1 loịa kính phân tách màu ở rạp nổi 3D. nấu ko có bạn có thể tự tay chế cho mình 1 cái:D như sau:
Hãy tìm giấy bóng kính, một màu xanh lá cây, một màu đỏ (giống như giấy gói bánh phục linh hay giấy gói trà ý) để làm 2 mắt kính rồi dán vào gọng kính bất kì. Bây h bạn có thể chiêm ngưỡng hình ảnh nổi lên trong ko gian ba chiều rùi đấy!
Hãy thử tự mình khám ohas xem!
Chúc các bạn may mắn!
Xin cảm ơn!
-echippro-
 
Hàm trong pascal là gì vậy các bạn;;)?

----------

Ở đây được post crack với serial ko nhỉ:">?

----------

Ở đây được post crack với serial ko nhỉ:">?

----------

Ở đây được post crack với serial ko nhỉ:">?

----------

Ở đây được post crack với serial ko nhỉ:">?
 
Bạn đã biết đến trang http://download.com.vn . Nếu chưa thf hãy vào ngay để thử các phần mềm hấp dẫn của trang này. Nhìn qua là biết đó là web giao diện Việt tiện lợi cho người Việt:D
trang này có rất nhiều phần mềm như diệt virus, bảo mật, dữ liệu, phần mềm doanh nghiệp, phần mềm giáo dục... cho đến cả những game thuộc loại đỉnh cao như Need for speed, Đế chế 3... được giới thiệu rất chi tiết, có phí hay free...web này luôn cập nhập những phần mềm tốt nhất, mới nhất. Tốc độ download rất nhanh.
Hãy thử xem.!

----------

Hàm là một chương trình con (sau này bạn sẽ được thầy "Chaien" dạy thôi) nhưng bây h mình làm quên trước thì tốt thôi có sao đâu!! :D
 
Chỉnh sửa lần cuối:
Điên thật :))=))=))
Theo bọn mày tao nên post cái gì lên đây :)):)):))
 
Mày cứ post mấy cái mà mày cảm thấy hay, hữu dụng thôi! A`, mánh mới!
Thôi mai post sau, h muộn rồi! Học bài đã!
 
cái này mà bị move sang Box Tin học, thì serial + crack = ;))
 
Lô Tùng Sơn đã viết:
nói thế nài thì chịu, hok bit trả lời thí nào, linh kiện đều tốt cả, quan trọng là mục đik dùng vào viêc gì, phải nói cụ thể ra chứ
Nhấn để mở rộng...
Thì mình đã nói rồi đấy :-?? , dùng làm việc bình thường thôi, ko chơi bời hay là chuyên nghiệp j hết.
Mình hỏi ko phải để mua, cho nên là cứ trả lời thôi, máy tính chất lượng tốt nhất có thể 8->
 
Cho tớ hỏi caí bài số nguyên tố có làm cak nào ngắn và đơn giản hơn nwax ko?
Mà inc(j) là gì vâyj:p
 
Tớ nhớ hồi trước thầy H chữa bài có vẻ ngắn hơn:D
Bạn nào có key KIS bản final mới ra ko nhỉ?:-/
 
Bạn phải đăng nhập hoặc đăng ký để phản hồi tại đây.
Back
Bên trên