Bài tập 5.6
Viết chương trình cho phép nhập n số sắp xếp và in ra các số đã nhập theo thứ tự tăng dần.
a. Hướng dẫn:
b. Mã chương trình:
-
Var M: array[1..100] of integer;
i,j,n: byte;
tam: integer;
f,g: text;
Begin
Assign(f,’bai5_6.inp’); reset(f);
Assign(g,’bai5_6.out’); rewrite(g);
Readln(f,n);
For i:=1 to n do readln(f,M[i]);
For i:=1 to n-1 do
For j:=i+1 to n do if M[j] <=M[i] then
Begin
Tam:= M[i];
M[i]:=M[j];
M[j]:=tam;
End;
Write(g,'Sau khi sap xep: ');
For i:=1 to n do Write(g,M[i],';');
Close(f); close(g);
End.
|
Bài tập 5.7:
Viết chương trình in dãy n số fibonacy.
a.Hướng dẫn:
- Sử dụng mảng M để chứa dãy n số fibonacy. Tạo lập hai phần tử đầu tiên là 1, 1.
- Cho i chạy từ 3 đến n. M [i] = M[i-1]+M[i-2].
- In n phần tử đầu tiên của mảng.
Chia sẻ với bạn bè của bạn: |