Chương IV: Kiểu Dữ Liệu Có Cấu Trúc

Tại sao mảng là kiểu dữ liệu có cấu trúc?

Tại sao phải khai báo kích thước của mảng?

Các phần tử của mảng có thể có những kiểu gì?

Tham chiếu đến phần tử của mảng bằng cách nào?

Viết chương trình nhập từ bàn phím số nguyên dương N (N \(\leq\) 100) và dãy A gồm N số nguyên A₁, A₂,..., A_N, có giá trị tuyệt đối không lớn hơn 1000. Hãy cho biết dãy A có phải là một cấp số cộng hay không và thông báo kết quả ra màn hình. 

Viết chương trình nhập từ bàn phím số nguyên dương N (N \(\leq\) 100) và dãy A gồm N số nguyên A1, A2,..., AN, có trị tuyệt đối không lớn hơn 1000. Hãy đư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 tố trong dãy.

Dãy F là dãy Fi-bô-na-xi nếu:

F₀ = 1; F₁ = 1; F₂ = 2; F_N = F_N-1 + F_N-2 với N > 2.

Viết chương trình nhập từ bàn phím số nguyên dương N và đưa ra màn hình số hạng thứ N của dãy Fi-bô-na-xi. Chương trình của em thực hiện được với giá trị lớn nhất của N là bao nhiêu?

Chương trình sau đây thực hiện những gì?

program BT8;

const NMax = 50;

type Mass = array[1..NMax,0..NMax-1] of real;

var A: Mass;

    i, j, N: byte; C: real;

begin

   write('Nhap N = ? '); readln(N);

   for i:= 1 to N do

     for j:= 0 to N-1 do

           begin

                 write('A[',i,',',j,']= '); readln(A[i,j])

           end;

    for i:= 1 to N do

      for j:= 0 to N-1 do

           begin

  C:= A[i,j];

  A[i,j]:= A[N-i+1,j];

  A[N-i+1,j]:= C

  end;

    for i:= 1 to N do

      begin

           for j:= 0 to N-1 do

           write(A[i,j]:5:2,' ');

           writeln

      end;

end.

Cho mảng hai chiều kích thước \(n\times m\) với các phần tử là những số nguyên. Tìm trong mỗi dòng phần tử lớn nhất rồi đổi chỗ nó với phần tử có chỉ số dòng bằng chỉ số cột.

Chương trình sau đây giải bài toán trên:

program Diag;

var

   N, i, j, Max,Ind, Vsp: integer;

   A: array [1..15, 1..15] of integer;

begin

   write('Nhap N: '); readln(N);

   for i:= 1 to N do

         for j:= 1 to N do

           begin

                 write('A[', i, ',', j, '] '); readln(A[i,j]);

           end;

   for i:= 1 to N do

     begin

  Max:= A[i,1]; Ind:= 1;

  for j:= 2 to N do

  if A[i,j] > Max then

     begin

           Max:= A[i,j]; Ind:= j

     end;

  Vsp:= A[i, i]; A[i,i]:= Max; A[i, Ind]:= Vsp;

     end;

   for i:= 1 to N do

     begin

  writeln;

  for j:= 1 to N do write(A[i,j]: 3);

     end;

   writeln

end.

Hãy sửa lại chương trình trên khi yêu cầu bài toán thay dòng bằng cột.

Viết chương trình nhập từ bàn phím xâu kí tự S có độ dài không quá 100. Hãy cho biết có bao nhiêu chữ số thập phân xuất hiện trong xâu S. Thông báo kết quả ra màn hình.

Hãy bổ sung thêm chương trình Xep_loai (ở §13) những lệnh cần thiết để chương trình đưa ra danh sách học sinh xếp loại A.