Sắp xếp dãy số theo chiều tăng dần

Sắp xếp dãy số theo chiều tăng dần
Nhập 1 dãy gồm N số nguyên (N<=50). Sắp
xếp dãy theo chiều tăng dần rồi xuất KQ ra
màn hình.
BÀI GIẢI
program sapxep;
var A:array[1 50] of integer ;
i, j, n, tam: integer ;
begin
writeln(′Nhap so luong phan tu: ′);
readln(n);
for i:=1 to n do
begin
writeln(′Nhap so thu: ′,i);
readln(A[i]);
end;

for i:=1 to n-1 do
for j:=i+1 to n do
if A[i] > A[j] then
begin
tam := A[i] ;
A[i] := A[j] ;
A[j] := tam ;
end;

writeln(′Day duoc sap xep tang dan la: ′);
for i:=1 to n do write(A[i]:6);
readln;
end.
Tính tổng và đưa ra các số chẵn có trong

mảng một chiều
Nhập 1 dãy gồm N số nguyên (N<=200). Đưa ra màn
hình các số chẵn có trong dãy và tổng của chúng.

BÀI GIẢI
program tongchan;
var A: array[1 200] of integer ;
i, n, S: integer ;
begin
writeln(′ Nhap so luong phan tu: ′);
readln(n);
for i:=1 to n do
begin
writeln(′Nhap so thu: ′,i);
readln(A[i]);
end;
S:=0;
writeln(′Cac so chan trong day la: ′);
for i:=1 to n do
if (A[i] mod 2 = 0) then
begin
write(A[i]:6);
S:=S+A[i];
end;
writeln;
writeln(′Tong cac so chan la: ′, S);
readln
end.
Sắp xếp dãy số theo chiều tăng dần
Nhập 1 dãy gồm N số nguyên (N<=50). Sắp

xếp dãy theo chiều tăng dần rồi xuất KQ ra
màn hình.
BÀI GIẢI
program sapxep;
var A:array[1 50] of integer ;
i, j, n, tam: integer ;
begin
writeln(′Nhap so luong phan tu: ′);
readln(n);
for i:=1 to n do
begin
writeln(′Nhap so thu: ′,i);
readln(A[i]);
end;

for i:=1 to n-1 do
for j:=i+1 to n do
if A[i] > A[j] then
begin
tam := A[i] ;
A[i] := A[j] ;
A[j] := tam ;
end;

writeln(′Day duoc sap xep tang dan la: ′);
for i:=1 to n do write(A[i]:6);
readln;
end.
Tính chu vi và diện tích hình chữ nhật
Tính chu vi và diện tích hình chữ nhật với chiều dài

và chiều rộng là các số thực được nhập từ bàn
phím.
Chương trình:
Program hcn;
uses crt;
var dai, rong, CV, S: Real;
begin
clrscr;
writeln(′Nhap chieu dai, chieu rong: ′);
readln(dai,rong);
CV:= (dai + rong)*2 ;
S:= dai * rong ;
writeln(′Chu vi = ′,CV:6:2);
writeln(′Dien tich = ′,S:6:2);
Readln
End.
Tìm số lớn nhất trong 3 số
Nhập 3 số nguyên bất kì từ bàn phím. Đưa ra màn
hình số lớn nhất trong 3 số vừa nhập.
Chương trình:
Program max_3so;
Var
so1,so2,so3,max:Integer;
Begin

Writeln(′TIM SO LON NHAT TRONG 3 SO
NGUYEN′);
Write(′-Nhap so thu nhat: ′);
Readln(so1);
Write(′-Nhap so thu hai : ′);

Readln(so2);
Write(′-Nhap so thu ba : ′);
Readln(so3);
If so1 < so2 Then
max:=so2
Else
max:=so1;
If max < so3 Then
max:=so3;
Writeln;
Writeln(′+So lon nhat trong 3 so la: ′,max);
Writeln;
Writeln(′Bam phim <Enter> de ket thuc′);
Readln
End.
Giải phương trình bậc 2
Viết chương trình giải phương trình bậc 2:
ax
2
+ bx + c = 0 (a # 0)
với a, b, c là các số thực được nhập từ bàn phím.

Chương trình:

Program PTB2 ;
Var
a,b,c: Real ;
D,X,X1,X2: Real ;
Begin
Writeln(′Nhap he so a, b, c: ′) ;

Readln(a,b,c) ;
D:=sqr(b)-4*a*c ;
If D < 0 Then
Writeln(′+Phuong trinh vo nghiem′) ;
If D = 0 Then
Begin
X:=-b/(2*a) ;
Writeln(′+Phuong trinh co nghiem kep X1 = X2
= ′,X:6:2) ;
End
Else
Begin
X1:=(-b-Sqrt(D))/(2*a);
X2:=(-b+Sqrt(D))/(2*a);
Writeln(′X1 = ′,X1:6:2);
Writeln(′X2 = ′,X2:6:2);
End;
Readln
End.