nhap a,b gop lam 1 dc nhe

program Tich;

uses crt;

var a:b,Tich; integer;

begin

clrscr;

Write('nhap a va b='); readln(a,b);

Tich:a*b;

Writeln('tich cua a va b la:', Tich:1:0);

Readln;

end.

program Tich;

uses crt;

var a,b,Tich : integer;

begin

clrscr;

Write('Nhap a ='); readln(a);

Write('Nhap b='); readln(b);

Tich := a*b;

Writeln('Tich cua a va b la: ',Tich:8:20);

Readln;

end.

Không đúng (biên dịch lỗi).

Ở dòng 3, lệnh Writel bị viết sai chính tả. Ở dòng 7 thực hiện khai báo biến cho 2 biến a b ở phía trong hàm chính (thay vì nằm phía trên).

Chắc chắn là chương trình sẽ bị lỗi rồi

Bởi vì thứ nhất là bạn phải khai báo a,b trước khi bạn nhập

thứ hai là ở dòng 3 chữ writel bạn viết sai chính tả rồi

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);

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);

Lỗi 1: Sai từ khóa(Programe)

Lỗi 2: Dùng cú pháp hằng mà lại dùng từ khóa khai báo biến(Var a=real;)

Lỗi 3: Dùng sai từ đọc dữ liệu(Realn)

Lỗi 4: Thiếu dấu : ở cú pháp gán

Lỗi 5: End là từ khóa để kết thúc bài mà lại có dấu;

program chuong_trinh thiếu chấm phẩy

Sửa lại: program chuong_trinh;