Tin học Viết chương trình

[0914335145]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Viết chương trình nhập 2 số nguyên a và b khác nhau từ bàn phím và in hai số đó ra màn hình theo thứ tự không giảm.

 

[Valhein AIC]

uses crt;
var a,b: integer;
begin
clrscr;
write('nhap so a: ');readln(a);
write('nhap so b: ');readln(b);
write('hai so a va b ban vua nhap la: ',a);
write('va ',b);
readln;
end.

 

[02-07-2019.]

uses crt;
var a,b: integer;
begin
clrscr;
write('nhap so a: ');readln(a);
write('nhap so b: ');readln(b);
write('hai so a va b ban vua nhap la: ',a);
write('va ',b);
readln;
end.

Mình nghĩ là bạn cần so sánh đã chứ nhỉ?
Code của mình:

Uses crt;
Var a,b:integer;
Begin
write('Nhap so a: ');readln(a);
write('Nhap so b: ');readln(b);
If a<=b then 
Begin
write('Hai so a va b ban vua nhap la: ',a);
write(' va ',b);
End
Else 
Begin
write('Hai so a va b ban vua nhap la: ',b);
write(' va ',a);
End;
End.

 

[tung01212]

Mình nghĩ là bạn cần so sánh đã chứ nhỉ?
Code của mình:

Uses crt;
Var a,b:integer;
Begin
write('Nhap so a: ');readln(a);
write('Nhap so b: ');readln(b);
If a<=b then
Begin
write('Hai so a va b ban vua nhap la: ',a);
write(' va ',b);
End
Else
Begin
write('Hai so a va b ban vua nhap la: ',b);
write(' va ',a);
End;
End.

Code của bạn bị sai rồi, nếu như nhập a > b thì kết quả in ra hiển thị sai thứ tự

 

[02-07-2019.]

Code của bạn bị sai rồi, nếu như nhập a > b thì kết quả in ra hiển thị sai thứ tự
View attachment 150594

Vâng thì đề yêu cầu là :" không giảm " mà ạ!
2 xuống 1 thì lại là giảm rồi ạ.

 

[tung01212]

Vâng thì đề yêu cầu là :" không giảm " mà ạ!
2 xuống 1 thì lại là giảm rồi ạ.

Bạn hiểu sai ý mình rồi, nếu vậy kết quả in ra phải là : Hai số b và a là 1 và 2 thì mới chuẩn

 

[Valhein AIC]

Mình nghĩ là bạn cần so sánh đã chứ nhỉ?
Code của mình:

Uses crt;
Var a,b:integer;
Begin
write('Nhap so a: ');readln(a);
write('Nhap so b: ');readln(b);
If a<=b then
Begin
write('Hai so a va b ban vua nhap la: ',a);
write(' va ',b);
End
Else
Begin
write('Hai so a va b ban vua nhap la: ',b);
write(' va ',a);
End;
End.

bạn thiếu lệnh readln rồi