Bài tập Mảng một chiều.
Người trình bày: Tạ Đức Thắng
Bài tập Mảng một chiều.
I. Nhắc lại lý thuyết:
* Khai báo:
a. Khai báo gián tiếp:
Type
Kiểu mảng=Array[kiểuchỉsố] OF [kiểuthànhphần];
Var Tên biến mảng: Kiểu mảng;
b. Khai báo trực tiếp:
Var
Tênbiếnmảng:Array[Kiểuchỉsố]OF[kiểuthànhphần];
Bài tập Mảng một chiều.
II. Bài tập:
Bài 1: Hãy viết chương trình:
-Nhập vào một dãy số thực n phần tử.
-Tính tổng của dãy số đó.
-In dãy và kết quả ra màn hình.
Bài tập Mảng một chiều.
* Hướng dẫn:
- Khai báo 4 biến Tong: kiểu thực; a: kiểu mảng; i, n: kiểu nguyên.
- Nhập số phần tử của mảng n.
- Nhập giá trị cho các phần tử của mảng.
- Đầu tiên: Tong:=0;
- Dùng vòng lặp FOR thực hiện việc: tính tổng;
- Ra khỏi vòng lặp: In dãy và kết quả của Tong ra màn hình.
Bài tập Mảng một chiều.
Program Tong_day;
Uses Crt;
Var a: Array[1..100] Of Real;
i, n: Integer;
Tong: Real;
Begin
Clrscr;
Write(?Nhap so phan tu cua day n:?);
Readln(n);
Write(?Nhap cac phan tu cua day:?);
Bài tập Mảng một chiều.
For i:=1 to n do
begin
Write(?a[?,i,?]=?);
Read(a[i]);
end;
Tong:=0;
For i:=1 to n do Tong:=Tong+a[i];
For i:=1 to n do Write(a[i]:2:0);
Write(?Tong can tim la: ?,Tong:2:0);
Readln;
End.

Bài tập Mảng một chiều.
Bài 2:Hãy viết chương trình:
-Nhập một dãy số nguyên gồm n phần tử (n<=20).
- Đếm xem trong dãy có bao nhiêu số dương và tính tổng các số dương đó.
- In dãy và kết quả ra màn hình.
Bài tập Mảng một chiều.
* Hướng dẫn:
- Khai báo các biến: a: kiểu mảng; dem,i,n: kiểu nguyên; Tong: kiểu thực.
- Nhập số phần tử n.
- Nhập giá trị cho các phần tử của dãy.
- Khởi đầu dem:=0; Tong:=0;
- Dùng vòng lặp FOR thực hiện tính tổng và đếm các số dương.
- In dãy và kết quả ra màn hình.
Bài tập Mảng một chiều.
* Bài làm:
Program BT2;
Uses Crt;
Var a: Array [1..20] of Integer;
Tong: Real;
dem,i,n: Integer;
Begin
Clrscr;
Write(?Nhap so phan tu n: ?); Readln(n);
Write(?Nhap gia tri cho cac phan tu: ?);
For i:=1 to n do
begin
Write(?a[?,i,?]=?);
Read(a[i] );
end;

Bài tập Mảng một chiều.
Tong:=0; dem:=0;
For i:=1 to n do
If a[i]>0 then
begin
dem:=dem+1;
Tong:=Tong+a[i];
end;
Write(?Day so la: ?);
For i:=1 to n do Write(a[i]:3);
Write(?Co ?,dem,? so duong va tong cua cac so do bang: ?,Tong:3:1);
Readln;
End.