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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
4 tháng 5 2021
uses crt;
var a,b:integer;
{---------------ve-hinh-chu-nhat---------------------}
procedure ve(x,y:integer);
var i,j:integer;
begin
for i:=1 to x do
begin
for j:=1 to y do
write('*');
writeln;
end;
end;
{------------------chuong-trinh-chinh---------------}
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
ve(a,b);
writeln;
ve(2*a,2*b);
writeln;
ve(3*a,3*b);
readln;
end;
21 tháng 5 2020
1:
procedure nhap(var a,b,c:real);
begin
Repeat
write('Nhap canh thu nhat:'); readln(a);
write('Nhap canh thu hai:'); readln(b);
write('Nhap canh thu ba:'); readln(c);
Until (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a);
end;
2:
function max(var x,y:real):real;
begin
max:=x;
if max<y then max:=y;
end;
19 tháng 5 2021
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) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a) then
begin
writeln('Day la ba canh trong 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 dai 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.
22 tháng 7 2023
a = float(input('Nhập cạnh thứ nhất (A): '))
b = float(input('Nhập cạnh thứ hai (B): '))
c = float(input('Nhập cạnh thứ ba (C): '))
if a == b == c:
print('Tam giác đều')
elif a == b or b == c or c == a:
if a*a + b*b == c*c or a*a + c*c == b*b or b*b + c*c == a*a:
print('Tam giác vuông cân')
else:
print('Tam giác cân')
elif a*a + b*b == c*c or a*a + c*c == b*b or b*b + c*c == a*a:
print('Tam giác vuông')
else:
print('Tam giác thường')
7 tháng 7 2020
Bài 1:
*Hàm
function dientich(var x:integer):real;
begin
dientich:=sqr(x);
end;
*Thủ tục:
procedure dientich(var x:integer);
var dt:real;
begin
dt:=sqr(x);
writeln('Dien tich hinh vuong la: ',dt:0:0);
end;
Bài 2:
*Thủ tục:
procedure dientich(var a,b,c:real);
var p,s:real;
begin
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Dien tich tam giac la: ',s:4:2);
end;
*Hàm
function dientich(var a,b,c:real):real;
var p,s:real;
begin
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
dientich:=s;
end;
Bài 3:
*Thủ tục
procedure hoandoi(var a,b:integer);
var tam:integer;
begin
tam:=a;
a:=b;
b:=tam;
end;
19 tháng 5 2021
<bits/stdc++.h>
using namespace std;
int DTT(int a, int b, int c)
int m = sqrt(2*b*b+2*c*c-a*a)/2;
return m;
int main()
int a, b, c, m;
cout << "Nhap ba canh tam giac" << endl;
cin >> a >> b >> c;
m = DTT(a,b,c);
cout << m;
return 0;
end.
19 tháng 5 2021
uses crt;
var a,b,c:real;
{-----------------chuong-trinh-con--------------------}
function ttuyen(x,y,z:real):integer;
begin
ttuyen:=(2*(sqr(ab)+sqr(ac))-sqr(bc));
end;
{---------------chuong-trinh-chinh-----------------------}
begin
clrscr;
repeat
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
until (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a);
writeln(sqrt(ttuyen(a,b,c))/4:4:2);
readln;
end.
18 tháng 2 2022
uses crt;
var a,b,c:real;
begin
clrscr;
readln(a,b,c);
if (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a) then
begin
if (a=b) and (b=c) then write('Day la tam giac deu')
else writeln('Day khong la tam giac deu');
end
else writeln('Day khong la ba canh trong mot tam giac');
readln;
end.