Question

1) Viết chương trình so sánh hai số a và b theo hai dạng (đủ, thiếu)

2) Cho đoạn chương trình sau:

Program sua loi;

var a,b,s =real

Begin

write ('nhap a=') , readln('a');

write (nhap b=') , readln(b')

s:= (a*b)/2;

write ('s=s);

readln

End.

Answer 1

Câu 1:

*Dạng 1: Dạng thiếu

uses crt;

var a,b:integer;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

if a>b then writeln(a,' lon hon ',b);

if b>a then writeln(b,' lon hon ',a);

if a=b then writeln('hai so bang nhau');

readln;

end.

*Dạng 2: Dạng đủ

uses crt;

var a,b:integer;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

if a>b then writeln(a,' lon hon ',b)

else if a<b then writeln(b,' lon hon ',a)

else writeln('hai so bang nhau');

readln;

end.

Câu 2:

-Lỗi 1: var a,b,s=real;

Sửa lại: var a,b,s:real;

-Lỗi 2: write('nhap a='),

Sửa lại: write('nhap a=');

-Lỗi 3: readln('a');

Sửa lại: readln(a);

-Lỗi 4: Write(nhap b='),

Sửa lại: write('nhap b=');

-Lỗi 5: readln(b');

Sửa lại: readln(b);

-Lỗi 6: write('s=s);

sửa lại: write('s=',s);

Answer 2

Câu 1:

*Dạng 1: Dạng thiếu

uses crt;

var a,b:integer;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

if a>b then writeln(a,' lon hon ',b);

if b>a then writeln(b,' lon hon ',a);

if a=b then writeln('hai so bang nhau');

readln;

end.

*Dạng 2: Dạng đủ

uses crt;

var a,b:integer;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

if a>b then writeln(a,' lon hon ',b)

else if a<b then writeln(b,' lon hon ',a)

else writeln('hai so bang nhau');

readln;

end.

Câu 2:

-Lỗi 1: var a,b,s=real;

Sửa lại: var a,b,s:real;

-Lỗi 2: write('nhap a='),

Sửa lại: write('nhap a=');

-Lỗi 3: readln('a');

Sửa lại: readln(a);

-Lỗi 4: Write(nhap b='),

Sửa lại: write('nhap b=');

-Lỗi 5: readln(b');

Sửa lại: readln(b);

-Lỗi 6: write('s=s);

sửa lại: write('s=',s);