Hoán đổi giá trị của 2 biến số thực A và C dùng biến trung gian B
2 câu trả lời
Dùng với số thực:
program bai_giia;
uses crt;
var A,C,B:real;
begin
clrscr;
write('Nhap A: '); readln(A);
write('Nhap C: '); readln(C);
B:=A; A:=C; C:=B;
write(A:0:4,' ',C:0:4);
readln;
end.
Ta còn có thể dùng xâu để in cụ thể:
program bai_giia;
uses crt;
var A,C,B:string;
begin
clrscr;
write('Nhap A: '); readln(A);
write('Nhap C: '); readln(C);
B:=A; A:=C; C:=B;
write(A,' ',C);
readln;
end.
uses crt;
var a,b,c:real;
begin
clrscr;
write('a=');readln(a);
write('c=');readln(c);
b:=c;
c:=a;
a:=c;
writeln('a va b duoc hoan doi la');
writeln('a=',a);
write('c=',c);
readln
end.
mong mọi người lưu ý: đây là cách làm xàm của mình trong bài này mong ko ai làm theo
uses crt;
var a,c:real;
begin
clrscr;
write('a=');readln(a);
write('c=');readln(c);
writeln('a va c duoc hoan doi la');
writeln('a=',c);
write('c=',a);
readln
end.
Câu hỏi trong lớp
Xem thêm
