Viết lệnh trong pascal nhập vào 3 cạnh của tam giác sau đó tính chu vi của nó
K
Khách
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.
Những câu hỏi liên quan
7 tháng 11 2021
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;
}
ML
12 tháng 5 2023
Program HOC24;
var a,b,c: integer;
begin
write('Nhap canh thu nhat AB: '); readln(a);
write('Nhap canh thu hai BC: '); readln(b);
write('Nhap canh thu ba CA: '); readln(c);
if a*a+c*c=b*b then write('Tam giac vuong tai A');
if a*a+b*b=c*c then write('Tam giac vuong tai B');
if b*b+c*c=a*a then write('Tam giac vuong tai C');
readln
end.
3 tháng 4 2021
uses crt;
const fi='bai1.inp';
var f1:text;
a,b,c,cv,dt,p:real;
begin
clrscr;
assign(f1,fi); rewrite(f1);
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
write('Nhap c='); readln(c);
if (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a) then
begin
cv:=a+b+c;
p:=cv/2;
dt:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln(f1,'Chu vi la: ',cv:4:2);
writeln(f1,'Dien tich la: ',dt:4:2);
end
else writeln(f1,'Day khong la ba canh trong mot tam giac');
close(f1);
readln;
end.
13 tháng 2 2022
cho em hỏi cái này viết ra thuật toán thì viết kiểu sao ạ
7 tháng 11 2020
program tam_giac;
uses crt;
var a,b,c,p,S:real;
begin
clrscr;
write('nhap canh a:'); readln(a);
write('nhap canh b:'); readln(b);
write('nhap canh c:'); readln(c);
p:=(a+b+c)/2
S:=(p*(p-a)*(p-b)*(p-c));
writeln('chu vi hinh tam giac la:',p:10:2);
writeln('dien tich hinh tam giac la:',S:10:2);
readln;
end.
8 tháng 12 2016
Program nhu_cai_l;
User crt;
Var
a , b , c , h , S , P : Real ;
BEGIN
Writeln (' Nhap do dai 3 canh cua tam giac : ') ;
Write (' a = ') ; Readln ( a ) ;
Write (' b = ') ; Readln ( b ) ;
Write (' c = ') ; Readln ( c ) ;
Write (' h = ') ; Readln ( h ) ;
S:=1/2*a*h;
P:=a+b+c;
Writeln (' Chu vi tam giac do la:’,P) ;
Writeln (' Dien tich tam giac do la:’,S) ;
Readln
End.
H9
HT.Phong (9A5)
CTVHS
13 tháng 2 2023
uses crt;
var a: integer;
begin clrscr;
Writeln('Nhap vao do dai canh cua tam giac deu: '); readln(a);
Writeln('Chu vi cua tam giac deu do la: ',a*3);
readln;
end.
21 tháng 10 2021
#include <bits/stdc++.h>
using namespace std;
double x,y,z;
int main()
{
cin>>x>>y>>z;
cout<<"Dien tich la:"<<fixed<<setprecision(2)<<(x+y)/2*z;
return 0;
}
khái niệm về tên?Nêu các quy tắc đặt tên trong ngôn ngữ lập trình pascal?