Nhập a b là hai cạnh của một hình chữ nhật. Viết chương trình vẽ ra màn hình các hình chữ nhật có kích thước a*b 2a*2b 3a*3b ( viết và sử dụng chương trình con vẽ hình chữ nhật)
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
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;
NH
2 tháng 5 2021
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.
14 tháng 5 2022
Tham khảo
program hcn;
uses crt;
var d,r,dt:longint;
cv:real;
begin
write('nhap chieu dai va chieu rong cua hcn:');
readln(d,r);
cv:=(d+r)*2;
dt:=d*r;
writeln(' chu vi hcn do la:',cv);
writeln(' dien tich hcn do la:',dt);
readln
end.
21 tháng 3 2021
uses crt;
var a,b,i,j:integer;
st:string;
begin
clrscr;
repeat
write('Ban muon ve khong:'); readln(st);
if st='Yes' then
begin
write('Nhap chieu dai:'); readln(a);
write('Nhap chieu rong:'); readln(b);
for i:=1 to a do
begin
for j:=1 to b do
write('*');
writeln;
end;
end
else break;
until st='No';
readln;
end.
18 tháng 5 2021
uses crt;
var a,b:integer;
{-----------------chuong-trinh-con-tinh-chu-vi----------------------------------}
function cv(x,y:integer):integer;
begin
cv:=x+y;
end;
{-------------------chuong-trinh-con-tinh-dien-tich-----------------------------}
function dt(x,y:integer):integer;
begin
dt:=x*y;
end;
{-------------------------chuong-trinh-chinh-------------------------}
begin
clrscr;
write('Nhap chieu dai:'); readln(a);
write('Nhap chieu rong:'); readln(b);
writeln('Chu vi la: ',cv(a,b));
writeln('Dien tich la: ',dt(a,b));
readln;
end.
KV
14 tháng 3 2023
Var a,b,s,p:real;
Begin
Write('a = ');readln(a);
Write('b = ');readln(b);
p:=(a + b)*2;
s:=a*b;
Write('P = ',p:10:2,' va s = ',s:10:2);
Readln;
End.
6 tháng 4 2022
#include <bits/stdc++.h>
using namespace std;
long long a,b;
int main()
{
cin>>a>>b;
cout<<(a+b)*2<<endl;
cout<<a*b;
return 0;
}
30 tháng 10 2021
Câu 1:
#include <bits/stdc++.h>
using namespace std;
double a,b,c;
int main()
{
cin>>a>>b>>c;
cout<<fixed<<setprecision(2)<<(a+b+c)/3;
return 0;
}
28 tháng 10 2021
Program Chu_nhat;
uses crt;
var a,b:integer;
Begin
clrscr;
write('Nhap a, b: ');readln(a,b);
writeln('Chu vi cua hinh chu nhat la: ',(a+b)*2);
readln;
end.