Program Dien_tich_tam_giac;Var a,b,c:Integer; p,s:Real;Begin Writeln("DIEN TICH TAM GIAC"); Writeln("------------------"); Write("-Nhap so thu nhat: "); Readln(a); Write("-Nhap so thu nhị : "); Readln(b); Write("-Nhap so thu bố : "); Readln(c); If (a+b>c) And (b+c>a) And (c+a>b) Then Begin Writeln("+Dung la Tam giac"); p:=0.5*(a+b+c); s:=Sqrt(p*(p-a)*(p-b)*(p-c)); Writeln("+Dien tich= ",s:10:2); End Else Writeln("+Khong phai la Tam giac"); Writeln; Writeln(" Bam phyên de ket thuc"); ReadlnEnd.
Bạn đang xem: Viết chương trình tính diện tích tam giác
Program Hinh_Tamgiac_Program;Uses crt;Var a,b,c,s,p : real;BeginClrscr;Writeln(‘HINH TAM GIAC:’);Write(‘nhap a =’);readln(a);Write (‘nhap b =’);readln(b); Write(‘nhap c =’);readln(c);If ((a+b)>c)and((b+c)>a)and((a+c)>b) thenBeginp:=(a+b+c)/2;s:=sqrt(p*(p-a)*(p-b)*(p-c)); Writeln(‘Chu vi tam giac:’,2*p:4:2) ; Writeln(‘Dien tich tam giac:’,s:4:2);EndElseWriteln(a,’, ‘, b,’, ‘, c, ‘ khong pnhì la tía canh cua tam giac’) ;Readln;End.
Đúng 1
Bình luận (0)
1- Viết chương trình nhỏ tính diện tích hình trụ nửa đường kính R ( thực hiện thủ tục hoặc hàm)
2- Viết lịch trình con tính diện tích S tam giác khi biết lòng và chiều cao nhập trường đoản cú keyboard.( áp dụng 1 thủ tục hoặc hàm nhằm tính diện tích)
3- Viết lịch trình nhỏ tính diện tích S tam giác với độ lâu năm các cạnh nhập từ keyboard.(sử dụng 1 thủ tục hoặc hàm )
Lớp 11 Tin học tập Bài 17: Chương thơm trình con và phân loại
3
0
Gửi Hủy
1:
function dt(r:real):real;
begin
dt:=sqr(r)*pi;
end;
Đúng 0
Bình luận (0)
2:
function dt(a,b:real):real;
begin
dt:=1/2*a*b;
end;
Đúng 0
Bình luận (0)
3:
function dt(a,b,c:real):real;
var p,s:real;
begin
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
dt:=s;
end;
Đúng 0
Bình luận (0)
Viết chương trình tính diện tích tam giác có các cạnh bởi 7,9,12
Lớp 11 Tin học tập
1
0
Gửi Hủy
uses crt;
var p,dt:real;
begin
clrscr;
p:=(7+9+12)/2
s:=sqrt(p*(p-7)*(p-9)*(p-12))
writeln('dien tich la: ',s);
readln;
over.
Đúng 0
Bình luận (1)
Viết chương trình đơn giản dễ dàng bằng phương pháp thực hiện vệt "*" để sinh sản thành 1 hình tam giác ( công tác Pascal)
Lớp 8 Tin học Lập trình dễ dàng
3
0
Gửi Hủy
Tam giác vuông
Đúng 1
Bình luận (1)
Tam giác cân
Đúng 1
Bình luận (1)
Tam giác dạng gì vậy bạn? Cân, gần như xuất xắc là thường
Đúng 0
Bình luận (0)
các bài tập luyện 2: Viết lịch trình nhập tính diện tích tam giác, nhập độ nhiều năm cạnh a, b, c trường đoản cú keyboard. Công thức tính Diện tích là , p là nửa chu vi
Lớp 11 Tin học
1
0
Gửi Hủy
uses crt;
var a,b,c,p,s:real;
begin
clrscr;
repeat
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
write('Nhap c='); readln(c);
until (a>0) và (b>0) & (c>0) and (a+b>c) and (a+c>b) & (b+c>a);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln(s:4:2);
readln;
end.
Đúng 0
Bình luận (0)
viết công tác tính diện tích ,chu vi tam giác vuông biết 2 cạnh a,b
GIÚP MÌNH!!!!!
Lớp 11 Tin học tập Cmùi hương trình đơn giản
2
0
Gửi Hủy
var a,b,s:integer;
c:word;
begin
write("nhap avới b ");
read(a,b);
s:=a*b*1/2;
c:=(a+b)*2;
writeln("dien tich la "; s );
write("chu vi la "c);
readln
end
Đúng 0
Bình luận (0)
program CVDT;
uses crt;
var a,b,c,Phường,S;
begin
Writeln("Nhap a va b");
Readln(a,b);
c:= a*a +b*b; S:= (a*b)/2;
Writeln("Dien tich tam giac vuong la ",S);
writeln("Chu vi tam giac vuong la ", SQRT(c);
Readln;
end.
Xem thêm: Akamai Là Gì ? Akamai Những Điều Bạn Chưa Biết Khi Truy Cập Vào Các Trang
Đúng 0
Bình luận (0)
câu 1 viết công tác in ra màn hình hiển thị diện tích S cùng chu vi hình vuông vắn s : =a*a; p:=4*a;
câu 2 viết lịch trình tính tổng , tích với hiệu của hai số được nhập trường đoản cú bàn phím
câu 3 viết chương trình kiểm tra 3 số a,b,c có là cha cạnh của một tam giác hay không cùng với a,b,c là 3 số nhập trường đoản cú bàn phím
Lớp 8 Tin học tập Bài 2. Làm thân quen với lịch trình với ngữ điệu lập t...
1
0
Gửi Hủy
Câu 1:
uses crt;
var a,s,p:real;
begin
clrscr;
repeat
write('Nhap vị dai canh hinch vuong:'); readln(a);
until a>0;
p:=4*a;
s:=sqr(a);
writeln('Chu vi hinch vuong la: ',p:4:2);
writeln('Dien tich hinc vuong la: ',s);
readln;
end.
Câu 2:
uses crt;
var a,b,t,s,h:real;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
t:=a+b;
h:=a-b;
s:=a*b;
writeln('Tong la: ',t:4:2);
writeln('Hieu la: ',h:4:2);
writeln('Tich la: ',s:4:2);
readln;
end.
Câu 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) & (b>0) and (c>0);
if (a+b>c) and (a+c>b) và (b+c>a) then writeln('Day la cha canh vào mot tam giac')
else writeln('Day khong la cha canh trong mot tam giac');
readln;
end.
Đúng 0
Bình luận (0)
viết công tác nhập 3 số thực a,b,c trường đoản cú keyboard ( thực hiện chương trình bé thủ tục ) triển khai thứu tự các công việc sau :
a. soát sổ xem 3 số bên trên có lập thành 3 cạnh của tam giác hay là không ?
b. tính diện tích tam giác
c. tính các trung con đường của tam giác
d. viết hoàn thành chương trình chính
Lớp 11 Tin học tập Bài 17: Chương trình nhỏ cùng phân một số loại
1
0
Gửi Hủy
uses crt;
var a,b,c,p,s,am,bn,cp:real;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
write('Nhap c='); readln(c);
if (a>0) & (b>0) và (c>0) and (a+b>c) và (a+c>b) and (b+c>a) then
begin
writeln('Day la cha canh vào mot tam giac vuong');
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Dien tich tam giac la: ',s:4:2);
am:=sqrt(2*(sqr(b)+sqr(c))-sqr(a))/4;
bn:=sqrt(2*(sqr(a)+sqr(c))-sqr(b))/4;
cp:=sqrt(2*(sqr(a)+sqr(b))-sqr(c))/4;
writeln('Do dẻo duong trung tuyen ung voi canh a la: ',am:4:2);
writeln('Do dai duong trung tuyen ung voi canh b la: ',bn:4:2);
writeln('Do dai duong trung tuyen ung voi canh c la: ',cp:4:2);
end
else writeln('Day khong la ba canh trong mot tam giac');
readln;
end.
Đúng 1
Bình luận (0)
Tính diện tích tam giác với độ nhiều năm canh a với đường cao h tương xứng.a, Xác định bài xích tân oán, bộc lộ thuật toán.b, viết đoạn công tác tính diện tích S cùng với bí quyết S= ( a.h) :2
Lớp 8 Tin học tập Bài 5. Từ bài toán đến chương trình
3
0
Gửi Hủy
Input: chiều cao h và cạnh a
Output: diện tích S hình tam giác
Đúng 0
Bình luận (0)
B1: nhập 2 cạnh a,h
B2: s:=(a*h)/2;
B3: in ra màn hình
B4: xong xuôi ct
Đúng 0
Bình luận (0)
Đúng 0
Bình luận (0)
balkanpoliticalclub.net