Chuyển tới nội dung


Các bài tập Pascal cơ bản


#21 Guest_tuthangirl_*

  • Guests

Đăng 04 December 2008 - 07:44 PM

xin lỗi anh chị em nhâm,
j:=0 va` i:=0

#22 Guest_tuthangirl_*

  • Guests

Đăng 06 December 2008 - 09:03 AM

sao không ai ngó ngàng gì đến chủ đề này thế,chủ đề này hay mà,có nhiều người ghé thăm kinh khủng, B)

#23 PowerIT

    POWER

  • Ban Quản Trị
  • PipPipPip
  • 1,855 Bài viết:

Đăng 06 December 2008 - 09:49 PM

 tuthangirl, on Dec 4 2008, 08:25 AM, said:

em có bài này nhờ anh chị chỉ giáo dùm cho
nhân 2 đa thức(e đang học bản ghi)
cô em cho công thức thế này
for i:=1 to p1.bac do
for j:=i+1 to p2.bac do
p.a[i+j]:=p.a[i+j]+p1.a[i]+p2.a[j];(p1 là biểu thức 1,p2 là biểu thức 2,p là biểu thức kết quả)
em hok hiểu công thức này lắm,nhưng mà khi bạn em chạy thử chương trình máy cho kết quả đúng,anh chị có thể giải thik cho em hok,giúp em với em cảm ơn nhìu lắm
Mảng A ghi cái gì vậy bạn !! viết thì chép cả bài ra chứ , viết cộc lộc như vậy khố hiểu quá

#24 Guest_tuthangirl_*

  • Guests

Đăng 07 December 2008 - 08:30 PM

xin lỗi ạ,e lười quá em xin viết lại :)

#25 Guest_tuthangirl_*

  • Guests

Đăng 07 December 2008 - 08:39 PM

bài làm là nhân 2 đa thưc p1 và p2
em đang học bản ghi ạ
type dathuc=record
   bac:byte;
   a:array [0..100]of integer;
              end;
var  p1,p2,p:dathuc;
     {p la da thuc ket qua}
begin
   {doan nay nhap e luoi nen hok viet}
   {day la doan chuong trinh chinh}
    p.bac:=p1.bac*p2.bac;
for i:=0 to p1.bac do
  for j:=0 to p2.bac do
   p[i+j]:=p[i+j] +p1[i]+p2[j];
[trên là công thức em cần hỏi}
writeln(p.a[o]);
for i:=1 to p.bac do
writeln(p.a[i],'x^',i);
readln;
end.


#26 Guest_tuthangirl_*

  • Guests

Đăng 08 December 2008 - 05:15 PM

xin lỗi mọi người em làm sai rùi
đã làm mọi người mất công
xin lỗi
vậy tiện thể nhờ mọi người giải dùm bài lun
nhân 2 đa thức p1,p2


#27 tuyet_lan

    Newbie

  • Thành Viên
  • Pip
  • 1 Bài viết:

Đăng 30 December 2008 - 12:41 PM

mấy anh ơi giúp em với có mấy bài pascal em làm hok được
bài 1: nhập vào số nguyên dương chẵn n<=10.tính và in ra màn hình giá trị s (lấy 2 số thập phân)
s=(2!+4!+6!+...+n!)/(1+3+5+...+(n-1))
bài 2: tính vài in giá trị s (lấy 2 số thập phân)
nhập vào 1 số n nguyên dương lẻ n<=9

s=1!/(2^1) + 2!/(2^2) + 3!/(2^3) +...+ n!/(2^n) {2^1 là 2 mũ 1 đó các anh}{2^n là 2 mũ n}

{1! / (2^1) là 1 giai thừa chia cho 2^1}

#28 Guest_nvtrung2008_*

  • Guests

Đăng 30 December 2008 - 05:09 PM

 tuyet_lan, on Dec 30 2008, 12:41 PM, said:

mấy anh ơi giúp em với có mấy bài pascal em làm hok được
bài 1: nhập vào số nguyên dương chẵn n<=10.tính và in ra màn hình giá trị s (lấy 2 số thập phân)
s=(2!+4!+6!+...+n!)/(1+3+5+...+(n-1))
bài 2: tính vài in giá trị s (lấy 2 số thập phân)
nhập vào 1 số n nguyên dương lẻ n<=9

s=1!/(2^1) + 2!/(2^2) + 3!/(2^3) +...+ n!/(2^n) {2^1 là 2 mũ 1 đó các anh}{2^n là 2 mũ n}

{1! / (2^1) là 1 giai thừa chia cho 2^1}

Bài 1:
Giải thuật:

For i:= 1 to n do
	begin
		if  (i mod 2 = 0)   then  Tu  :=  Tu  + GiaiThua(i);
		else	Mau :=  Mau +   i;
	end;
	
if   (Mau <> 0)  then
begin
	S:= Tu/Mau;
	Writeln(S:4:2);

{Hàm GiaiThua(n:integer) em tự viết, dễ như ăn bánh}
{Các biến giả sử đã khai báo đầy đủ}
end;

Bài 2:
Trước mắt là viết 2 hàm GiaiThua(n), và Mu(n,x), trong đó hàm GiaiThua đã có ở trên, hàm Mu(n,x) có nghĩa là tính x^n (vd: Mu(n,2) là 2 mũ n)

Sau đó cho vòng For chạy thôi

For i:=1 to n do
begin
	S:= S+ GiaiThua(i) / Mu(i,2);
end;

{Các biến giả sử đã khai báo đầy đủ}



-------------- gợi ý cho em làm, chứ mà anh code thì em sẽ không tiếp thu được gì nhiều đâu, cứ làm theo hướng dẫn, sai đâu post lên để anh sửa giúp.

Chào thân ái !

#29 Thinh2906

    Newbie

  • Thành Viên
  • Pip
  • 1 Bài viết:

Đăng 08 February 2009 - 09:04 AM

ai dạy em môn pascal với :P :P :P

#30 Guest_Admin.tinhkhuchay_*

  • Guests

Đăng 16 June 2009 - 09:19 AM

ai giúp em giải bài toán này với, em pó tay hok biết giải hơi n0ob mà ;)
Tính giá trị biểu thức :

1-x2/2!+x4/4!-x6/6!...

#31 Guest_nvtrung2008_*

  • Guests

Đăng 16 June 2009 - 11:53 AM

Trước mắt là viết 2 hàm GiaiThua(n), và Mu(n,x), trong đó hàm GiaiThua đã có ở trên, hàm Mu(n,x) có nghĩa là tính x^n (vd: Mu(n,2) là 2 mũ n)

mà cái đề này có giới hạn là n hả em ???

1-x^2/2!+x^4/4!-x^6/6!...

sau đó làm như sau: (giải thuật thôi nhá)

S:=1;
dau:=-1;
for i:=2 to n do
begin
	if (i mod 2 == 0)
	begin	
		S:= dau * (Mu(x,i) / (GiaiThua(i));
		dau = -dau;
	end;
end


#32 Guest_Platinum_*

  • Guests

Đăng 17 July 2009 - 08:30 AM

 tuthangirl, on 07 December 2008 - 08:39 PM, said:

bài làm là nhân 2 đa thưc p1 và p2
em đang học bản ghi ạ
type dathuc=record
   bac:byte;
   a:array [0..100]of integer;
              end;
var  p1,p2,p:dathuc;
     {p la da thuc ket qua}
begin
   {doan nay nhap e luoi nen hok viet}
   {day la doan chuong trinh chinh}
    p.bac:=p1.bac*p2.bac;
for i:=0 to p1.bac do
  for j:=0 to p2.bac do
   p[i+j]:=p[i+j] +p1[i]+p2[j];
[trên là công thức em cần hỏi}
writeln(p.a[o]);
for i:=1 to p.bac do
writeln(p.a[i],'x^',i);
readln;
end.

Hình như bạn đã làm bài này rồi nhưng không biết post code của mình lên diễn đàn mà toàn phải tự gõ lại thì phải. Nếu bạn đã có code dưới dạng file.pas thì bạn hãy mởi nó bằng notepad rồi copy toàn bộ code rồi post lên đây.

#33 VANHAOBACNINH

    Newbie

  • Thành Viên
  • Pip
  • 2 Bài viết:

Đăng 16 September 2009 - 07:46 PM

ANH CHI OI LAM JUP EM BAI NAY VOI:
VIET CHUONG TRINH NHAP VAO MOT XAU KI TU N BIT BIEU DIEN SO NGUYEN CO DAU.TINH VA DUA RA MAN HINH GIA TRI CUA SO NGUYEN DO.

#34 VANHAOBACNINH

    Newbie

  • Thành Viên
  • Pip
  • 2 Bài viết:

Đăng 16 September 2009 - 07:49 PM

WEEHGGH

#35 ke_lu_hanh

    Newbie

  • Thành Viên
  • Pip
  • 6 Bài viết:

Đăng 30 November 2009 - 06:43 PM

 nvtrung2008, on 07 November 2008 - 05:35 PM, said:

Có 4-5 cuốn giáo trình Pascal cho các bạn tham khảo đây (cả Bài tập và lý thuyết), ngoài ra trên mạng Internet còn nhiều, nhưng đây là giáo trình do các thầy soạn nên dễ đọc và dễ hiểu,

http://www.mediafire.com/?t4zpmnfb9m1

chúc vui

không hiểu bị sao mà có 2 file bị lỗi font la
"Cac_thuat_toan_co_ban_ve_xu_ly_mang_trong_Pascal_1457_31176850.doc"
&
"H.H.Hanh - Giao trinh Pascal nang cao.doc"
mở lên thì thấy đại loại như: "S¬ l­îc vÒ c¸c chñ ®Ò..."???
anh có biết chỉ dùm cái.

#36 zx cvb abcd

    Newbie

  • Thành Viên
  • Pip
  • 1 Bài viết:

Đăng 15 December 2009 - 11:22 AM

may anh chi co biet viet ham nhan hai so ko ma:
c=a*b voi a,b kieu longint ma c ko can su dung kieu real

#37 xinh xinh

    Newbie

  • Thành Viên
  • Pip
  • 3 Bài viết:

Đăng 15 May 2010 - 08:15 PM

cảm ơn anh chị rất nhiều !

____________

Có rất nhiều dap an de thi tot nghiep, dap an de thi dai hoc 2010, tại dap an de thi dai hoc , dap an de thi tot nghiep thpt bạn hãy lượm thật nhiều dap an de thi dh 2010 cho mình nhé !

#38 luylau

    Newbie

  • Thành Viên
  • Pip
  • 1 Bài viết:

Đăng 13 October 2010 - 09:44 PM

Mong các bạn giúp tôi xây dựng mô hình giải bằng Pascal bài toán sau

Tính tổng không nhớ liên tục (Từ trái sang) 1 dãy số có 9 số bất kỳ kết thúc bằng 1 số:
Ví dụ:
1 2 3 4 5 6 7 8 9
8 9 0 1 2 3 4 7
9 0 1 2 3 4 1
4 5 6 7 8 5
7 8 9 0 3
0 1 2 3
5 6 5
6 1
7
8+9=17 lấy 7 cộng với các số còn lại (7,6….1) ta được (4,3,2,1,0,9,8)
Tương tự: 7+4=11 lấy 1cộng với các số còn lại (3,2,1,0,9,8) ta được (4,3,2,1,0,9)
…………………………………………………………………………………..
6+1=7
Kết quả=7
Cảm ơn !





1 thành viên đang đọc chủ đề này

0 thành viên 1 khách 0 thành viên vô danh