Ai giỏi pascal giúp tớ giải mấy bài này với

[aikiutuido_cobanmatchotuiday]

1. In dãy Fibonaci


2. In ra số nguyên tố từ 1-n


3. Tìm ước số chung, hay bội số chung lớn nhất của 2 số


4. Tối giản phân số


5. Tính S=1+x+x2/2!+x3/3!+…+xn/n!


6. Tìm 3 số nguyên dương thỏa mãn a2+b2+c2=abc


7. Tìm số m lớn nhất thỏa mãn m3+m2+m+1<1999



Làm từng bài cho dễ hiểu cái nha tất cả người


Tks trc

 

[huyen14_10]

Er her, không ai biết giải mấy bài này hả trời, tớ mới hc nên nhờ giải giúp mà

 

[mr_Ro]

bạn hỏi những vấn đề này tức là bạn chưa hiểu giải thuật phải ko. Bạn cần code hay cần chỉ dẫn giúp đỡ về giải thuật?

 

[hoangdong14_01]

Tớ cần bài giải á, mới hc nên chưa biết pascal cho lắm. Bạn biết thì giúp tớ cái nha

 

[Drugi]

Nói thật, mấy bài này chỉ là cơ bản thôi, ai hoc về lập trình cũng từng làm qua, bạn chỉ cần hiểu cơ bản về pascal, vòng lặp là làm được, còn nếu bạn không làm được chỗ nào thì có thể post lên tất cả người giúp chứ cái kiểu đưa đề bài rồi xin code thì chả ai giúp đâu.

 

[batuan1977]

{In ra dãy số nguyên từ 1 đến n với n<=(2^31)-1}
Program Print;


Ues crt;


Var


i,n:longint;


Begin


Clrsc;


Writeln('Nhap so nguyen n');Readln(n);


Writeln('Cac so nguyen tu 1 den ',n,' la:');


For i:=1 to n do write(i,' ');


Readln;


End.



Còn mấy bài nữa thì để sau.

 

[meoconrangsun_123]

Ừ, tks tất cả người nha, nói thật là tớ chỉ hiểu sơ sơ thôi chứ chưa biết lắm mà bài này lại sắp phải nạp nên ?. Thông cảm tí nha, mới hc được 3 tuần mà. Thế giúp tớ tìm mấy cuốn dạy pascal dễ hiểu tí được ko?

 

[dragonle_07]

gacon_999 Ừ, tks tất cả người nha, nói thật là tớ chỉ hiểu sơ sơ thôi chứ chưa biết lắm mà bài này lại sắp phải nạp nên ?. Thông cảm tí nha, mới hc được 3 tuần mà. Thế giúp tớ tìm mấy cuốn dạy pascal dễ hiểu tí được ko? bạn ơi đây là những bài toán cơ bản về pascal mà bạn chưa hiểu chỗ nào thì bảo con để hiểu chứ bạn lấy đáp án làm gì


thà mua sách giải còn hơn

 

[phuonglinh1411]

èo... tui Tùng đây...



vào 4rum khoa mà hỏi...



@ngokhang94: số nguyên tố chứ không phải số nguyên bạn à

 

[Iason]

gacon_999 1. In dãy Fibonaci


2. In ra số nguyên tố từ 1-n


3. Tìm ước số chung, hay bội số chung lớn nhất của 2 số


4. Tối giản phân số


5. Tính S=1+x+x2/2!+x3/3!+…+xn/n!


6. Tìm 3 số nguyên dương thỏa mãn a2+b2+c2=abc


7. Tìm số m lớn nhất thỏa mãn m3+m2+m+1<1999



Làm từng bài cho dễ hiểu cái nha tất cả người


Tks trc Thấy bạn post bài lâu quá rồi mà không ai giúp cả nên tui tham gia cùng cho vui. Lần sau nhớ đăng bài ở mục Chia sẻ kiến thức- Pascal|C\C++ thì tất cả người chắc chắn sẽ giúp bạn nhanh hơn nhiều.


tui giúp bài 1 in dãy fibonaci


chưong trình này yêu cầu nhập số chữ số trong dãy Fibonaci cần in ra rồi chương trình sẽ tự viết ra.



Program Fibonaci;


Uses crt;


var i, N, a, b, c : longint;


BEGIN


clrscr;


writeln('Ban can viet ra bao nhieu so trong day Fibonaci');


readln(N);


c:=1;


b:=1;


writeln('1'); { Đoạn này tui viết ra cho có 2 số 1


writeln('1'); ở đầu tương tự trong dãy thôi đó mà }


For i:=1 to N do


begin


a:=b+c;


b:=c;


c:=a;


writeln(a);


readln


end;


readln


END.

 

[iumaylam]

bài 3 nha bạn:


var m,n,a,b:integer;


begin


writeln('nhap 2 so:');readln(m,n);


a:=m;b:=n;


while m<>n do


if m>n then m:=m-n


else n:=n-m;


writeln(' UCLN la : ',m);


writeln(' BCLN la : ',a*b/m);


readln;


end.