HỌC TRỰC TUYẾN TIN 8 TUẦN 23,24

[r]

NHẬP XUẤT MẢNG 1 CHIỀU(TUẦN 23,24)

1/ Cú pháp khai báo biến mảng

Var <tên mảng>:array[csđ csc] of <kiểu dữ liệu của mỗi phần tử>;

Ví dụ: var a:array[1 5] of integer; (khai báo biến mảng a có 5 phần tử ,mỗi phần tử là số nguyên) Var b:array[1 10] of real; (khai báo biến mảng b có 10 phần tử,mỗi phần tử là số thực)

2/ Nhập xuất mảng trong chương trình

a/ Nhập mảng

var a:array[1 5] of integer;

i,n:integer:

Begin

For i:=1 to n do

begin

Write(‘a[‘,i,’]=’);

Readln(a[i]);

end;

End

b/ Xuất mảng

for i:=1 to n do

writeln(a[i]:8);

3/ Bài tập:

Bài 1:

Viết chương trình nhập xuất mảng a có n phần tử là số nguyên ra màn hình

Program nhapxuat_mang;

Uses crt;

Var a:array[1 20] of integer;

i,n:integer;

Begin

Clrscr;

Write(‘ cho biet so pt cua mang:’);readln(n);

For i:=1 to n do

begin

write(‘a[‘,i,’];

readln(a[i]);

end;

writeln(‘mang sau khi nhap ‘);

for i:=1 to n do

writeln(a[i]:8);

readln;

End.

Bài 2: viết chương trình nhập xuất mảng b có các phần tử là số dương (dùng câu lệnh lặp while do)

Program nhap_xuat_mangb;

Uses crt;

Var b:array[1 20] of integer;

i,n:integer;

Begin

Clrscr;

Write(‘cho biet so pt cua mang:’);readln(n);

i:=0;

while a[i]>=0 do

begin

i:=i+1;

write(‘a[‘,i,’]=’);

readln(a[i] );

end;

n:=i;

for i:=1 to n do

writeln(a[i]:8);

readln;

End.

Bài 3: viết chương trình nhập mảng gồm 10 số thực Tính tổng các số âm trong mảng này

HD: Viết đoạn chương trình nhập mảng kết hợp câu lệnh đk if… then để tính tổng các số âm Tong:=0;

If a[i]<0 then

Tong:= tong+a[i];

xuất tong ra màn hình để thấy kết quả