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à
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à...
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
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 ^^
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 :)
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í.....
