các anh ơi giúp em tin 11với sắp kiểm tra rùi 2 hôm nữa kiểm tra ruj`

[songohan2009]

toàn gặp chuyên gia đào mồ, dùng c# có hay hơn không ?

Chả hiểu sao mà có những bạn chưa dùng Pascal bao h mà toàn đi chê Pascal í nhỉ. : ))

Pascal là ngôn ngữ cơ sở nhất, dùng nó bạn có thể nắm được các thuật toán cơ bản và hiểu được máy sẽ thực hiện công việc như thế nào. Đơn giản trong C++, bạn có thể sử dụng thư việc của nó để làm QuickSort, BinarySearch, Heap,... mà bạn ko biết hết nó có ưu/nhược điểm j`, hoạt động tường tận ra sao thì bạn cũng chỉ mãi là ng` code theo n~ j` ng` khác nói chứ ko bao h trở thành ng` nghĩ ra thuật toán đc cả. : )) Chưa kể khi đó liệu bạn có code đúng yêu cầu nữa hay ko!? )

Dĩ nhiên học C++ mà hiểu ngọn ngành những cái kia thì chả khác j` học Pascal, nhưng mà chê Pascal này nọ thì mình đúng là bó tay.

Còn nói về sao ko dùng C# thì mình cũng muốn hỏi bạn sao ko dùng Java đi nhỉ? : ))

[nhokdragon94]

toàn gặp chuyên gia đào mồ, dùng c# có hay hơn không ?

Bồ ngon rùi đếy tui bíc bồ giỏi rùi tui còn gà nên mới học pascal thui
Còn bồ Học C# thì wa đêy làm j` biền mẹ đi chỗ khác đi (ĐM)

[songohan2009]

Bồ ngon rùi đếy tui bíc bồ giỏi rùi tui còn gà nên mới học pascal thui
Còn bồ Học C# thì wa đêy làm j` biền mẹ đi chỗ khác đi (ĐM)

Bạn ko nên nói nặng thế này. : )) Mà ai bảo gà mới đi học Pascal nhỉ??? Các bạn học chuyên (như mình) bh vẫn học Pascal đây này, gà hay ko thì chỉ liên quan tới việc có hiểu đc thuật toán và ứng dụng hay ko thôi, ko liên quan đến ngôn ngữ lập trình. : ))

[nhokdragon94]

Ai bảo nó nói trước chi mình nóng nên mới chưi lại thui

[phucduongd2t]

nhờ mọi người xem lại bài 2 dùm em

[phucduongd2t]

Bài 1: Tính R=3/(1+2) + 4/(2+3) + 5/(3+4) +....+ 1002/(1000+1001)
Bài 2: Tính L=1/1! + 1+ 2/2! + 2+ 3/3! +....+ (m-1)+ m/m! +... cho đến khi m/m! < 0.000002
Bài 3: Nhập M, N(ng dương). Kiểm tra đó có fai la 2 số ng tố cùng nhau hay ko (UCLN=1).

[BIGBANGBOM]

For i:=3 to 1002 do
for j:=1 to 1000 do
for k:=2 to 1001 do
begin
t:=i/(j+k);
t:=t+t;
end;
write('ket qua la',t);
.....

[phucduongd2t]

còn mấy bài kahcs nữa ah

[nhokdragon94]

Bài 1: không cần dùng 3 vòng lặp for đâu:

for i:=3 to 2002 do
S:=S+i/(i-2+i-1);
writeln(S:5:1);

Bài 3:
Bài này dùng thuật toán timg UCLN:
while a<>b do
If a>b then a:=a-b
else b:=b-a;
Khi đó UCLN là a( hoặc b);
ĐƯa thêm dòng lệnh vào nữa: If a=1 then writeln('ngto cung nhau')
else write('khong ngto cung nhau');

Bài 2: Dùng chtrinh con chéc làm đc nhưng pác chưa học chtrinh con

[phucduongd2t]

Var i,t:Integer;
S:Real;
Begin
For i:=1 to 1000 do
Begin
t:=i+(i+1);
S:=S+(i+2)/t;
End;
Writeln(S:2:2);
Readln;
End.

[=========> Bổ sung bài viết <=========]

mình làm như trên đúng chưa bạn

[=========> Bổ sung bài viết <=========]

nhokdragon94 cứ làm bài 2 di xem sao