Câu 2 : Viết chương trình đưa thông báo sau ra màn hình, mỗi thông báo trên một dòng:
Câu 3: Viết chương trình tính tổng của 2 số nguyên a và b, với a, b được nhập từ bàn phím
Bài 4: Viết chương trình tính chu vi, diện tích của hình tròn với bán kính được nhập vào từ bàn
phím?
Bài 5: Viết chương trình tìm số lớn nhất trong 2 số nguyên a, b
Câu 6: Viết chương trình cho phép người dùng nhập 1 số nguyên từ bàn phím, chương trình sẽ cho
biết số đó là số chẵn hay lẻ.
Câu 8: Bạn Tuấn viết chương trình như sau:
Program sualoi;
Var a,b: integer;
Begin;
Write( nhap so thu nhat: ); readln(‘a’);
Write( nhap so thu hai: ); readln(‘b’);
Write( ‘tong cua hai so la:’, a-b );
Real
End;
Em hãy tìm lỗi sai và sửa lại cho đúng để bạn Tuấn chạy được chương trình
2/
Program BTH;
uses crt;
Begin
clrscr;
Writeln(‘ PHONG GD-DT DINH QUAN ‘);
Writeln(‘TRUONG THCS NGO THOI NHIEM ‘);
readln;
end.
3/
Program BTH;
uses crt;
var a,b,c:integer;
Begin
clrscr;
Write(‘Nhap a: ‘);readln(a);
write(‘Nhap b: ‘);readln(b);
c:=a+b;
writeln(‘Tong hai so tren la: ‘,c);
readln;
end.
4/
Program BTH;
Uses crt;
var a,b,c:real;
begin
clrscr;
write(‘Nhap ban kinh hinh tron: ‘);readln(a);
b:=a*2*pi;
c:=sqr(a)*pi;
writeln(‘Chu vi hinh tron la: ‘,b:4:2);
writeln(‘Dien tich hinh tron la: ‘,c:4:2);
readln;
end.
5/
Program BTH;
uses crt;
var a,b:integer;
Begin
clrscr;
Write(‘Nhap a: ‘);readln(a);
write(‘Nhap b: ‘);readln(b);
If a>b then writeln(a,’ lon hon ‘,b) else writeln (b,’ lon hon ‘,a);
readln;
end.
6/
Program BTH;
uses crt;
var a:integer;
Begin
clrscr;
Write(‘Nhap a: ‘);readln(a);
If a mod 2=0 then writeln(a,’ la so chan’) else writeln(a,’ la so le);
readln;
end.
8/
Program sualoi;
Var a,b: integer;
Begin;
Write( nhap so thu nhat: ); readln(‘a’);
Write( nhap so thu hai: ); readln(‘b’);
Write( ‘tong cua hai so la:’, a-b );
Real
End;
Chỗ sai in đậm
Sửa lại
Program sualoi;
Var a,b: integer;
Begin
Write( nhap so thu nhat: ); readln(a);
Write( nhap so thu hai: ); readln(b);
Write( ‘tong cua hai so la:’, a+b );
Readln;
End.
Bài 2: Còn mấy cái progam tự điền nhé ^^
Begin
Writeln( ‘ Phong Giao Duc Va Dao Tao’);
Writeln(‘ Truong THCS Vo Thi Sau’);
Writeln(‘ Em Ten La:………..’);
Readln;
End.
Bài 3:
Uses crt;
Var a,b:integer;
Begin
clrscr;
Writeln(‘Nhap so a ‘);
Readln(a);
Writeln(‘Nhap so b ‘);
Readln(b);
Writeln(‘Tong hai so a va b la ‘,a+b);
Readln;
end.
Bài 4:
program hinhtron;
var r:real;
const pi=3.14;
begin
clrscr;
Write(‘Nhap ban kinh:’);
readln(r);
Writeln(‘Chu vi hinh tron la:’,2*pi*r);
Writeln(‘Dien tich hinh tron la:’,pi*r*r);
readln
end.