Chiều nay mình sẽ kiểm tra, là kiểm tra thực hành TIN HỌC một tiết!
Mình ngu lắm, ngu tin lắm, thế nên coi như thương mình đi, trả lời giúp mình hai câu hỏi này nhé, chỉ hai câu thôi...
Bài 1: Viết chương trình xác định số lớn nhất của hai số nguyên, được nhập từ bàn phím.
Bài 2: Viết chương trình nhập 2 số nguyên khác nhau từ bàn phím và in 2 số đó ra màn hình theo thứ tự tăng dần.
Giúp mình nhé, có 7 câu cô giao, giải được 5 câu rồi, còn 2 câu này thì vẫn ngu :<< nói chung xin các bạn giúp nhé, cảm ơn nhiều <33
2)
Var x,y: integer;
Begin
Write('Nhap x: '); readln(x);
Write('Nhap y: '); readln(y);
If x=y then writeln('Khong the thuc hien yeu cau');
If x>y then writeln('Sap xep theo gia tri tang dan: ',y,',',x);
If x<y then writeln('Sap xep theo gia tri tang dan: ',x,',',y);
Readln;
End.
chỉ cần bạn cố gắng học tin và làm bài tập thật nhiều là bạn sẽ giỏi thôi
bài 1:
uses crt;
var a,b:integer;
begin
clrscr;
write('nhap a='); readln(a);
write('nhap b='); readln(b);
if a>b then writeln('so lon nhat trong hai so ',a,' va ',b,' la: ',a);
if a<b then writeln('so lon nhat trong hai so ',a,' va ',b,' la: ',b);
if a=b then writeln('khong co so lon nhat trong hai so ',a,' va ',b);
readln;
end.
bài 2:
uses crt;
var a,b:integer;
begin
clrscr;
repeat
write('a='); readln(a);
write('b='); readln(b);
if a=b then writeln('ban da nhap sai, yeu cau ban nhap lai');
until a<>b;
if a>b then writeln(a,' ',b);
if a<b then writeln(b,' ',a);
readln;
end.
