Question

 

Viết chương trình cho phép nhập hai số vào hai biến, thực hiện đổi giá trị của hai biến cho nhau. Yêu cầu dùng chương trình con để thực hiện chức năng đổi giá trị.

Answer 1

Program CTC_1;

 

uses crt;

var a,b: real;

{—-CTC doi gia tri—-}

Procedure swap(var x,y:real);

var tam:real;

begin

tam:=x; x:=y; y:=tam;

end;

{—–Ket thuc CTC—–}

begin

clrscr;

write(‘Nhap so a: ‘);readln(a);

write(‘Nhap so b: ‘);readln(b);

swap(a,b);

write(‘Sau khi doi a =’,a:3:1);

write(‘Sau khi doi b =’,b:3:1);

readln

end.