Làm Ơn Giúp Em Về Pascal

[hello2005]

Nhờ cả nhà giúp em mấy bài toán pascal này cái
1 > dùng công thức con xác định xem so n (kiểu nguyên) đựoc nhập từ bàn phím có phải là số hoàn hảo hay không
2 > nhập và in mảng gồm N các số nguyên đếm số phần tử nhỏ hơn 10
3 > Nhập và in mảng gồm N các số nguyên, Tìm phần tử đầu tiên trong dãy Lớn hơn 15 .
đây là đề thi pascal của em ,bác nào có thể chỉ giúp em với .em chẳng biết chút gì cả?
Em còn 2 ngày nữa là nộp rồi, Em thanks trước Cả Nhà

 

[yo-makoto-yo]

mấy cái lập trình này quan trọng là cái đầu mà thôi... nhờ nguời khác giải giùm là không đuợc... tớ cũng giốngc ậu nhưng đang vuớng phần lưu đồ, còn 10 bài chưa giải xong, dùng đầu riết rồi quen.. lập trình mà...

 

[chungkid1]

Về cơ bản mấy bài này ko khó,chủ yếu là kiểm tra về kĩ năng dùng vòng lặp của bạn
1)quên mất số hoàn hảo là gì rồi :)
2)Dùng một biến đếm,duyệt từ đầu tới cuối mảng,gặp số <10 thì tăng biến đếm lên
3)cũng duyệt hết mảng,gặp số lớn hơn 15 thì ghi ra chỉ số và giá trị,rồi gọi Exit
Hướng dẫn thế là quá lắm rồi,bạn chỉ phải gõ nốt ct thôi

 

[doremon2611]

Hè hè mình cũng sắp được học Pascal, xem có vẻ thú vị đấy nhở ^^ Mình mới chỉ làm quen với vòng lặp qua JS thôi ^^

 

[emla_uni]

Lâu ko xài Pascal giờ lại thấy buồn cười
1: vắt óc mãi chỉ nhớ dc số hoàn hảo là số = tổng các ước số của nó phải ko ? dĩ nhiên là nguyên dương only .Đầu tiên phải có biến tonguoc(tổng ước ban đầu = 0),
__Nếu là dữ liệu nhỏ thì bạn có thể duyệt các ước của nó = vòng lặp từ 2-> ~căn bậc 2 của nó + 1 . số nào chỉa hết thì là ước . Cứ mỗi lần tìm được ước thì + nó vào tổng ước . Duyệt hết rồi thì so sách tonguoc và số gốc = nhau > hoàn hảo
__Nếu là dữ liệu lớn thì bạn ko thể duyệt hết với số cỡ ~2 tỉ theo cách trên nên bạn phải phân tich ra thừa số nguyên tố .. phần này vừa dài vừa khó mình gà nên hiện tại cũng bó tay mà chắc bạn cũng ko cần đến phần này đâu nhỉ
2-3 bạn chungkid nói đầy đủ rồi :)

 

[heopro_14789]

ai có sổ tay lập trình pascal share cho mình với

 

[nguyentrung0904]

bạn vào manguon.com mà tìm trong đó cũng có nhìu

 

[thienkhoi1]

Nhờ cả nhà giúp em mấy bài toán pascal này cái
1 > dùng công thức con xác định xem so n (kiểu nguyên) đựoc nhập từ bàn phím có phải là số hoàn hảo hay không
2 > nhập và in mảng gồm N các số nguyên đếm số phần tử nhỏ hơn 10
3 > Nhập và in mảng gồm N các số nguyên, Tìm phần tử đầu tiên trong dãy Lớn hơn 15 .
đây là đề thi pascal của em ,bác nào có thể chỉ giúp em với .em chẳng biết chút gì cả?
Em còn 2 ngày nữa là nộp rồi, Em thanks trước Cả Nhà

Lâu lâu lên mạng thấy đề Pascal muốn giải thui, tiếc là đã trễ wá
Do bệnh nghề nghiệp thui nên mình xin mạo mụi lấy ít kiến thức it ỏi của mình ra để làm, mong các pro thông cảm cho :
1.Bài này mình ko bít số hoàn hảo là gì hết (do mình mới học pascal cách đây 4 bữa)
2.
Program bai2;
Uses crt;
Var
a : Array[1..100] of integer;
i,n,dem : integer;
Begin
Clrscr;
Write('Nhap N = ');Readln(n);
dem := 0;
For i := 1 to n do
Begin
Write('Nhap phan tu thu ',i,' cua mang ');Readln(a);
End;
For i := 1 to n do
If a < 10 then dem := dem + 1;
Write('Mang la : ');
For i := 1 to n do Write(a,' ');
Writeln;
Write('Trong day co ',dem,' phan tu nho hon 10');
Readln;
End.
--------------------------
3.
Program bai3;
Uses crt;
Var
a : Array[1..100] of integer;
i,n,xet : integer;
Begin
Clrscr;
Write('Nhap N = ');Readln(n);
For i := 1 to n do
Begin
Write('Nhap phan tu thu ',i,' cua mang ');Readln(a);
End;
xet := 0;
For i := 1 to n do If (a < 15) and (xet = 0) then xet := a;
Write('Mang la : ');
For i := 1 to n do Write(a,' ');
Writeln;
Write('Phan tu dau tien trong mang nho hon 15 la ',xet);
Readln;
End.
---------------
Ok. một lần nữa mong các pro thông cảm cho sự dốt của mình nhá.....Mình mới học được 4 bữa mí.....

 

[korangar]

Welcome to http://diendanpascal.com/forum ...