Đề 1: Nhập từ bàn phím 2 số nguyên a và b, viết chương trình con thực hiện sắp xếp theo thứ tự tăng dần 2 số đó, đưa 2 số vừa sắp xếp đó ra màn hình, CTC phải dùng tham số hình thức.


Đề 2: Nhập từ bàn phím số nguyên dương N, viết chương trình con thực hiện việc tính N!, đưa kết quả ra màn hình, CTC phải dùng tham số hính thức.


Đề 3: Nhập vào chiều dài và chiều rộng của một hình chữ nhật, viết chường trình con thực hiện tính chu
vi (sử dụng hàm), tính diện tích (sử dụng thủ tục), đưa kết quả ra màn hình, CTC phải dùng tham số hình thức.


Đề 4: Nhập vào số nguyên dương N, sử dụng chương trình con để tính tổng các số chẵn từ 1 à N, đưa kết quả ra màn hình, CTC phải dùng tham số hình thức.


Đề 5: Sử dụng chương trình con để giải phương trình bậc I sau: ax+b=0, với a và b nhập vào từ bàn
phím, đưa kết quả các trường hợp ra màn hình, CTC phải dùng tham số hình thức.


Đề 6: Nhập vào số nguyên dương N, sử dụng chương trình con thực hiện tính tổng các số là bội của 3 trong
khoản từ 1àN, đưa kết quả ra màn hình, CTC phải dùng tham số hình thức.

Đề 1:

Code:

program sapxep;


var a,b:integer;


procedure hoandoi( x,y:integer);


begin


if x<y then write(x:9,y:9)


else write(y:9,x:9);


 


end;


begin


    write('nhap
a,b:');readln(a,b);


    write('sap
xep:');hoandoi(a,b);


 


    readln


end.

Đề 2:

Code:

program ham_giaithua;


var n:integer;


function giaithua(x:integer):real;


var i:integer;s:real;


begin


    s:=1;


    for i:=1 to x do s:=s*i;


    giaithua:=s;


end;


begin


    write('nhap N:');readln(n);


    write('N!=',giaithua(n):9:2);


    readln


end.

Đề 3:

Code:

program hinhchunhat;


var cdai,crong:integer;


function chuvi(x,y:integer):real;


begin


    chuvi:=(x+y)*2;


end;


procedure dientich(x,y:integer);


var s:real;


begin


    s:=x*y;


    write(s:9:2)


end;


begin


    write('nhap
cdai,crong');readln(cdai,crong);


    writeln('chu
vi=',chuvi(cdai,crong):9:2);


    write('dien
tich=');dientich(cdai,crong);


    readln


end.

Đề 4:

Code:

program tong_chan;


var n:integer;


function tongchan(x:integer):real;


var s:real;i:integer;


begin


    s:=0;


    for i:=1 to n do


        if i mod 2 =0 then
s:=s+i;


    tongchan:=s;


end;


begin


    write('nhap N:');readln(n);


    writeln('tong
chan=',tongchan(n):9:2);


    readln


end.

Đề 5:

Code:

program tong_boi;


var a,b:integer;


procedure ptb1(m,n:integer);


begin


    if m<>0 then
write('nghiem x=',(-n/m):9:2)


    else


        begin


              if b<>0 then write('pt vo nghiem')


              else write('pt vo so
nghiem');


        end;


end;


begin


    write('nhap
a,b:');readln(a,b);


    ptb1(a,b);


    readln


end.

Đề 6:

Code:

program tong_boi;


var n:integer;


function tongboi(x:integer):real;


var s:real;i:integer;


begin


    s:=0;


    for i:=1 to n do


        if i mod 3 =0 then
s:=s+i;


    tongboi:=s;


end;


begin


    write('nhap N:');readln(n);


    writeln('tong
boi=',tongboi(n):9:2);


    readln


end.