Viết chương trình tính diện tích hình thang biết độ dài 2 đaỳva đường cao các đại lượng nhập từ bàn phím
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 2:
#include <bits/stdc++.h>
using namespace std;
double a,b,cv,dt;
int main()
{
cin>>a>>b;
cv=(a+b)*2;
dt=a*b;
cout<<"Chu vi la:"<<fixed<<setprecision(2)<<cv<<endl;
cout<<"Dien tich la:"<<fixed<<setprecision(2)<<dt;
return 0;
}
Uses crt;
Var a, h:real;
Begin
Readln(a);
Readln(h);
Writeln(a*h/2);
Readln
End.
bạn thêm lệnh xoá màn hình vào cho dễ này, và chỗ readln thêm ; vào
Uses crt;
Var a, h:real;
Begin
clrscr;
Readln(a);
Readln(h);
Writeln(a*h/2);
Readln;
End.
Tổng n số tự nhiên đầu tiên:
Var i,n,s:integer;
Begin
Write('n = ');
for i:=1 to n do
s:=s+i;
Write('Tong la ',s);
Readln
End.
Tích các số từ 5 đến 30
Var i,p:longint;
Begin
p:=1;
For i:=5 to 30 do
P:=p*i;
Write('Tich la ',p);
Readln
End.
CÂU 1:
program hinhchunhat;
var a,b,S,C: real;
begin
Write('Nhapdodaicanhthuchata=');readln(a);
Write('Nhapdodaicanhthuhaib=');readln(b);
S:= a*b;
C:=(a+b)*2;
Writeln('Dientichhinhchunhatla:',S);
Writeln('Chuvihinhchunhatla:',C);
readln
end.
CHÚC BẠN HỌC TỐT!
CÂU 2:(lưu ý: câu này thì mik viết chương trình với bán kính hình tròn là sớ thực được nhập từ bàn phím còn số dương thì bn tự tìm hiểu nhe. nếu tìm hiểu đc thì bn chỉ cần thay phần khai báo var thôi nhe.)
program hinhtron;
var r:real;
const pi=3.14;
begin
clrscr;
Write('Nhapbankinh:');readln(r);
Writeln('Chuvihinhtronla:',2*pi*r);
Writeln('Dientichhinhtronla:',pi*r*r);
readln
end.
CHÚC BẠN HỌC TỐT (x2)
#include <bits/stdc++.h>
using namespace std;
double a,b,c,s,p;
int main()
{
//freopen("DTTAMGIAC.inp","r",stdin);
//freopen("DTTAMGIAC.out","w",stdout);
cin>>a>>b>>c;
p=(a+b+c)/2;
s=sqrt(p*(p-a)*(p-b)*(p-c));
cout<<fixed<<setprecision(5)<<p*2<<endl;
cout<<fixed<<setprecision(5)<<s;
return 0;
}
program Dien_tich;
uses crt;
var a,b,h: real;
begin
clrscr;
write('nhap day nho ='); readln(a);
write('nhap day lon ='); readln(b);
write('nhap chieu cao ='); readln(h);
while ( a < 0 ) and ( b < 0) and (c < 0) do
write('nhap lai day nho ='); readln(a);
write('nhap lai day lon ='); readln(b);
write('nhap lai chieu cao ='); readln(h);
writeln;
writeln('Dien tich hinh thang = ', 1/2 * (a+b) * h :4:2);
readln;
end.