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.
1:
uses crt;
var a,b:integer;
s:real;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
if (a>0) and (b>0) then
begin
s:=(a*a*a+b*b*b)/(sqrt(a+b));
writeln('A=',s:4:2);
end
else writeln('vui long nhap hai so duong');
readln;
end.
2:
uses crt;
var a,b,s:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
if a mod 5<>0 then
begin
s:=a*b;
writeln('tich cua hai so la: ',s);
end
else writeln('vui long nhap a khong chia het cho 5');
readln;
end.
3: Bạn xem lại đề , Hình như phải là 2+4+6+...+2*n chứ bạn
1:
uses crt;
var a,b:real;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
if a<>0 then writeln('Nghiem cua phuong trinh la: ',-b/a:4:2)
else writeln('Phuong trinh vo nghiem');
readln;
end.
2:
uses crt;
var n:real;
begin
clrscr;
write('Nhap n='); readln(n);
if n>=0 then writeln('Can bac hai cua n la: ',trunc(sqrt(n)))
else writeln(n,' khong co can bac hai');
readln;
end.
3:
uses crt;
var a,b,c:real;
begin
clrscr;
repeat
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
write('Nhap c='); readln(c);
until (a>0) and (b>0) and (c>0);
if (a+b>c) and (a+c>b) and (b+c>a) then writeln('Day la do dai ba canh trong mot tam giac')
else writeln('Day khong la do dai ba canh trong mot tam giac');
readln;
end.
Câu 3: Viết câu lệnh rẽ nhánh tìm nghiệm của BPT ax2+bx+c>0 (a>0)
Đáp án :
Program gptb2; Uses crt; Var a,b,c:real; D,X1,X2:real; Begin Clrscr; Write(‘a,b,c:’); Readln(a,b,c); D:=b*b-4*a*c; If D<0 then writeln(‘Phuong trinh vo nghiem ’) Else Begin X1:=(-b-sqrt(D))/(2*a); X2:=-b/a-X1; Writeln(‘X1=’,X1:8:3,’ X2=’,X2:8:3); End; Readln; End.
HT
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
Uses crt;
Var a,b: real;
Begin
Clrscr;
Writeln('Nhap a,b');
Realn(a,b);
If (a>0) and (b>0) then writeln('Tich cua a,b la:', a*b)
else writeln('Yeu cau nhap lai');
Readln;
End.
quá dễ
uses crt;
var r:integer;
cv,dt:real;
begin
clrscr;
repeat
write('nhap ban kinh:'); readln(r);
if r<0 then writeln('nhap lai');
until r>0;
cv:=2*r*pi;
writeln('chu vi hinh tron la: ',cv:4:2);
dt:=sqr(r)*pi;
writeln('dien tich hinh tron la: ',dt:4:2);
readln;
end.
Program HINHTRON;
Uses Crt;
Var r,dt,cv:real;
Const pi=3.14;
Begin
Clrscr;
Writeln('TINH DIEN TICH HINH TRON:');
Write ('Nhap ban kinh R=');readln(r);
dt:=pi*r*r;
Writeln('Dien tich hinh tron la:',dt:6:2);
Readln;
if a+b<>0 then write(sqrt(a+b));
if a+b=0 then writeln(-(sqrt(a+b)));
if a+b<0 then writeln( sqrt(a+b));
k chắc nữa
Thank you bạn