1A 2B 3B 5C 6D 7C 8C 9B

4. Đoạn chương trình kiểm tra xem a mod 2 có bằng 0 hay không, nếu đúng thì in ra màn hình ' a la so chan'.

Câu 1:

program pt;
uses crt;
var a, b, c :real;
    D, x1, x2: real;
begin
clrscr;
write('nhap gia tri a :'); readln(a);
write('nhap gia tri b :'); readln(b);
write('nhap gia tri c :'); readln(c);
D := b*b - a*a*c;
if D < 0 then writeln('phuong trinh vo nghiem')
else
begin
x1 := (-b - sqrt(D))/(2*a);
x2 := -b/a - x1;
writeln('hai nghiem phan biet cua phuong trinh la :   x1 = ', x1:8:2,' x2 = ', x2:8:2);
end;
readln
end.

Câu lệnh rẽ nhánh :

if D < 0 then writeln('phuong trinh vo nghiem')
else
begin
x1 := (-b - sqrt(D))/(2*a);
x2 := -b/a - x1;
writeln('hai nghiem phan biet cua phuong trinh la :   x1 = ', x1:8:2,' x2 = ', x2:8:2);
end;

Câu 2:

program re_nhanh;
uses crt;
var x, y, A :real;
begin
clrscr;
write('nhap gia tri x :');readln(x);
write('nhap gia tri y :');readln(y);
if ((sqr(x) + sqr(y )) <= 1) then 
begin
A := x + y;
writeln('gia tri cua A la :', A:8:2);
end;
if (sqr(x) + sqr(y ) <= 1) and (x>= 0) and (y>=0) then
begin
A := abs(x + y);
writeln('gia tri cua A la :', A:8:2);
end;
if (sqrt(x + y) > 1) then
begin
A := 1/2;
writeln('gia tri cua A la :', A:8:2);
end;
readln
end.