slide 1 giáo viên hd thầy lê minh triết sinh viên th nguyễn hoàng anh kiểm tra bài cũ câu hỏi 1 định nghĩa mảng một chiều câu hỏi 2 cách khai báo mảng một chiều trong pascal bài

Giáo viên HD: thầy Lê Minh Triết.. Sinh viên TH: Nguyễn Hoàng Anh..[r]

(1)

(2)

Kiểm tra bài cũ:

Câu hỏi 1:

Định nghĩa mảng một chiều?

Câu hỏi 2:

(3)

Bài Toán Số 1:

Tạo mảng A gồm n (n≤100) số nguyên, mỗi số có giá trị tuyệt đối không quá 300 Tính tổng của các phần tử của mảng là bội số của một số nguyên dương k cho trước.

YÊU CẦU CỦA

(4)

Các yêu cầu của bài toán:

Yêu cầu 1: Tạo mảng và nhập vào mảng số

nguyên có n phần tử (n≤100) Mỗi phần tử có giá trị tuyệt đối không quá 300

(5)

Với u cầu sớ I:

•Bước 1: Nhập vào sớ phần tử n. •Bước 2: cho i chạy từ 1n

•Với mỡi i ta nhập vào giá trị cho a[i].

Với yêu cầu số I:

Thuật Toán- Cài Đặt Bằng Pascal.

-writeln('nhap vao so phan tu (n) cua mang: '); readln(n);

for i:=1 to n begin

writeln('nhap vao phan tu thu ',i,': '); readln(a[i]);

end;

(6)

-Với u cầu sớ II:

•Bước 1: Nhập vào sớ K.

•Bước 2: cho i chạy từ 1n

•Với mỡi i ta kiểm tra a[i] mod K=0?

•Nếu có thì cợng a[i] vào tởng Với u cầu số II:

-writeln('nhap vao mot so nguyen K: '); readln(k);

s:=0;

for i:=1 to n

if a[i] mod k=0 then s:=s+a[i];

writeln('tong cac phan tu la boi cua ',k,' la: ',s);

(7)

-Chương trình hoàn chỉnh: Program Thuc_Hanh3;

uses crt;

type myarr=array [1 100] of integer; var a:myarr;

var n,i,k,s:integer;

Begin clrscr;

writeln('nhap vao so phan tu (n) cua mang: '); readln(n);

for i:=1 to n begin

end;

for i:=1 to n write(a[i],' - '); writeln;

writeln('nhap vao mot so nguyen K: '); readln(k);

s:=0;

for i:=1 to n

if a[i] mod k=0 then s:=s+a[i];

writeln('tong cac phan tu la boi cua ',k,' la: ',s);

readln End

(8)

Bài Toán Số 2:

(9)

Yêu cầu của bài toán:

Yêu cầu: Tìm phần tử có giá trị lớn

(10)

(11)

Mơ Tả

•Bước 1: gán biến tạm max:=a[1]; maxpos:=1;

•Bước 2: cho i chạy từ 2n

•Với mỡi i ta kiểm tra a[i]>max?

•Nếu a[i]>max thì max:=a[i] và maxpos:=i;

-max:=a[1]; maxpos:=1; for i:=2 to n if a[i] > max then begin

max:=a[i]; maxpos:=i; end;

writeln('phan tu co gia tri lon nhat mang la: ',max); writeln('xuat hien o vi tri dau tien la: ',maxpos);

(12)

-Chương trình hoàn chỉnh: Program Thuc_Hanh3;

uses crt;

type myarr=array [1 100] of integer; var a:myarr;

Var n,i,max,maxpos:integer; begin

clrscr;

writeln('nhap vao so phan tu (n) cua mang: '); readln(n);

for i:=1 to n begin

end;

for i:=1 to n write(a[i],' - '); writeln;

max:=a[1]; maxpos:=1; for i:=2 to n if a[i] > max then begin

max:=a[i]; maxpos:=i; end;

writeln('phan tu co gia tri lon nhat mang la: ',max); writeln('xuat hien o vi tri dau tien la: ',maxpos);

readln end

Nếu thay dòng lệnh: if a[i] > max then bằng dòng lệnh sau:

(13)

Trong bài toán với n nhỏ thì chúng ta có thể dễ dàng nhập giá trị cho từng phần tử Nhưng với những chương trình có lượng dữ liệu lớn

(14)

Hàm Random(n) là hàm dùng để tạo các giá trị ngẫu nhiên khoảng từ 1n-1 Dùng hàm Random(n) ta muốn tạo các giá trị ngẫu nhiên để kiểm tra tính đúng đắn của chương trình và để tiết kiệm thời gian Lưu ý dùng hàm

Random(n) ta phải gọi thủ tục Randomize() để khởi tạo chế này

(15)

(16)