giup to may bai nay cai:)

[hocngu_kute]

Viết chương trình nhập từ bàn phím số nguyên dương N (N=<100) và dãy A gồm N số nguyên A1,A2,...,An có giá trị tuyệt đối ko lớn hơn 1000.haỹ đưa ra nhưng thông tin sau:
a: số lượng số chẵn và số lẻ trong dãy
b:số lượng số nguyên trong dãy
bai 2:
f la dãy phi_bo_na_xi nếu F0=0;F1=1;Fn=(Fn-1)+(Fn-2)với n>=2
viết ct nhập từ bàn phím số nguyên dương N va đưa ra màn hình số hiển thị N của dãy phi_bô_na_xi.
ct của bạn thực hiện được vs giá trị lớn nhất của N là bao nhiêu:


làm luôn dùm cái nhớ:

[dotri84]

Giáo Trình Lý Thuyết Và Bài Tập PASCAL - Tập 2: Turbo Pascal 6.0 & 7.0; Borland Pascal 7.0 for DOS & for WINDOWS
NGUYỄN ĐÌNH TÊ(Tác giả),HOÀNG ĐỨC HẢI(Tác giả)
NXB: Giáo dục
ISBN: 74608. Nhận xét:Được đăng ảnh
Chủ đề: Tin học
Số trang: 640
Kích thước: 15,3x23,3
Trọng lượng: 500
Giá: 70,000
http://www.minhkhai.com.vn/hinhlon/74608.jpg
Tham khảo chi phí mua hàng

# "Giáo Trình Lý Thuyết Và Bài Tập Pascal - Tập 2" gồm 11 chương, 360 chương trình ví dụ và bài tập hoàn chỉnh:Chương 9: Kiểu Chuỗi ký tự (String)
# Chương 10: Kiểu mảng (Array)
# Chương 11: Kiểu Bản ghi (Record)
# Chương 12: Kiểu con trỏ (Pointer)
# Chương 13: Danh sách và cây
# Chương 14: Kiểu đối tượng (Object)
# Chương 15: Kiểu tập tin (File)
# Chương 16: In ấn (Printer)
# Chương 17: Đồ hoạ (Unit Crt, Graph)
# Chương 18: Các chương trình tiện nghi
# Chương 19: Hệ thống OVERLAY.
Về lý thuyết tuy có khó hơn Tập 1 nhưng được trình bày ngắn gọn, đầy đủ và có chương trình ví dụ và bài tập minh họa. Bạn đọc có thể xem hoặc chạy trên máy để nắm vững lý thuyết. Từ những chương trình này, bạn có thể tham khảo để bổ sung hoặc căn cứ vào giải thuật để viết lại những chương trình theo ý bạn.
Hy vọng sau khi đọc xong hai tập giáo trình gồm 19 chương lý thuyết, 660 chương trình ví dụ và bài tập, bạn đọc có thể viết được những chương trình ứng dụng từ đơn giản đến phức tạp. Xin trân trọng giới thiệu.

Bạn có thể ra quán để mua or down ở đây

http://www.minhkhai.com.vn/download/Giao%20trinh%20ly%20thuyet%20va%20bai%20tap%20Pasc al%20toan%20tap.zip

Bạn tham khảo chương 10 Pascal 2 nhé . Link trên có bài tập + bài giải. Từ từ nghiên cứu nhé. Chúc thành công :w00t:

[hocngu_kute]

ai co kha nag lam` dum` ho. minh cai dy

[LkLight]

Bài 1 nè.

Code:

Program test;
Var
a : array[1..100] of integer;
n,i,dc,dl,dnt : integer;
Begin
Repeat
write('nhap n [|n<=1000|]');readln(n);
Until (n>= -1000) and (n<=1000); {Vòng lặp kt |n| < 1000}

For i :=1 to n do
begin
Write('a[',i,'] = ');readln(a[i]);
End;

For i :=1 n do {vòng lặp đếm số chẵn và số lẻ và số NT}
Begin
if a mod 2 = 0 then inc(dc)
else inc(dl);
j := 2;
While a[i] mod j <> 0 do {Kiểm tra số ngtố}
j:=j+1;
If j = a[i] -1 then inc(dnt);
End;

Writeln('so luong so le la:',dl);
Writeln('so luong so chan la:',dc);
Writeln('so luong so NT la:',dnt);

End.



+Thực ra mình chưa hiểu rõ yêu cầu đề bài b/ lắm, có phải là xuất ra số lượng số NT trong dãy ko? nếu đúng thì code của mình xài đc đó ^^!
+Bà con test code dùm, tại build code ở tiệm NET ko check đc.
+Nay busy rồi, mai mốt P0st bài 2 cho ^^!

[pascalmen_9xpro]

bài 2 thì tùy vào kiểu mà bạn chọn cho các số trong dãy thì ta có giới hạn của số đó chứ
vậy thì ta không thẻ nói chính xác được là số bao nhiêu đúng vậy không

[noel_trang]

bài 2: nếu dùng kiểu longint thì chỉ được <50 số thôi.
Mình viết phần chính thôi nhé.

begin
readln(n);f[1]:=1;f[2]:=1;
for i:=3 to n do f[i]:=f[i-1]+f[i-2];
writeln(f[n]);readln;
end.

Bạn có thể dùng 3 số hoặc 2 số tính lẫn nhau cũng được nhưng cách này là đơn giản nhất. Nhớ thank nha.

[LkLight]

Hì, chưa kịp p0st là bác Noel làm trước rồi. Thực tế thì bài 2 ko có lời giải, vì phải tùy thuộc vào kiểu biến mà bạn khai báo nữa. Nếu như dừng ở kiểu Integer thì số lớn nhất trong dãy là 28 657 ở vị trí 23.(có lẽ đây là lời giải? ^^!)

[pascalmen_9xpro]

hình như cũng giống ý tớ