Tin học Pascal

Hjx hum nai thầy cho mí bài tập ze nhà, mờ hem nghĩ ra => nhờ mọi người giúp đỡ ^^ Thanks trước :x
Viết chương trình :
1. S= 1/a + 1/(a+1) +....+ 1/(a+100)
2. S= 1+ 1/2! + ....+ 1/10!
3. /sqrt {2+/sqrt{ 2+...+ /sqrt{2}}}
Mong mọi người giúp cho

 

Mấy cái nè bạn dùng các vòng lệnh for là xong !
Bạn có thể add nick mình để mình gửi bài giải !
YM:Aloneboy_1290

 

Chương trình chính các bài : (Các phần khai bào bạn tự khai báo nha)
Bài 1:
Program dsa;
Var i,j,n:integer;a,S:real;
Begin
Writeln('Moi nhap a=');Readln(a);
S:=0;
For i:=0 to 100 do S:=S+1/(a+i);
Writlen('Tong can tinh la',S:5:5);
Readln;
End.
Bài 2:
Program dá;
Var i,j,n,Tich:integer;S:real;
Begin
S:=0;
For i:=1 to 10 do
Begin
Tich:=1;
For j:=1 to i do Tich:=Tich*j;
S:=S+1/Tich;
End;
Writeln('Tong can tinh la :',S:5:5);
Readln;
End.
Bài 3:
Bạn hãy post rõ đề lên !
Chúc vui !

 

.

tui ko bít ghi căn bậc 2 :-S Ai có thể giúp ko??? Dù sao cũng thanks you :x

 

mà nếu như bài 1 , ta ko cho a>2 thì sẽ làm như thế nào nhỉ với a vẫn là số nguyên ???

 

sao ko ai giúp tui hết zầy (

 

Lâu rồi anh hok học nhưng cái này hình như là gán a là số nguyên (hình như là interger) rồi sau đó thêm if a<2 then "thực hiện lệnh"
else "Đưa ra dòng yêu cầu nhập lại"
Mà 1 bài pascal bỏ program đi cho nó nhẹ bài!!!!

 

thankss ^^ mờ bỏ program thầy la ^^!

 

bỏ đi Ctrinhf vẫn hoạt động đều đều!!! lần sau thêm cái có lạc rang sẽ có rượu vào cho màn hình luôn đen nhánh.
Mà thích thì thay cái trong writeln thành cái gì hay hay ví dụ như sau khi nó nhập sai thì bảo là:"Mù ah tau chỉ cho số nguyên nhỏ hơn 2 thôi"Nghe cho nó chất))

 

=.="

 

help

Nhập vào n , tính Trung bình cộng của các chữ số lớn nhất và bé nhất tring các chữ số của n
2. Nhập n tính TBC của ước lẻ và nhỏ hơn n
3. cho a <= 2 tính TBC của chữ số lẻ lớn hơn 0 trong các chữ số của a
4. Nhập n nguyên dương nếu n chẵn tính tổng các ước chẵn của n, n lẻ tính tích ước lẻ

 

Bài 1: (Nếu đề bài là chỉ tìm TBC của 2 chữ số lớn nhất và bé nhất thì bạn bỏ phần trong dấu /* */ đi )
Program dsa;
Uses crt;
Var i,j,n,a,dem1,dem2,Min,Max:integer;
S,S1:String;
Begin
Writeln('Moi ban nhap a=');
Readln(a);
Str(a,S);
{Tim min}
Min:=Maxint;
For i:=1 to length(S) do
Begin
S1:=Copy(S,i,1);
Val(S,t,c);
If t<Min then Min:=t;
End;
{Tim max}
Max:=0;
For i:=1 to length(S) do
Begin
S1:=Copy(S,i,1);
Val(S,t,c);
If t>Max then Max:=t;
End;
/*For i:=1 to lengt(S) do
Begin
S1:=Copy(S,i,1);
Val(S,t,c);
If t=Min then inc(dem1);
If t=Max then inc(dem2);
End;
TBC:=(dem1*Min+dem2*Max)/(dem1+dem2));
Writeln('TBC bằng ',TBC:5:5);*/
Writeln('TBC của chữ số lớn nhất và bé nhất là :',(Min+Max)/2:5:5);
Readln;
End.
Bài 2:
Program dsa;
Uses crt;
Var i,j,n,a,dem,Tong:integer;
S,S1:String;
Begin
Writeln('Moi ban nhap n=');
Readln(n);
For i:=1 to n do
If (n mod i=0) and (i mod 2=1) then
Begin
dem=dem+1;
Tong:Tong+i;
End;
Writeln('TBC các ước lẻ là :',Tong/dem:5:5);
Readln;
End.
Bài 3 đề là a<=2 hay a>=2?
Bài 4:
Program dsa;
Uses crt;
Var i,j,n,Tong:integer;
Begin
Writeln('Moi ban nhap n=');
Readln(n);
For i:=1 to n do
If (n mod 2=i mod 2) and (n mod i=0) then
Tong:=Tong+i;
Writeln('Tổng cần tính là :',Tong);
Readln;
End.

 

thanks .. Bài 3 hơi nhầm sr
Đề là : Cho a thuộc Z+

 

Bài 3:
Program dsâd;
Uses crt;
Var i,j,n,b,a,c:integer;
S1,S:String;
Begin
Writeln('Moi nhap so a=');
Str(a,S);
For i:=1 to length(S) do
Begin
S1:=Copy(S,i,1);
Val(S1,b,c);
If b mod 2=1 then
Begin
Tong:=Tong+b;
dem:=dem+1;
End;
End;
Writeln('TBC là :',Tong/dem:5:5);
Readln;
End.

 

seo em giải # anh nhìu lém để ít bữa xem thử thầy em chấm sao
Thanks anh nhá