Viết chương trình a,b
a) viết thủ tục hoán đổi 2 giá trị cho nhau
b) viết thủ tục kiểm tra xem a và b phần tử nào lớn hơn

Question

Viết chương trình a,b a) viết thủ tục hoán đổi 2 giá trị cho nhau b) viết thủ tục kiểm tra xem a và b phần tử nào lớn hơn

diepbich · Answer

var a,b,r,max:longint;   begin   read(a,b);   r:=a;   a:=b;   b:=r;   max:=a;   if a<b then max:=b;   write(max);   end.

hongocha · Answer

program thu_tuc;

uses crt;

var a,b:integer;

{—Thu-tuc-hoan-doi—}

procedure hoandoi(a,b:integer);

var tg:integer;

begin

tg:=a;

a:=b;

b:=tg;

writeln(‘a= ‘,a,’ b= ‘,b);

end;

{—Thu-tuc-kiem-tra—}

program lonhon(a,b:integer);

begin

if a=b then write(‘Hai so bang nhau’)

else if a>b then write(‘a lon hon’)

else write(‘b lon hon’);

end;

{—Chuong-trinh-chinh—}

BEGIN

clrscr;

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

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

hoandoi(a,b);

lonhon(a,b);

readln;

end.

0 bình luận về “Viết chương trình a,b a) viết thủ tục hoán đổi 2 giá trị cho nhau b) viết thủ tục kiểm tra xem a và b phần tử nào lớn hơn”