Mn giúp em
Viết ct tạp 1 Hcn rỗng bằng dấu "*" với chiều dài và chiều rộng dc nhập từ bàn phím
Câu 1: tam giác rỗng hình * với chiều cao được nhập vào từ bàn phím Dev C++
Câu 2: In ra hình chữ nhật rỗng dấu * với chiều dài và chiều rộng nhập vào từ bàn phím Dev C++
em cảm ơn ạ
Câu 2:
#include <bits/stdc++.h>
using namespace std;
long long n,i,j,m;
int main()
{
cin>>n>>m;
for (i=1; i<=n; i++)
{
for (j=1; j<=m; j++)
{
if (i==1 || j==1|| i==n|| j==m) cout<<"*";
else cout<<" ";
}
cout<<endl;
}
return 0;
}
viết chương trình tính chu vi và diện tích hình chữ nhật với chiều dài được nhập từ bàn phím và chiều rộng bằng 5
#include <bits/stdc++.h>
using namespace std;
double a,b;
int main()
{
cin>>a>>b;
cout<<"Chu vi la: "<<fixed<<setprecision(2)<<(a+b)*2<<endl;
cout<<"Dien tich la: "<<fixed<<setprecision(2)<<a*b;
return 0;
}
1 ) Viết chương trình tính diện tích và chu vi hình chữ nhật , với chiều dài và chiều rộng được nhập từ bàn phím 2 ) Viết chương trình tính diện tích và chu vi hình vuông , với cạnh được nhập từ bàn phím 3 ) Viết chương trình tính diện tích và chu vi tam giác , với độ dài ba cạnh và chiều cao tương ứng với cạnh đó và được nhập từ bàn phím bàn phím 4 ) Viết chương trình tính diện tích và chu vi hình tròn , với bán kính được nhập từ Yêu cầu : Viết công thức tính diện tích và chu vi của các hình vào vở Viết chương trình vào vở và làm trên phần mềm Python
viết chương trình tính và in ra màn hình diện tích và chu vi của hình chữ nhật. biết chiều dài là a, chiều rộng là b (a, b là 2 số nguyên dương nhập từ bàn phím). Mai em thi rồi nên mong mn giúp đỡ.
a = int(input("Nhập chiều dài: "))
b = int(input("Nhập chiều rộng: "))
chu_vi = 2*(a+b)
dien_tich = a*b
print(f"Chu vi hình chữ nhật là: {chu_vi}")
print(f"Diện tích hình chữ nhật là: {dien_tich}")
viết chương trình tính diện tích hình chữ nhật bết a là chiều dài, biết b là chiều rộng, a và b được nhập từ bàn phím giúp e với mn ơi e đang cần gấp ạ theo chương trình python ạ
Viết CT a) Viết CT nhập số nguyên N và dãy số gồm N số nguyên từ bàn phím. Tìm số lớn nhất trong dãy số b) Viết CT nhập số nguyên N và dãy số gồm N số nguyên từ bàn phím. Tìm số nguyên nhỏ nhất trong dãy số Mn giúp em vs Mà 2 câu này riêng biệt nên mong mn đừng viết chung 1 CT
a)
uses crt;
var a:array[1..100]of integer;
i,n,max:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln(max);
readln;
end.
b)
uses crt;
var a:array[1..100]of integer;
i,n,min:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.
Câu 1: Cho a, b là hai số thực được nhập từ bàn phím. Em hãy tính hiệu, thương của hai số này rồi hiển thị kết quả ra màn hình? Câu 2: Cho hai số d, r là chiều dài và chiều rộng của một thửa ruộng hình chữ nhật được nhập vào từ bàn phím. Em hãy viết chương trình tính chu vi, diện tích của hình thửa ruộng đó rồi hiển thị kết quả ra màn hình?
câu 1
program hieu_thuong;
uses crt;
var a,b,h,t:real;
begin
write('nhap so a:');readln(a);
write('nhap so b:');readln(b);
if a>=b then h:=a-b else h:=b-a;
t:=a/b;
writeln('hieu cua hai so ',a,'',b,' la ',h);
writeln('thuong cua hai so ',a,'',b,' la ',t);
readln;
end.
câu 2
program chuvi_dientich;
uses crt;
var cv,dt,d,r:real;
begin
write('nhap chieu dai d:');readln(d);
write('nhap chieu rong r:');readln(r);
cv:=( d + r ) * 2 ;
dt:= d * r ;
writeln('chu vi thua ruong la : ',cv);
writeln('dien tich thua ruong la : ',dt);
readln;
end.
Xác định I, O và mô tả thuật toán:
- Tính diện tích hình vuông với cạnh được nhập từ bàn phím.
- Tính diện tích hình chữ nhật với chiều dài và chiều rộng được được nhập từ bàn phím.
Viết chương trình nhập từ bàn phím chiều dài và chiều rộng của 1 hình chữ nhật. Vẽ trên màn hình hình chữ nhật đó bằng các ngôi sao '*' Yêu cầu: có sử dụng chương trình con
Ví dụ: Nhập chiều dài 7,chiều rộng 4. In kết quả trên màn hình
Uses crt;
Var dai,rong:integer;
Procedure Nhap(Var dai:integer;rong:integer);
Begin
Write('Chieu dai: ');readln(dai);
Write('Chieu rong: ');readln(rong);
End;
Procedure Ve(var dai:integer;rong:integer);
var i,j:integer;
Begin
for i:= 1 to dai do write('*');writeln;
For i:= 1 to rong-2 do
Begin
Write('*');
for j:=1 to dai-2 do write(' ');
writeln('*');
end;
for i:= 1 to dai do write('*');
End;
Begin
clrscr;
Nhap(dai,rong);
Ve(dai,rong);
readln;
End.
uses crt;
var a,b:integer;
{-----------------chuong-trinh-con--------------------}
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('Dai='); readln(a);
write('Rong='); readln(b);
ve(a,b);
readln;
end.