Tin học 8

[Hân Trần]

[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.

Hãy liệt kê các lỗi, điền từ khuyết, sắp xếp lại các câu lệnh trong chương trình sau:
1. Program Bai11;
2. ............. a,b,H:integer;
3. .................c=12;
5. Begin
6. Clrscr;
7. write('nhap a-'); Readln(a);
8. write('nhap b=');.............(b)
9. H:=a*a+b*b+c;
10. Readln;
11. Writeln('H=',H);
12. ........

 

[thienabc]

1. Program Bai11;
2. Var a,b,H:integer;
3.Const c=12;
5. Begin
6. Clrscr;
7. write('nhap a-'); Readln(a);
8. write('nhap b=');readln(b)
9. H:=a*a+b*b+c;
10. Readln;
11. Writeln('H=',H);
12.end.
Tự làm

 

[Narumi04]

Hãy liệt kê các lỗi, điền từ khuyết, sắp xếp lại các câu lệnh trong chương trình sau:
1. Program Bai11;
2. ............. a,b,H:integer;
3. .................c=12;
5. Begin
6. Clrscr;
7. write('nhap a-'); Readln(a);
8. write('nhap b=');.............(b)
9. H:=a*a+b*b+c;
10. Readln;
11. Writeln('H=',H);
12. ........

Program Bai11;
Uses crt;
Var a, b, H:integer;
Const c=12;
Begin
Clrscr;
writeln('nhap a= '); readln(a);
writeln('nhap b= '); readln(b);
H:=a*a+b*b+c; readln(H);
Writeln('H= ',H);
End.

Note: chỗ write, cậu có thể dùng write hay writeln đều được, nhưng writeln xuống dòng đẹp mắt chương trình hơn nhé.