Bài toán gì đây? Các bạn giúp tôi cái.

Bài toán gì đây? Các bạn giúp tôi cái.


Xin cảm ơn!

chú này là pascal nhỉ?
hic, bây giờ thì chịu quên hết rùi...
hỏi bạn học cùng lớp có khi nhanh hơn đấy!

Sao bác lại hỏi là bài toán gì đây? ý bác là giải bài toán đó như thế nào chứ gì? Hỏi bài toán gì đây chỉ khi nó là bài toán nổi tiếng và được gán cho một cái tên đặc trưng của nó chứ nhỉ. Ví dụ là Bài toán Tháp Hà Nội chẳng hạn. Nhưng em nhìn cái bài toán này không có vẻ là một bài toán có tên tuổi thì phải.

Chẳng hiểu bác muốn gì nữa

Đây gọi là bài tập Pascal
Tiện tay type luôn chương trình (lưu ý là tớ chưa test)

Function cosx(x:real):real;
Function giaithua(n:integer):longint;
Var i:integer;
Begin
giaithua:=1;
If n >0 then
For i:=1 to n do giaithua:=giaithua*i;
End;
Var s,t:real; i:integer;
Begin
s:=0; i:=0
Repeat
If i mod 2 = 0 then t:= exp(2*i*ln(x))/giaithua(2*i);
Else t:= - exp(2*i*ln(x))/giaithua(2*i);
i:=i+1;
s:=s+t;
Until (abs(t) < 0.005) or i > 500;
cosx :=s;
End;
Var i:integer; s:real; a:array[1..99] of real;
Begin
For i:=1 to 99 do readln(a);
s:=cosx(a[28]);
For i:=1 to 99 do
If i mod 2 = 0 then s:=s+cosx(a)/giaithua(5+i);
Else s:=s-cosx(a)/giaithua(5+i);
Writeln(s);
Readln;
End.

Được anhtuannd sửa chữa / chuyển vào 19:03 ngày 04/05/2006

Vâng, bài đó giải thế nào? full.
Voted!

Bài giải viết bằng Pascal tớ đã post ở bên trên rồi, còn cái sơ đồ khối (flowchart) tớ ko có soft nên không vẽ được.
Công nhận năm I ở BK dạy Pascal kĩ thật

Error!
Helpppp

Chán vãi, người ta đã chỉ cho từng li từng tí rùi mà còn. Có gì còn sai sót thì bác phải tự tìm hiểu lấy chứ???Đến đây rồi mà bác còn hỏi thì không biết khi thi có qua nổi không?