pascal mau vào giúp em với em sắp kiểm tra rồi

Điều hành viên: big_wings

pascal mau vào giúp em với em sắp kiểm tra rồi

Bài viết chưa xemgửi bởi nguyen thuy dung » Chủ nhật Tháng 1 27, 2008 5:58 am

đề bài:
dãy F là dãy Phi-bô-na-xi nếu
F(0)=0, F(1)= 1,F(N)= F(N-1)+F(N-2) với N>=2
viết chương trình nhập từ bàn phím số nguyên dương N và đưa ra màn hình số hạng thứ N của dãy Phi-bô-na-xi.Chương trình của bạn thực hiện được với giá trị lớn nhất của N là bao nhiêu?
EM đang học lớp 11 nên chưa hiểu về Pascal lắm nên mong các anh chị giải đáp tận tình chi tiết giùm longlanh
Vẫn thấy trên bầu trời
Có muôn vàn sao sáng
Mà ở trong lòng tôi
Như một hành lang vắng
Hình đại diện của thành viên
nguyen thuy dung
Thành viên nhiệt tình
Thành viên nhiệt tình
 
Bài viết: 672
Ngày tham gia: Thứ 7 Tháng 1 26, 2008 4:24 pm

Re: pascal mau vào giúp em với em sắp kiểm tra rồi

Bài viết chưa xemgửi bởi Sarah » Chủ nhật Tháng 1 27, 2008 6:16 am

program fibonaci;
uses crt;
var i,n,sofi,so1,so2:byte;
BEGIN
clrscr;
write('nhap so n:');readln(n);
so1:=1;
sofi:=0;
for i:=1 to n do
Begin
so2:=so1;
so1:=sofi;
sofi:=so1+so2;
write(sofi:3);
End;
readln;
END.

Bài này ko đúng ko lấy tiền! ^_^ cooli cooli
Hôm qua là quá khứ
Ngày mai là tương lai
Chỉ có hôm nay là hiện tại - là món quà mà cuộc sống ban tặng ^_^


Để dành $ mua SmartPhone =))
Hình đại diện của thành viên
Sarah
^_^ Keeping Moving Forwarding ^_^
^_^ Keeping Moving Forwarding ^_^
 
Bài viết: 745
Ngày tham gia: Thứ 3 Tháng 4 03, 2007 3:58 pm
Đến từ: Bến Tre

Re: pascal mau vào giúp em với em sắp kiểm tra rồi

Bài viết chưa xemgửi bởi Mr.Kid » Chủ nhật Tháng 1 27, 2008 9:05 am

Đưa ra màn hình số thứ N mà bà leoleo
đưa cái write(sofi:3); ra ngoài vòng lập chứ leoleo
Với lại uses + clrscr; hok cần thiết :D

Còn câu "Chương trình của bạn thực hiện được với giá trị lớn nhất của N là bao nhiêu?" thì em nghĩ thế này
Dùng vòng lập để gán số của max của extended jì đó (hok nhớ rõ lắm) vào biến a rồi đưa nó vào vòng lặp kiểm tra (dùng lệnh IF) nếu quá số a đó thì vòng lập dừng và chắc chắn phải nhờ 1 biến dem để đếm số n cần tìm :D
_[S]now_[D]evil_-_[D]evil_[M]ay_[C]ry_
[L]ạnh [L]ùng - [Đ]ơn [Đ]ộc - [D]uy [N]hất
Hình đại diện của thành viên
Mr.Kid
Yêu dại khờ
Yêu dại khờ
 
Bài viết: 475
Ngày tham gia: Thứ 5 Tháng 6 21, 2007 12:36 pm

Re: pascal mau vào giúp em với em sắp kiểm tra rồi

Bài viết chưa xemgửi bởi Sarah » Chủ nhật Tháng 1 27, 2008 1:18 pm

ê cái này là chương trình tui viết, nên việc dùng unit CRT là rất cần thiết trong trình bài!
Còn phần viết số thứ n thì tui chấp nhận là tui nhầm! (nên tui đâu có lấy tiền đâu!) ^_^
Hôm qua là quá khứ
Ngày mai là tương lai
Chỉ có hôm nay là hiện tại - là món quà mà cuộc sống ban tặng ^_^


Để dành $ mua SmartPhone =))
Hình đại diện của thành viên
Sarah
^_^ Keeping Moving Forwarding ^_^
^_^ Keeping Moving Forwarding ^_^
 
Bài viết: 745
Ngày tham gia: Thứ 3 Tháng 4 03, 2007 3:58 pm
Đến từ: Bến Tre

Re: pascal mau vào giúp em với em sắp kiểm tra rồi

Bài viết chưa xemgửi bởi nguyen thuy dung » Chủ nhật Tháng 1 27, 2008 2:50 pm

trời ơi ai giải chính xác giùm em với
em phải nộp bài này đấy
giúp em trước thứ 3 nhé
ohyeah oaoa
Vẫn thấy trên bầu trời
Có muôn vàn sao sáng
Mà ở trong lòng tôi
Như một hành lang vắng
Hình đại diện của thành viên
nguyen thuy dung
Thành viên nhiệt tình
Thành viên nhiệt tình
 
Bài viết: 672
Ngày tham gia: Thứ 7 Tháng 1 26, 2008 4:24 pm

Re: pascal mau vào giúp em với em sắp kiểm tra rồi

Bài viết chưa xemgửi bởi Sarah » Thứ 2 Tháng 1 28, 2008 3:10 am

Thì bạn chỉ cần đem dòng write(sofi:3) ra ngoài dòng for là được chứ gì!

program fibonaci;
uses crt;
var i,n,sofi,so1,so2:byte;
BEGIN
clrscr;
write('nhap so n:');readln(n);
so1:=1;
sofi:=0;
for i:=1 to n do
Begin
so2:=so1;
so1:=sofi;
sofi:=so1+so2;
End;
write(sofi:3);
readln;
END.
Hôm qua là quá khứ
Ngày mai là tương lai
Chỉ có hôm nay là hiện tại - là món quà mà cuộc sống ban tặng ^_^


Để dành $ mua SmartPhone =))
Hình đại diện của thành viên
Sarah
^_^ Keeping Moving Forwarding ^_^
^_^ Keeping Moving Forwarding ^_^
 
Bài viết: 745
Ngày tham gia: Thứ 3 Tháng 4 03, 2007 3:58 pm
Đến từ: Bến Tre

Re: pascal mau vào giúp em với em sắp kiểm tra rồi

Bài viết chưa xemgửi bởi nguyen thuy dung » Thứ 2 Tháng 1 28, 2008 3:38 am

ơ còn chỗ
nguyen thuy dung đã viết:Chương trình của bạn thực hiện được với giá trị lớn nhất của N là bao nhiêu?

hic làm nốt cho em cái
ohyeah
Vẫn thấy trên bầu trời
Có muôn vàn sao sáng
Mà ở trong lòng tôi
Như một hành lang vắng
Hình đại diện của thành viên
nguyen thuy dung
Thành viên nhiệt tình
Thành viên nhiệt tình
 
Bài viết: 672
Ngày tham gia: Thứ 7 Tháng 1 26, 2008 4:24 pm

Re: pascal mau vào giúp em với em sắp kiểm tra rồi

Bài viết chưa xemgửi bởi nguyen thuy dung » Thứ 2 Tháng 1 28, 2008 12:47 pm

ai giỏi pascal vào làm giúp em đi oaoa :anva
Vẫn thấy trên bầu trời
Có muôn vàn sao sáng
Mà ở trong lòng tôi
Như một hành lang vắng
Hình đại diện của thành viên
nguyen thuy dung
Thành viên nhiệt tình
Thành viên nhiệt tình
 
Bài viết: 672
Ngày tham gia: Thứ 7 Tháng 1 26, 2008 4:24 pm


Quay về Học các môn khác

Ai đang trực tuyến?

Đang xem chuyên mục này: Không có thành viên nào đang trực tuyến2 khách

cron