Question

1,viết chương trình in ra số lớn hơn trong 2 số (dc nhập từ bàn phím)

2,viết chương trình in ra số lớn nhất trong 4 số nhập từ bàn phím

3,viết chương trình in ra số lớn nhất trong 4 số nhập từ bàn phím với điều kiện chỉ dc dùng 2 biến

4, viết chương trình xét xem 1 tam giác có là tam giác đều hay ko khi biết 3 cạnh của tam giác

5,viết chương trình xét xem 1 tam giác có là tam giác cân hay ko khi biết 3 cạnh của tam giác

6,viết chương trình xét xem 1 tam giác có là tam giác vuông hay ko khi biết 3 cạnh của tam giác

7,viết chương trình giải phương trình ax +b=0(các hệ số a,b dc nhập từ bàn phím)

ĐỀ CƯƠNG KIỂM TRA 1 TIẾT THỰC HÀNH :)

Answer 1

1.

program bai1;

uses crt;

var t1,t2,max: integer;

begin

clrscr;

write('nhap so thu nhat ='); readln(t1);

write('nhap so thu hai ='); readln(t2);

max:=t1;

if max > t2 then write('so lon nhat la so thu nhat ') else

write('so lon nhat la so thu 2 hai ');

readln;

end.

Answer 2

2.

program bai2 ;

uses cer;

var a,b,c,d,max: integer;

begin

clrscr;

write('nhap so thu nhat ='); readln(a);

write('nhap so thu hai ='); readln(b);

write('nhap so thu ba ='); readln(c);

write('nhap so thu tu ='); readln(d):

max:=a;

if max > b then write('so lon nhat la so ',a,' ') else

write('so lon nhat la so ',b,'');

if max > c then write('so lon nhat la so ',a,' ') else

write('so lon nhat la so ',c,' ');

if max > d then write('so lon nhat la so ',a,' ') else

write('so lon nhat la so ',d,'');

readln;

end.

Answer 3

câu 4,5,6.

program tam_giac;

uses crt;

var a,b,c: real;

begin

clrscr;

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

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

write('nhap canh c ='); readln(c);

if ( a+b < c) or ( a+c < b) or ( b+c < a) then

write('khong phai ba canh cua tam giac ') else

if ( a=b) and (b=c) then writeln('la tam giac deu ') else

if (a=b) or (b=c) or (c=a) then writeln('la tam giac can ') else

if (a*a=b*b+c*c) or (b*b=a*a+c*c) or ( c*c=a*a+b*b) then

writeln('la tam giac vuong') else

writeln('khong phai so do 3 canh cua tam giac deu ',' tam giac can ',' tam giac vuong');

readln;

end.

Answer 4

7.

program pt ax+b=0;
uses crt;
var a, b: logint;
Begin
write('nhap so a ='); Readln(a);
write('nhap so b ='); readln(b);
If (a = 0 and b = 0)
then write ('pt co nghiem x thuoc R')
else
if (a=0 and b#0) then write('pt vo nghiem')
else
write(nghiẹm la x=': -b/a);
readln
end.