Bài tập & bài giải Pascal sử dụng kiểu mảng

Bài 1 :
Giải hệ phương trình tuyến tính hai ẩn dùng ma trận :
a11x + a12y = c1
a21x + a22y = c2
Uses Crt;
Var a: array[1..2, 1..2] of real;
c: array[1..2] of real;
d, dx, dy, x, y: real;

[Lý thuyết & Bài tập]- Kiểu xâu

XÂU KÝ TỰ (STRING)

I. KHAI BÁO KIỂU STRING

            TYPE TênKiểu = STRING[Max];

            VAR               Tên biến : TênKiểu;

hoặc khai báo biến trực tiếp:

            VAR               Tên biến : STRING[Max];

Trong đó Max là số ký tự tối đa có thể chứa trong chuỗi (Max Î [0,255]). Nếu không có khai báo [Max] thì số ký tự mặ mặc định trong chuỗi là 255.

Ví dụ:

            Type                Hoten  = String[30];

                                                St80 = String[80];

            Var                  Name : Hoten;

                                                Line : St80;

                                                St : String; {St có tối đa là 255 ký tự}

 

II. TRUY XUẤT DỮ LIỆU KIỂU STRING

            - Có thể sử dụng các thủ tục xuất nhập Write, Writeln, Readln để truy xuất các biến kiểu String.

            - Để truy xuất đến ký tự thứ k của xâu ký tự, ta sử dụng cú pháp sau: Tênbiến[k].

 

[Lý thuyết & Bài tập]- Kiểu dữ liệu mảng

DỮ LIỆU KIỂU MẢNG (ARRAY)

I. KHAI BÁO MẢNG

Cú pháp:

            TYPE <Kiểu mảng> = ARRAY [chỉ số] OF <Kiểu dữ liệu>;

            VAR   <Biến mảng>:<Kiểu mảng>;

hoặc khai báo trực tiếp:

            VAR               <Biến mảng> : ARRAY [chỉ số] OF <Kiểu dữ liệu>;

Ví dụ:

            TYPE  Mangnguyen = Array[1..100] of Integer;

                                                Matrix = Array[1..10,1..10] of Integer;

                                                MangKytu = Array[Byte] of Char;

            VAR               A: Mangnguyen;

                                                M: Matrix;

                                                C: MangKytu;

hoặc:

            VAR               A: Array[1..100] of Integer;

                                                C: Array[Byte] of Char;

[Kiểu mảng]- Tìm kiếm nhị phân

[Kiểu bản ghi] - Kết quả thi tốt nghiệp nghề của học sinh

Bài giải có một số lỗi cơ bản trong lập trình. Các em hãy phát hiện lỗi và so sánh với đáp án thầy đã sửa ở cuối bài.