viết chương trình tính chu vi tam giác vuông trong pascal
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
NT
1
28 tháng 3 2021
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.
27 tháng 12 2021
uses crt;
var a:integer;
begin
clrscr;
readln(a);
writeln(a*4);
writeln(a*a);
readln;
end.
19 tháng 10 2021
var a,b,s:integer; c:word; begin write('nhap avà 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
TQ
3 tháng 11 2016
var a,b,s:integer;
c:word;
begin
write('nhap avà 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
25 tháng 3 2017
program CVDT;
uses crt;
var a,b,c,P,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.
TV
1
uses crt;
var a,b,c:real;
begin
clrscr;
readln(a,b,c);
writeln(a+b+c:4:2);
readln;
end.