Nhập a,b là hai cạnh của 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 lần lượt là a*b,2a*2b,3a*3b(sử dụng thủ tục vẽ hcn)
Những câu hỏi liên quan
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)
Cho a = 4, b= 8, lần lượt là 2 cạnh của hình chữ nhật. Em hãy viết chương trình in ra màn hình Chu vi và Diện tích của hình chữ nhật.
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.
Đúng 0
Bình luận (0)
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.
Đúng 0
Bình luận (0)
cho tệp "BAITAP.TXT" chứa hai số nguyên dương a,b lần lượt là độ dài hai cạnh của một hình chữ nhật. Hãy viết chương trình đọc từ tệp trên độ dài hai cạnh, tính chu vi của hình chữ nhật và in kết quả tính được ra màn hình.
uses crt;
const fi='baitap.txt'
var f1:text;
a,b:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
readln(f1,a,b);
writeln('Chu vi hinh chu nhat la: ',(a+b)*2);
close(f1);
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình đọc dữ liệu từ tệp input.bass chứa hai số nguyên dương lần lượt là độ lớn của các cạnh ab của hình chữ nhật ABCD tính chu vi diện tích của hình chữ nhật trên a/ in kết quả ra màn hình b/ luôn kết quả vào tệp output. pass
Bài 1: Cho tệp “BAITAP.TXT” chứa hai số nguyên dương a,b lần lượt là độ dài hai cạnh của một hình chữ nhật. Hãy viết chương trình đọc từ tệp trên độ dài hai cạnh, tính chu vi của hình chữ nhật và in kết quả tính được ra màn hình.
Xem chi tiết
uses crt;
const fi='baitap.txt'
var f1:text;
a,b:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
readln(f1,a,b);
writeln('Chu vi la: ',(a+b)*2);
writeln('Dien tich la: ',a*b);
close(f1);
readln;
end.
Đúng 1
Bình luận (0)
viết chương trình nhập vào 2 cạnh của hình chữ nhật. tính chu vi,diện tích hình chữ nhật và thông báo ra màn hình . yêu cầu sử dụng chương trình con tính chu vi,diện tích.
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.
Đúng 1
Bình luận (0)
Bài tập 1: Em hãy viết chương trình cho bài toán sau bằng ngôn ngữ lập trình Pascal.
+ Nhập vào kích thước hai cạnh a, b của hình chữ nhật từ bàn phím.
+ Gán cho biến P(chu vi hình chữ nhật) giá trị là (a + b)* 2.
+ Gán cho biến S(Diện tích hình chữ nhật) giá trị là a*b.
+ Hiển thị lên mà hình thông báo
“ Gia tri cua P, Gia tri cua S”
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.
Đúng 0
Bình luận (0)
viết chương trình vẽ hình chữ nhật với các kích thước được nhập vào từ bàn phím. Chương trình cho phép người đọc dùng vẽ nhiều hình chữ nhật cho đến khi người dùng không muốn vẽ nữa. Mn giúp em với ạ. Em cảm ơn ạ!!
Xem chi tiết
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.
Đúng 1
Bình luận (0)