Bài tập và thực hành 3

Chương IV: Kiểu Dữ liệu Có Cấu Trúc
BÀI THỰC HÀNH 3
I. Mục đích
Nâng cao kĩ năng sử dụng một số câu lệnh và một số kiểu dữ liệu thông qua việc tìm hiểu, chạy thử các chương trình có sẵn.
Biết giải quyết trên máy tính một số bài toán về tính toán và tìm kiếm.
II. Nội dung:
Bài 1: Cho mảng A gồm n số nguyên (n<=100), mỗi số theo trị tuyệt đối không quá 300. Tính tổng các phần tử của mảng là bội số của một số nguyên dương cho trước.
Program Sum1;
Uses crt;
Const nmax = 100;
Type MyArray = Array[1..nmax] Of Integer;
Var A : MyArray;
s,n,i,kiểu : Integer;
Begin
Clrscr; Randomize;
Write (‘Nhap n = ‘);
Readln (n);
Hãy tìm hiểu, gõ và chạy thử chương trình sau đây:
{ tạo ngẫu nhiên mảng gồm n số nguyên}
For i := 1 To n Do A[i] := Random(301)- Random(301);
Write ( ‘ Nhap k=’);
Readln(k);
s :=0;
For i := 1 To n Do
If A[i] mod k = 0 Then s := s+A[i];
WriteLn (‘ Tong can tinh la : ‘,s);
Readln;
End.
2. Hãy đưa các câu lệnh sau đây vào những vị trí cần thiết nhằm sửa đổi chương trình trong
câu a để chương trình đưa ra số lượng số dương và số lượng số âm trong mảng.
posi, neg : Integer;
posi := 0; neg := 0;
If A[i] >0 Then posi := posi +1;
Else If A[i] < 0 Then neg := neg +1;
Writeln (posi:4, neg:4);
Bài 2: Viết chương trình tìm phần tử có giá trị lớn nhất của mảng và đưa ra màn hình chỉ số và giá trị của phần tử tìm được. Nếu có nhiều phần tử có cùng giá trị lớn nhất thì đưa ra phần tử với chỉ số nhỏ nhất.
1. Hãy gõ, tìm hiểu chương trình sau đây:
Program MaxElement;
Const Nmax = 100;
Type MyArray = Array[1..Nmax] Of Integer;
Var A : MyArray;
n, i, j : Integer;
2. Viết lại chương trình trên để đáp ứng yêu cầu sau : Đưa ra các chỉ số của các phần tử có cùng giá trị lớn nhất.
Begin
Randomize;
Write( ‘ Nhap n = ‘); Readln(n);
{ tạo ngẫu nhiên mảng gồm n số nguyên}
For i := 1 To n Do A[i] := Random(300)- Random(300);
j := 1;
For i:= 2 To n Do If A[i] > A[j] Then j := 1;
Write (‘ Chi so: ‘,j,’ Gia tri : ‘,A[i]:7);
Readln;
End.