Mảng 1 chiều

Bài 1:  Cho tam giác ABC  có chiều dài 3 cạnh lần lượt là a,b,c ; 0<a,b,c<10

Hãy tìm các giá trị  a,b,c sao cho tạo thành một tam giác vuông

Thỏa mãn  a+b>c ; a+c>b và b+c>a thì là tam giác

  C^2=a^2+b^2

Chuyên đề: Mảng 1 chiều (làm việc với dãy số)

Ví dụ:  nhập vào các số có giá trị như sau

Giá trị  mảng A	1	4	8	9	6	8	4	3
Vị trí: i	1	2	3	4	5	6	7	8
Lấy giá trị	A[1]=3	A[2]=4	A[3]=8	A[4]=6	A[5]=9	A[6]=8	A[7]=4	A[8]=1

Khai báo mảng

Var  A :array[1..50] of  integer; {khai báo mảng A là mảng gồm 50 số nguyên}

1	2	3	….	50

Bài toán  Nhập vào từ bàn phím N số nguyên  (0<n<256)  tính

1. Tìm số lớn nhất  trong các số vừa nhập
2. Tìm số nhỏ nhất các số vừa nhập
3. Tính tổng tất cả các số vừa nhập

Uses crt;

Var  a:array[1..100] of integer;

       I, s, max, min,n: integer;

Begin

  Write(‘Ban muon nhap bao nhieu so:’); readln(N);

{nhap n so vao mang}

For i:=1 to N do 

                        Begin

                        Write(‘nhap phan tu thu ’, I); readln(a[i]);

                        End;

{tim so lon nhat, nho nhat}

Max:=a[1]; min:=a[1];

For i:=1 to N do

 Begin

If  max < a[i] then max:=a[i];

If min > a[i] then min:=a[i];

End;

Writeln(‘so lon nhat la:’,max);

Writeln(‘so nho nhat la:’,min);

{Tinh tong}

S:=0;

For i:=1 to N do s:=s+a[I];

Writeln(‘Tong cac so la:’,s);

{sap xep day so theo thu tu tang dan}

For i:=1 to n-1 do

 For j:=i+1 to n do

    If a[i] < a[j] then   begin

                                    Temp:=a[i];  a[i]:=a[j]; a[j]:=temp;

                                    End;

{in ra man hinh  cac gia tri cua mang}

For i:=1 to n do   Writeln(‘gia tri a[’,I,’]=’, a[i]);

Readkey;

End.

 {Đề thi hsg cấp huyện 2014-2015}

Bài 3. Viết chương trình nhập từ bàn phím dãy số thực co N phần tử (1<N<100). hãy in ra màn hình
a. dãy số ban đầu đã nhập
b. dãy số đã sắp xếp lại. biết sắp xếp các phần tử theo nguyên tắc sau: a[1] đổi chỗ cho a[n], a2 đổi chỗ cho an-1,....

INPUT	OUTPUT
-9.10 -9.11 3.20 3.19	Dãy số ban đầu đã nhập: -9.10 -9.11 3.20 3.19 Day so da sap xep lai: 3.20 3.19 -9.11 -9.10

Uses crt;

Var  a:array[1..100] real;

       I, s, max, min,n: integer;

Begin

{nhap so n}

  Write(‘Ban muon nhap bao nhieu so:’); readln(N);

{nhap n so vao mang}

For i:=1 to N do 

                        Begin

                        Write(‘nhap phan tu thu ’, I); readln(a[i]);

                        End;

{in ra man hinh  cac gia tri cua mang}

Write(‘Day so ban dau da nhap:’)

For i:=1 to n do   Write( a[i], ‘ ’);

{sap xep lai a[1] doi cho a[n]}

For i:= 1 to n div 2  do

Begin

   J:=n-i+1;

   Temp:=a[i];       a[i]:=a[j];      a[j]:=temp;

End;

{in ra man hinh  cac gia tri cua mang}

Write(‘day so da sap xep lai:’);

For i:=1 to n do   Write( a[i], ‘ ’);

Readkey;

End.