Bài 1: Viết chương trình tính chu vi và diện tích hình tròn với bán kính nhập từ bàn phím
Ví dụ: với bán kính bằng 9 ta có giao diện khi chạy như sau:
ví dụ: a=6 thì diện tích=10.26
Bài 3:Viết chương trình tính diện tích của phần hình được tô đen biết hình chữ nhật có chiều dài là a và chiều rộng b được nhập từ bàn phím. Lấy Pi=3.14, kết quả làm tròn lấy 2 số ở phần thập phân
ví dụ: a=8, b=6, diện tích phần tô đen =48.00
Bài 4:
Cho hình vuông có độ dài cạnh là a. Lấy một cạnh của hình vuông làm đường kính,
người ta vẽ 4 nửa hình tròn, chúng giao nhau thành một bông hoa có bốn cánh.
Hãy viết chương trình tính diện tích của bông hoa đó (phần tô xám)? Với độ dài a nhập từ bàn phím. Kết quả làm tròn lấy 2 số thập phân
ví dụ: với a=6 thì diện tích là 20.52
Bài 5:
Một ống bằng thép dài x mét. Khi một em
học sinh dùng búa gõ vào một đầu ống thì một em học sinh khác đặt tai ở đầu kia
của ống nghe thấy hai tiếng gõ: Tiếng nọ cách tiếng kia y giây
Viết chương trình tính vận tốc truyền âm trong
thép, biết vận tốc truyền âm trong không khí là 333m/s và âm truyền trong thép
nhanh hơn âm truyền trong không khí. Với x và y nhập từ bàn phím
ví dụ:
x=25 và y= 0.055 thì vận tốc là 1250 m/s
Program vd2;
Trả lờiXóaUses crt;
Var
A:integer;
Begin
Clrscr;
Writeln(‘nhap ban kinh=’);
Readln(a);
Write(‘chu vi hinh tron’,’=’,a*2*3.14);
Write(‘dien tich hinh tron’,’=’,a*a*3.14);
Readln;
End.
Bạn Thắng làm rất tốt bài 1 (9.5 điểm). Tuy nhiên em cần sửa lại 2 câu lệnh in cho đơn giản như sau:
Trả lờiXóawriteln('chu vi hinh tron=',a*2*3.14);
write('dien tich hinh tron=',a*a*3.14);
bài 1:
Trả lờiXóaprogram hinhtron;
uses crt;
var
r:integer;
begin
clrscr;
writeln('chu vi, dien tich hinh tron');
write('nhap ban kinh = '); readln(r);
writeln('chu vi hinh tron: ',a*2*3,14);
writeln('dien tich hinh tron: ',a*a*3,14);
readln;
end.
cho e sửa lại là:
Xóabài 1:
program hinhtron;
uses crt;
var
r:integer;
begin
clrscr;
writeln('chu vi, dien tich hinh tron');
write('nhap ban kinh = '); readln(r);
writeln('chu vi hinh tron: ',a*2*3.14);
writeln('dien tich hinh tron: ',a*a*3.14);
readln;
end.
bài 2:
Trả lờiXóaprogram bai2;
uses crt;
var
a:integer;
begin
clrscr;
writeln('dien tich phan to den');
write('nhap duong kinh = '); readln(a);
writeln('dien tich phan to den: ',(a/2*a/2*3,14)-(4*1/2*a/2*a/2));
readln;
end.
cho e sửa lại là:
Xóabài 2:
program bai2;
uses crt;
var
a:integer;
begin
clrscr;
writeln('dien tich phan to den');
write('nhap duong kinh = '); readln(a);
writeln('dien tich phan to den: ',(a/2*a/2*3.14)-(4*1/2*a/2*a/2));
readln;
end.
Cả 2 bài làm của Phương Linh rất tốt (20 điểm). Tuy nhiên ở phần in nên đặt ngoặc như sau
Xóawriteln('dien tich phan to den: ',3.14*(a/2)*(a/2)-2*(a/2)*(a/2));
dạ vâng, e cám ơn thầy ạ
Xóathầy ơi cho em hỏi 2*(a/2)*(a/2) lấy ở đâu ra vậy thầy.
Xóavar a,b,x,st,shcn,sh,sab,scd :real;
Trả lờiXóavegin
writeln('nhap a=');
readln(a);
writeln('nhap b=');
readln(b);
st:=(sqrt(a*a+b*b)/2)*(sqrt(a*a+b*b)/2)*3.14;
shcn:=a*b;
sh:=st-shcn;
sab:=(a/2)*(a/2)*3.14;
scd:=(b/2)*(b/2)*3.14;
x:=(sab+scd)-sh;
writeln('dien tich phan to den la',x);
readln
end.
st: diện tích hình tròn
shcn: diện tích hcn
sh : hiệu diện tích hình tròn và hcn
sab: diện tích hình tròn ab
scd: diện tích hình tròn cd
x: phần to đen cần tìm
Bài làm của Gia Phát rất tốt, giải thích cũng rất rõ ràng (10 điểm). Tiếp tục phát huy nhé
Trả lờiXóaprogram bong_hoa;
Trả lờiXóauses crt;
var
a,dtmnht,dt4nht,dthv:real;
begin
clrscr;
write(‘nhap a=’);readln(a);
dtmnht:=a*3.14/2;
dt4nht:=dtmnht*4;
dthv:=a*a;
write(‘dien tich cua bong hoa=’,dt4nht-dthv:0:2);
readln;
end.
var shv,sh,x,sht,a:real;
Trả lờiXóabegin
writeln('nhap a=');
readln(a);
shv:=a*a;
sht:a/2*a/2*3.14;
sh:=shv-sht;
x:=shv-sh*2;
writeln('dien tich bong hoa=',x:0:2);
readln;
end.
Bài của Phát đúng rồi nhưng Thắng và Phát phải giải thích rõ các biến mà các em dùng để thầy còn góp ý nhé (vì thầy cần các em hiểu rõ tại sao phải tính như vậy)
Trả lờiXóaprogram Ngo_Ba_Van;
Trả lờiXóauses crt;
var
a,b,dthcn,dtht,c,h2dt,dthtab,dthtcd:real;
begin
clrscr;
write('nhap a =');
readln(a);
write('nhap b =');
readln(b);
dtht:=(sqrt(a*a+b*b)/2)*(sqrt(a*a+b*b)/2)*3.14;
dthcn:=a*b;
h2dt:=dtht-dthcn;
dthtab:=a/2*a/2*3.14;
dthtcd:=b/2*b/2*3.14;
c:=(dthtab-h2dt)+(dthtcd-h2dt);
write(‘dien tich phan to den=’,c:0:3);
readln;
end.
Giải tích
a: chieu dai
b: chieu rong
dtht: dien tich hinh tron
dthcn: dien tich hinh chu nhat
dthtab: dien tich hinh tron AB
dthtcd: dien tich hinh tron CD
h2dt: hieu hai dien tich
Bài của Vạn khá tốt, giải thích rõ ràng. Nhưng em cần sửa lại một tý
Trả lờiXóalà c:=(dthtab+dthtcd)-h2dt;
var shv,sh,x,sht,a:real;
Trả lờiXóabegin
writeln('nhap a=');
readln(a);
shv:=a*a;
sht:a/2*a/2*3.14;
sh:=shv-sht;
x:=shv-sh*2;
writeln('dien tich bong hoa=',x:0:2);
readln;
end.
giải thích
shv:diện tích hình vuông
sht:diện tích hình tròn
sh:hiệu của diện tích hình vuông và diện tích hình tròn
x:diện tích bông hoa
program bai3;
Trả lờiXóauses crt;
var
a,b,Sht,Shcn,Hstv,Sab,Scd,Stđ:real;
begin
clrscr;
write(a); readln(a);
write(b); readln(b);
Sht:=(sqrt(a*a+b*b)/2)*(sqrt(a*a+b*b)/2)*3.14;
Shcn:=a*b
Hstv:=Sht-Shcn;
Sab:=(a/2)*(a/2)*3.14;
Scd:=(b/2)*(b/2)*3.14;
Stđ:=(Sab+Scd)-Hstv;
writeln('dien tich phan to den: ',Stđ);
readln;
end.
giải thích:
Sht: diện tích hình tròn
Shcn: d.tích hình chữ nhật
Hstv: hiệu d.tích h.tròn và h.vuông
Sab: d.tích h.tròn ab
Scd: d.tích h.tròn cd
Stđ: d.tích phần tô đậm
program bai4;
Trả lờiXóauses crt;
var
a,Shv,Sht,Shmt,Sbh:real;
begin
clrsrc;
write(a); readln(a);
Shv:=a*a;
Sht:=(a/2)*(a/2)*3.14;
Shmt:=2*(Shv-Sht);
Sbh:=Shv-Shmt;
writeln('dien tich bong hoa: ',Sbh);
readln;
end.
giải thích
Shv: d.tích hình vuông
Sht: d.tích hình tròn
Shmt: d.tích hình màu trắng
Sbh: d.tích bông hoa
program bt4;
Trả lờiXóauses crt;
var
a,sv,st,sktm,sh:real;
begin
write('nhap a=');
readln(a);
sv:=a*a;
st:=a/2*a/2*3.14;
sktm:=(sv-st)*2;
sh:=sv-sktm;
write('dien tich bong hoa=',sh:0:2);
readln;
end.
giải thích
a: cạnh hình vuông
sv: diện tích hình vuông
st: diện tích hình tròn
sktm: diện tích phần không tô màu
sh: diện tích bông hoa
program bai3;
Trả lờiXóauses crt;
var
a,b,Sht,Shcn,Hstv,Sab,Scd,Stđ:real;
begin
clrscr;
write('nhap a= '); readln(a);
write('nhap b= '); readln(b);
Sht:=(sqrt(a*a+b*b)/2)*(sqrt(a*a+b*b)/2)*3.14;
Shcn:=a*b
Hstv:=Sht-Shcn;
Sab:=(a/2)*(a/2)*3.14;
Scd:=(b/2)*(b/2)*3.14;
Stđ:=(Sab+Scd)-Hstv;
writeln('dien tich phan to den: ',Stđ);
readln;
end.
giải thích:
Sht: diện tích hình tròn
Shcn: d.tích hình chữ nhật
Hstv: hiệu d.tích h.tròn và h.vuông
Sab: d.tích h.tròn ab
Scd: d.tích h.tròn cd
Stđ: d.tích phần tô đậm
program bai4;
Trả lờiXóauses crt;
var
a,Shv,Sht,Shmt,Sbh:real;
begin
clrsrc;
write('nhap a= '); readln(a);
Shv:=a*a;
Sht:=(a/2)*(a/2)*3.14;
Shmt:=2*(Shv-Sht);
Sbh:=Shv-Shmt;
writeln('dien tich bong hoa: ',Sbh);
readln;
end.
giải thích
Shv: d.tích hình vuông
Sht: d.tích hình tròn
Shmt: d.tích hình màu trắng
Sbh: d.tích bông hoa
Bạn Huyền và Linh làm bài rất tốt. Chúc mừng các em, phát huy nhé
Trả lờiXóaprogam Ngo_Ba_Van;
Trả lờiXóauses crt;
var
a,dtht,dthv,dtbh:real;
begin
clrscr;
write('nhap a =');
readln(a);
dtht:=a/2*a/2*3.14;
dthhv:=a*a;
dtbh:=dthv-(dthv-dtht)*2;
readln;
end.
giải thích
a: là cạnh hình vuông
dtht:là dien tich hinh tron
dthv:la dien tich hinh vuong
dtbh: la dien tich bong hoa
uses crt;
Trả lờiXóavar x,y,tkk,tt,vt:real;
begin
clrscr;
write('nhap x=');
readln(x);
write('nhap y=');
readln(y);
tkk:=(x/333);
tt:=tkk-y;
vt:=x/tt;
writeln('van toc truyen am trong thep =',vt:0:2);
readln
end.
giải thích
tkk: thời gian âm thanh truyền trong không khí đến tai em hs
tt: thời gian âm thanh truyên trong thanh thép đến tai em hs
vt: vận tốc âm thanh truyền trong thanh thép đến tai em hs
Hom nay ngay 24/9/2020
Trả lờiXóaDương
Trả lờiXóaprogram baiBA;
var
a,b,scd,sab,sbd,sch,st:real;
begin
write('chieU dai=');readln(a);
write('chieu rong=');readln(b);
sch:=a*b;
st:=(sqrt(a*a+b*b)/2)*(sqrt(a*a+b*b)/2)*3.14;
scd:=b*3.14;
sab:=b*3.14;
sbd:=(sab+scd)-(st-sch);
writeln('dien tich phn boi den=',sbd:0:2);
{A=CHIEU DAI
B=CHIEU RONG
Scd=s nua c+s nua d
sab=s nua a+s nua b
st=dien tich hinh tron
sbd=dien tich boi den
sch=dien tich chu nhat}
readln;
end.
Dương
Trả lờiXóaprogram bainam;
var
x,y,tgt,tgkk,vtt: real;
write('nhap x=');readln(x);
write('nhap y=');readln(y);
tgkk:=x/333;
tgt:=tgkk-y;
vtt:=x/tgt;
writeln('thoi gian truyen am trong khong khi =',tgt:0:0);
readln;
end.
Dương cần xem lại: ví dụ a=8, b=6 thi dien tich =48.00
Trả lờiXóaa=4, b=3 thì die tich=12.00
Minh Ánh 8.5
Trả lờiXóavar
x,y,vthep: real;
write('ong thep dai= ', x);
readln(x);
write(' khoang cach truyen am= ',y);
readln(y);
vthep:= x/(x/333-y);
writeln(' van toc thep= ', vthep:0:2);
readln;
end.
Ghi chú:
vthep: vận tốc truyền âm của thép
Chau Anh 8/3
Trả lờiXóabai 4
var
dtbh,dthv,dt1,dt2,a:real;
begin
write('nhap a');
readln(a);
dthv:=a*a;
dt1:=dthv-3.14*(a/2)*(a/2);
dt2:=dthv-3.14*(a/2)*(a/2);
dtbh:=dthv-dt1-dt2;
writeln('Dien tich bong hoa=',dtbh:0:2);
readln;
end.
var
Trả lờiXóaa,b,sab,scd,st,sch,sbd:real;
begin
write('nhap a=');readln(a);{chieu dai}
write('nhap b=');readln(b);{chieu rong}
scd:=(b/2)*(b/2)*3.14;{dien tich nua tron c + s nua tron d}
sab:=(a/2)*(a/2)*3.14;{dien tich nua tron a + dien tich nua tron b}
sch:=a*b;{dien tich hinh chu nhat}
st:=(sqrt(a*a+b*b)/2)*(sqrt(a*a+b*b)/2)*3.14;
sbd:=(sch+sab+scd)-st;{dien tich phan boi den}
writeln('dien tich phan boi den =',sbd:0:2);
readln;
end.
bai tren cua duong 8/1
Trả lờiXóabai tren cua duong 8/1
Trả lờiXóaNhận xét này đã bị tác giả xóa.
Trả lờiXóaChau Anh 8/3
Xóabai 3
Sửa lại
var
a,b,dthcn,dtcnhtn,dtch,dthtt,dtptd:real;
begin
write('nhap a=');
readln(a);
write('nhap b=');
readln(b);
dthcn:=a*b; {dien tich hinh chu nhat}
dtcnhtn:=3.14*(a*a+b*b)/4; {dien tich cac nua hinh tron nho}
dtch:=dthcn+dtcnhtn; {dien tich ca hinh}
dthtt:=3.14*(a*a+b*b)/4; {dien tich hinh tron to}
dtptd:=dtch-dthtt; {dien tich phan to den}
write('Dien tich phan to den=',dtptd:0:2);
readln;
end.
Châu Anh làm chính xác bài 3 và 4 rồi nhé
Trả lờiXóa