Tin học Lập trình Pascal !

[naiden]

b/1:
1.[FONT=&quot] V[/FONT]iết chương trình tính tổng S = 1 - [TEX]\frac{x^2}{2!} + \frac{x^4}{4!} - \frac{x^6}{6!} + ... [/TEX] quá trình dừng khi [tex]\left| \frac{{x}^{2n}}{\left(2n \right)!} \right| [/tex] < E với E là một số thực nhỏ hơn 0.001 được nhập vào từ bàn phím.
2. Viết chương trình phân tích một số đc nhập vào ra thừa số nguyên tố (ko sử dụng chương trình con)

Xin các bạn giải giùm.thanks. MÌnh đang cần gấp, mai kt

chỉ dùng các vòng lặp, if,thôi

 

[naiden]

x mũ 2n đó . Chứ ko phải x . 2n đâu . 2n lớn quá đấy

 

[naiden]

Xin lỗi các bạn. Mình ghi đề sai, đã sửa rồi đấy. XIn các bạn giúp

 

[mua_lanh_0000]

1. Viết chương trình tính tổng S = 1 - quá trình dừng khi < E với E là một số thực nhỏ hơn 0.001 được nhập vào từ bàn phím.
2. Viết chương trình phân tích một số đc nhập vào ra thừa số nguyên tố (ko sử dụng chương trình con)

Xin các bạn giải giùm.thanks. MÌnh đang cần gấp, mai kt

chỉ dùng các vòng lặp, if,thôi

--------------------------------------------------------------------------------

mình rất sẵn lòng giúp bạn nhưng minbhf ko hiểu : thứ 1 : ko sd phương trình con là sao?? và chỉ sử dụng vòng lặp if là sao?? đề cho vậy ah? bạn đã học đến lệnh for....to........do rồi chứ?

 

[naiden]

à, câu 2 mình suy nghĩ ra rồi. Còn câu 1 thôi

Dùng các vòng lặp for , while ,repeat

 

[mua_lanh_0000]

úi vậy kt chưa bạn?? hôm nay mình mới lên mạng dc ;((
Bài này thì chỉ cần phần thân là dc đúng ko chứ mình ngại đánh máy lắm (
S:= 1
for i:= 0 to 2n-2 do
S:= S + S*((-1)*x*x)/i*(i+1)*(i+2)
Thế là OK rùi nhưng bài 2 mình lại ko nghĩ ra ( bạn pots lên giúp mình với thank trc nhé

 

[langigo]

Cho em hỏi bài này với ạ:
Đề: Hùng đưa ra 1 cách tính phép "nhân" kiểu "mới" với 2 số A và B
Vd: 123*45=1*4+1*5+2*4+2*5+3*4+3*5=54
Tổng quát: abc*xyz=a*x+a*y+a*z+b*x+b*y+b*z+c*x+c*y+c*z
Dùng Pascal để lập trình phép tính nhân theo cách trên với 2 số A và B (A và B =< 10^9)

 

[mua_lanh_0000]

sr bạn nhé đến hôm nay với vô box Tin nhưng với 2 số A và B tức là A*B hả ????

 

[ngtung2]

Bạn ơi, làm hộ mình câu này nhé:
Viết chương trình bằng ngôn ngữ Pascal giải quyết bài toán sau:
Nhập từ bàn phím 1 dãy số (Không dùng mảng) cho đến khi gặp số 0. Tính tổng và trung bình cộng của dãy số. Đếm các số lẻ và chia hết cho 3. Đếm các số dương và tính tổng của chúng. Đưa kết quả ra màn hình.

 

[mua_lanh_0000]

uhm thế nào là cho đến khi gặp số 0?? là khi gặp số 9 thì dừng ah?? vậy số 0 ở cuối hay ở bất kỳ ??
Nên bỏ qua câu a thì câu # gợi ý nhé :
b) tình tồng và TBC:
S:= 0
For i:=0 to n do S:= ( S + i)/2;
c) S:=0
For i:=0 to n do if i mod 3= 0 then s:= s+1 ;
d) S:=0
For i:=0 to n do if i>0 then begin s:= S+1 ;
T:= T+i;
end,

 

[marik]

uhm thế nào là cho đến khi gặp số 0?? là khi gặp số 9 thì dừng ah?? vậy số 0 ở cuối hay ở bất kỳ ??

Có nghĩ là khi số nhập vào là số 0 thì ngừng nhập đó em. Nhưng mà không tính số 0 vào dãy ^^

 

[mua_lanh_0000]

Có nghĩ là khi số nhập vào là số 0 thì ngừng nhập đó em. Nhưng mà không tính số 0 vào dãy ^^

hem hiểu ( việc nhập dãy số là của ng mà ??? khi gặp số O thì ng nhập sẽ ko nhập nữa thì do ng hiểu chứ??

 

[marik]

hem hiểu ( việc nhập dãy số là của ng mà ??? khi gặp số O thì ng nhập sẽ ko nhập nữa thì do ng hiểu chứ??

Nó là như thế này này

i:=0;
repeat
n:=i;
inc(i);
readln(a[i]);
until a[i]=0;

Khi đó ta sẽ có dãy gồm n phần tử

 

[mua_lanh_0000]

uhm thank anh nhưng em chưa học lệnh repeat anh có thể nói qua chút dc ko ạ dù chưa học nhưng em muốn ngẫm nghĩ thử xem sao

 

[thanks_to_you]

Repeat
{Công_việc};
Until {Biểu_thức};
Tức là lặp lại {Công_việc} cho đến khi thoả mãn {Biểu_thức}.
Nó giống vs Do...Until trong AutoIT hay Do {} while (); trong php,...

 

[mattroitinhyeu_142]

Đây là blog của tớ có vài trò về tên thợ xây này lắm ví dụ như tắt đèn ; hứng trứng và luồn lách nhớ vào nhe tớ dẫn tới trang web luôn đó : ( http://vn.myblog.yahoo.com/mattroitinhyeu_142/index?l=f&id=12 ) vui lắm đó

 

[sutuchjen]

làm hộ mình bài này với.
tính tổng: S= 1/a + 1/((a*(a+1))+...+ 1/((a*(a+1)...(a+n))
hem bít gõ ct nên phải viết thế. thông cảm nha

 

[mua_lanh_0000]

huhu chả biết ai giúp mình ko nhưng vừa rùi bị cô la là trên lớp học hành thế mà thực hành thì..... đen quá (

làm hộ mình bài này với.
tính tổng: S= 1/a + 1/((a*(a+1))+...+ 1/((a*(a+1)...(a+n))
hem bít gõ ct nên phải viết thế. thông cảm nha

begin
clrscr;
write('nhap a');
readln(a);
write('nhapn');
readln(n);
S:=1/a;
for i:=1 to n do
S:=s+ S/(a+i);
writeln('kq' S);
readln;
end.

 

[pham_khuyen]

Lập trình giải phương trình trùng phương ax^4+bx^2 +c =0;
Suy nghĩ hai đêm liền mà ko ra, làm thử nhưng chạy ko đúng , có bạn nào giải dc giúp mình với !!!!

 

[marik]

huhu chả biết ai giúp mình ko nhưng vừa rùi bị cô la là trên lớp học hành thế mà thực hành thì..... đen quá (

begin
clrscr;
write('nhap a');
readln(a);
write('nhapn');
readln(n);
S:=0;
for i:=0 to n do
S:= S+ 1/((a*(a+1)...(a+n));
writeln('kq' S);
readln;
end.

Sai rồi em ~.~

begin
clrscr;
write('nhap a');
readln(a);
write('nhapn');
readln(n);
S:=0;
for i:=0 to n do
S:= S+ 1/(a +i);
writeln('kq', S);
readln;
end.

Lập trình giải phương trình trùng phương ax^4+bx^2 +c =0;
Suy nghĩ hai đêm liền mà ko ra, làm thử nhưng chạy ko đúng , có bạn nào giải dc giúp mình với !!!!

Hoặc là tìm lại mấy trang trước có 1 bài trùng phương, hoặc là em post bài sai của em lên đây anh sửa cho. OK?