ai giúp tôi với
Viết chương trình vẽ hình chữ nhật có mẫu như sau:
*******
*******
*******
sử dụng chọn lọc for...do
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.
20 tháng 3 2022
refer
uses crt;
var i: integer;
begin
clrscr;
for i:= 1 to 10 do
begin writeln ( ' O ' ) end;
readln
end.
VQ
20 tháng 3 2022
tham khảo
uses crt;
var i: integer;
begin
clrscr;
for i:= 1 to 10 do
begin writeln ( ' O ' ) end;
readln
end.
1 tháng 3 2021
uses crt;
var i,j:integer;
begin
clrscr;
for i:=1 to 4 do
begin
for j:=1 to 4 do
write('*');
writeln;
end;
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
7 tháng 2 2022
var i,n:integer;
s:real;
begin
write('Nhap n = ');readln(n);
for i:=1 to n do
s:=s+1/(3*i+2);
write('Tong la ',s:10:2);
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.
TG
18 tháng 1 2021
Program mun;
Uses crt;
Var i:integer;
Begin
For i:=1 to 10 do write ('2 × ', i,' = ', 2*i);
Readln;
End.
P/s: Ko chắc ạ!
18 tháng 1 2021
uses crt;
var i:integer;
begin
clrscr;
for i:=1 to 10 do
writeln('2*',i,'=',2*i);
readln;
end.
C
1
20 tháng 4 2023
# Hàm tính diện tích hình vuông
def dien_tich_hinh_vuong(canh):
dien_tich = canh ** 2
return dien_tich
# Hàm tính diện tích hình chữ nhật
def dien_tich_hinh_chu_nhat(dai, rong):
dien_tich = dai * rong
return dien_tich
# Kiểm tra và in kết quả
canh = float(input("Nhập vào cạnh hình vuông: "))
dai = float(input("Nhập vào độ dài hình chữ nhật: "))
rong = float(input("Nhập vào chiều rộng hình chữ nhật: "))
if canh <= 0 or dai <= 0 or rong <= 0:
print("Kích thước không hợp lệ!")
else:
dien_tich_hv = dien_tich_hinh_vuong(canh)
dien_tich_hcn = dien_tich_hinh_chu_nhat(dai, rong)
print("Diện tích hình vuông là: ", dien_tich_hv)
print("Diện tích hình chữ nhật là: ", dien_tich_hcn)
Program HOC24;
var i,j: byte;
begin
for i:=1 to 3 do
begin
for j:=1 to 7 do write('*');
writeln;
end;
readln
end.