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 Aj then begin tam := Ai ; Ai := Aj ; Aj := tam ; end; writeln(′Day duoc sap xep tang dan la: ′); for i:=1 to n do write(Ai:6); 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 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:

ax2 + 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