Viết chương trình Pascal tính diện tích tam giác
Những câu hỏi liên quan
8 tháng 5 2023 lúc 19:11
viết chương trình tính diện tích của tam giác bằng ngôn ngữ lập trình pascal
Viết chương trình tính diện tích và chu vi tam giác trong pascal
Program Hinh_Tamgiac_Program;
Uses crt;
Var a,b,c,s,p : real;
Begin
Clrscr;
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) then
Begin
p:=(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);
End
Else
Writeln(a,’, ‘, b,’, ‘, c, ‘ khong phai la ba canh cua tam giac’) ;
Readln;
End.
Đúng 2
Bình luận (0)
viết chương trình tính chu vi tam giác vuông trong pascal
uses crt;
var a,b,c:real;
begin
clrscr;
readln(a,b,c);
writeln(a+b+c:4:2);
readln;
end.
Đúng 1
Bình luận (0)
1- Viết chương trình con tính diện tích hình tròn bán kính R ( sử dụng thủ tục hoặc hàm)
2- Viết chương trình con tính diện tích tam giác khi biết đáy và chiều cao nhập từ bàn phím.( sử dụng 1 thủ tục hoặc hàm để tính diện tích)
3- Viết chương trình con tính diện tích tam giác với độ dài các cạnh nhập từ bàn phím.(sử dụng 1 thủ tục hoặc hàm )
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)
1. viết chương trình nhập vào 4 số nguyên a, b, c, d .Tính tích và trung bình cộng của 4 số này
2. viết chương trình nhập vào 3 cạnh của 1 hình tam giác. Tính chu vi và diện tích của tam giác đó
3. viết chương trình nhập vào dộ cao của 1 vật. Tính vận tốc rơi tự do của vật đó
2:
#include <bits/stdc++.h>
using namespace std;
double a,b,c,p,s;
int main()
{
cin>>a>>b>>c;
p=(a+b+c)/2;
s=sqrt(p*(p-a)*(p-b)*(p-c));
cout<<fixed<<setprecision(2)<<s;
return 0;
}
Đúng 0
Bình luận (0)
C4:viết trương trình tính (có biến nhớ trong chương trình):
a,Diện tích hình chữ nhật.
b,Diện tích hìh tam giác.
b: #include <bits/stdc++.h>
using namespace std;
double a,b,c,p,s;
int main()
{
cin>>a>>b>>c;
p=(a+b+c)/2;
s=sqrt(p*(p-a)*(p-b)*(p-c));
cout<<fixed<<setprecision(2)<<p;
return 0;
}
Đúng 0
Bình luận (0)
30 tháng 10 2021 lúc 15:18
Viết chương trình pascal để tính diện tích hình chữ nhật với chiều dài là x, chiều rộng là y.
cái này thì mình ko chắc lắm!
Program Chu_nhat
uses crt;
Var x, y, S;
Begin Write(“Nhap chieu dai:”);
readln(x);
Write(“Nhap chieu rong:”);
readln(y);
S := x*y;
Writeln(“Dien tich hinh chu nhat la:”,S)
readln;
end.
Đúng 1
Bình luận (1)
Program HOC24;
var x,y: integer;
s: longint;
begin
write('Nhap chieu dai: '); readln(x);
write('Nhap chieu rong: '); readln(y);
S:=x;
S:=s*y;
write('Dien tich dien hinh chu nhat la: ',s);
readln
end.
Đúng 0
Bình luận (0)
viết chương trình Pascal:
-tính chu vi và diện tích hình tròn.
-kiểm tra chương trình với các biến của bán kính R lần lượt như sau 5,20,10,5,300.
giúp mình với ạ
Var r,s,c:real;
Begin
Write('Ban kinh = ');readln(r);
s:=3.14*r*r;
c:=2*3.14*r;
Writeln('Dien tich la ',s:10:2);
Write('Chu vi la ',c:10:2);
Readln
End.
Đúng 2
Bình luận (3)
13 tháng 1 2022 lúc 14:11
Viết chương trình Pascal tính diện tích hình chữ nhật biết chiều dài là x, chiều rộng là y
Program Chu_nhat
uses crt;
Var x, y, S;
Begin Write(“Nhap chieu dai:”);
readln(x);
Write(“Nhap chieu rong:”);
readln(y);
S := x*y;
Writeln(“Dien h hinh chu nhat la:”,S)
readln;
end.
