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âu 1:
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) and (b>0) and (c>0);
if (a+b>c) and (a+c>b) and (b+c>a) then
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
else writeln('Day khong la ba canh trong mot tam giac');
readln;
end.
Câu 2:
uses crt;
var a:array[1..100]of integer;
i,n,t,max,min:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong cac phan tu trong day la: ',t);
max:=a[1];
min:=a[1];
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('Gia tri lon nhat la: ',max);
writeln('Gia tri nho nhat la: ',min);
readln;
end.
nếu câu b bài 2 được tách riêng thành 1 câu riêng biệt...thì thay thế bắt đầu từ đâu ạ
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) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln(s:4:2);
readln;
end.
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.
cho em hỏi cái này viết ra thuật toán thì viết kiểu sao ạ
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.
1:
function dt(r:real):real;
begin
dt:=sqr(r)*pi;
end;
2:
function dt(a,b:real):real;
begin
dt:=1/2*a*b;
end;
Tham khảo!
program Dien_tich_hinh_tam_giac;
uses crt;
var a,h : integer
S: real
begin:
clrscr;
Writeln(‘a= ‘); Readln(a);
Writeln(‘h= ‘); Readln(h);
S:= (a*h)/2
Writeln( Dien tich hinh tam giac co do dai 1 canh va chieu cao vua nhap la S= ‘,S);
Readln
end.
c++
#include<bits/stdc++.h>using namespace std;int main(){float a,b,c;cin>>b>>c>>a;float p=(a+b+c)/2;//cai nay minh ap dung he thu herong cho no nhanh nhacout<<sqrt(p*(p-a)*(p-c)*(p-b));return 0;}pascaluses crt;var a,b,c,p:real;begin clrscr;readln(a,b,c);p:=(a+b+c)/2;write(sqrt(p*(p-a)*(p-b)*(p-c)):4:2);readln;end.#include <bits/stdc++.h>
using namespace std;
int main() {
int a, b, c, C;
double p, S;
cin >> a >> b >> c;
if(a<=0) cout << "De sai";
if(b<=0) cout << "De sai";
if(b<=0) cout << "De sai";
C=a+b+c;
p=C/2;
S=sqrt(p*(p-a)*(p-b)*(p-c));
cout << "Chu vi tam giac la " << C << "\nDien tich tam giac la " << (double)S << endl;
return 0;
}
Chúc bn học tốt!
#include <bits/stdc++.h>
using namespace std;
int main() {
int a, b, c, C;
double p, S;
cin >> a >> b >> c;
C=a+b+c,
p=C/2,
S=sqrt(p*(p-a)*(p-b)*(p-c));
cout << "Chu vi tam giac la " << C << "\nDien tich tam giac la " << (double)S << endl;
return 0;
}
Chúc bn học tốt!
Mình không đọc kỉ đề nên không thấy cái chu vi cảm ơn bạn đã sửa
với lại khi mà mình tra lời mà mình xuống dòng nó không được nhà
(doble)S chi cho nó dài dòng bạn cái gì nó cũng ra mà
Anh Phạm không ghi (double)S thì nó chỉ ra int thôi nha