Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
uses crt: thư viện crt;
var a,b,c:real có nghĩa là khai báo a,b,c kiểu số thực
d,x1,x2: real là khai báo d,x1,x2 kiểu số thực
begin: bắt đầu
write('a,b,c:'); : viết(a,b,c)
readln(a,b,c); : đọc(a,b,c)
d:=b*b-4*a*c; : delta được gán bằng b bình -4 nhân a nhân c
if d<0 then writeln('phuong trinh vo nghiem'): nếu d<0 thì viết('phuong trinh vo nghiem')
else: ngược lại
gán x1,x2 lần lượt là hai nghiệm của phương trình
xuất hai nghiệm đó ra màn hình
xong rồi readln; end. có nghĩa là kết thúc chương trình
Câu 1: Để tính diện tích của hình thang, lệnh gán nào sau đây là đúng?
\n\nA. S: (a+b)*H/2; B. S=(a+b)*H/2; C. S:=(a+b)*H/2 ;D. S;= (a+b)*H/2;
\n\nCâu 2: Biến T có thể nhận các giá trị 5,5; 7,3; 8,9; 34; 12. Ta có thể khai báo T thuộc kiểu dữ liệu gì?
\n\nA. Byte B. Word C. Real D. Integer
\n\nCâu 3: Để nhập giá trị vào và gán cho biến x ta thực hiện lệnh nào sau đây ?
\n\nA. Write(x); B. Real(x); C. Writeln(x); D. Readln(x);
\n\nCâu 4: Trong Pascal, biểu thức nào biểu diễn biểu thức tính chu vi hình chữ nhật với 2 cạnh a và b?
\n\nA. a*b B. a+b*2 C. (a+b)*2 D. a*b*2
\n\nCâu 5: Biểu thức Logic nào sau đây dùng để kiểm tra N là số chẵn hay lẽ?
\n\nA. N mod 2 <> 0 B. N div 2 <> 0 C. N > 0 D. N – 2 > 0
\n
tự luận bài 5
uses crt;
var a,b,c,d:integer;
tbc:real;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
write('d='); readln(d);
tbc:=(a+b+c+d)/4;
writeln('trung binh cong cua 4 so la: ',tbc:4:2);
readln;
end.
Đáp án đúng : C