1, Viết chương trình nhập vào bán kính hình tròn và viết ra chu vi
2, Viết chương trình kiểm tra xem 1 tam giác có phải là tam giác cân ko khi biết 3 cạnh của tam giác đó
3, Viết chương trình nhập từ bàn phím 3 số A, B, C và tính tổng, tính trung bình 3 số đó
4, Viết chương trình in ra màn hình 3 số lớn hơn trg 3 số A và B. Các số A và B nhập từ bàn phím
5, Viết chương trình nhập vào 2 cạnh của hình chữ nhật và in ra màn hình cạnh huyền, chu vi và diện tích hình chữ nhật đó
6, Viết chương trình tính chu vi và diện tích hình vuông cạnh a nhập từ bàn phím
AI GIÚP BĂNG VỚI....ĐC CÂU NÀO HAY CÂU NẤY Ạ 😥😥
1, program chuvi;
uses crt;
var r:real;
begin
write('nhap ban kinh r'); readln(r);
write('chu vi hinh tron la',r*2*3.14);
readln
end.
2, program kiemtra;
var a,b,c:real;
begin
write('nhap canh a,b,c'); readln(a,b,c);
if (a=b) or (b=c) or (c=a) then write('la tam giac can') else write('khong phai tam giac can');
readln
end.
3,5,6, tuong tu 1
4,xem lai de
1)
var a,V : real ;
begin
write('nhap ban kinh'); readln(a);
begin
V:=a*2*3.14
end;
write('chu vi la',V);
readln
end.
2)
var a,b,c : real ;
write('nhap canh a'); readln(a);
write('nhap canh b'); readln(b);
write('nhap canh c'); readln(c);
If (a=b) or (b=c) or (c=a) then write('tam giac la tam giac can') else write('khong phai tam giac can);
readln
end.
3) Câu hỏi của Phạm Huyền Trang - Tin học lớp 8 | Học trực tuyến
6)
var a,S,V : real;
begin
write('nhap canh a'); readln(a);
begin
S:=a*a;
V:=a*4
end;
write('dien tich la',S);
write('chu vi la',V);
end.
3.
uses crt;
var a,b,c,s,tbc:real;
begin
write('Nhap vao so A = ');readln(a);
write('Nhap vao so B = ');readln(b);
write('Nhap vao so C = ');readln(c);
s:=a+b+c;
tbc:=s/3;
writeln('tong la ',s:10:2);
write('trung binh cong la ',tbc:10:2);
readln;
end.
6.
uses crt;
var a,p,s:real;
begin
write('nhap vao do dai canh hinh vuong ');readln(a);
p:=4*a;
s:=a*a;
writeln('Chu vi hinh vuong la ',p:10:2);
write('Dien tich hinh vuong la ',s:10:2);
readln;
end.