Viết code vẽ hình trái tim bằng Pascal Thách các idol đóa :)))
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
TRẢ LỜI
uses crt;
const n = 10;
function check(i,j,m,n: integer): integer;
begin
if (i = n div 2 - 2) and ((j = 0) or (j = m - 1)) then exit(1);
if (j <= m div 2) and (((i + j = n div 2 - 3) and (j <= m div 4))
or ((j-i = m div 2 - n div 2 + 3) and (j > m div 4))) then exit(2);
if (j > m div 2) and (((i+j = n div 2 - 3 + m div 2) and (j < 3*m div 4))
or ((j-i = m div 2 - n div 2 + 3 + m div 2) and (j >= 3*m div 4))) then exit(3);
exit(4);
end;
var i,j,m: integer;
begin
clrscr;
while True do
begin
TextColor(12);
m := n + 1;
for i := 0 to n div 2 - 2 do
begin
for j := 0 to m - 1 do
begin
if check(i,j,m,n) = 1 then write('* ');
if check(i,j,m,n) = 2 then write('* ');
if check(i,j,m,n) = 3 then write('* ');
if check(i,j,m,n) = 4 then write(' ');
end;
writeln;
delay(500);
end;
for i := n div 2 - 1 to n - 1 do
begin
for j := 0 to m - 1 do
if (i - j = n div 2 - 1) or (i+j = n-1+m div 2) then write('* ')
else write(' ');
writeln;
delay(500);
end;
clrscr;
end;
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bạn muốn hỏi điều gì?
Đặt câu hỏiTham Gia Group Dành Cho Lớp 9 - Ôn Thi Vào Lớp 10 Miễn Phí
Bảng tin
Bạn muốn hỏi điều gì?
Đặt câu hỏi
Cơ quan chủ quản: Công ty Cổ phần Công nghệ Giáo dục Thành Phát
Tải ứng dụng
Inbox: m.me/hoidap247online
Trụ sở: Tầng 7, Tòa Intracom, số 82 Dịch Vọng Hậu, Cầu Giấy, Hà Nội.
5603
4972
3502
A cho vòng while true cho nó chớp chớp á a
9067
98554
5342
kệ đi :)))
9067
98554
5342
thế này đc rồi Pascal là ngôn ngữ cũ thì mong cái gì đc, đúng k? :))))
5603
4972
3502
uses crt; const n = 10; function check(i,j,m,n: integer): integer; begin if (i = n div 2 - 2) and ((j = 0) or (j = m - 1)) then exit(1); if (j <= m div 2) and (((i + j = n div 2 - 3) and (j <= m div 4)) or ((j-i = m div 2 - n div 2 + 3) and (j > m div 4))) then exit(2); if (j > m div 2) and (((i+j = n div 2 - 3 + m div 2) and (j < 3*m div 4)) or ((j-i = m div 2 - n div 2 + 3 + m div 2) and (j >= 3*m div 4))) then exit(3); exit(4); end; var i,j,m: integer; begin while true do begin clrscr; TextColor(12); m := n + 1; for i := 0 to n div 2 - 2 do begin for j := 0 to m - 1 do begin if check(i,j,m,n) = 1 then write('* '); if check(i,j,m,n) = 2 then write('* '); if check(i,j,m,n) = 3 then write('* '); if check(i,j,m,n) = 4 then write(' '); end; writeln; delay(50); end; for i := n div 2 - 1 to n - 1 do begin for j := 0 to m - 1 do if (i - j = n div 2 - 1) or (i+j = n-1+m div 2) then write('* ') else write(' '); writeln; delay(500); end; end ; end . Rút gọnuses crt; const n = 10; function check(i,j,m,n: integer): integer; begin if (i = n div 2 - 2) and ((j = 0) or (j = m - 1)) then exit(1); if (j <= m div 2) and (((i + j = n div 2 - 3) and (j <= m div 4)) or ((j-i = m div 2 - n div 2 + 3) and... xem thêm
5603
4972
3502
Pascal là ngôn ngữ cũ thì mong cái gì đc, đúng k? :)))) `->` chuws sao nx
9067
98554
5342
uses crt; const n = 10; function check(i,j,m,n: integer): integer; begin if (i = n div 2 - 2) and ((j = 0) or (j = m - 1)) then exit(1); if (j <= m div 2) and (((i + j = n div 2 - 3) and (j <= m div 4)) or ((j-i = m div 2 - n div 2 + 3) and (j > m div 4))) then exit(2); if (j > m div 2) and (((i+j = n div 2 - 3 + m div 2) and (j < 3*m div 4)) or ((j-i = m div 2 - n div 2 + 3 + m div 2) and (j >= 3*m div 4))) then exit(3); exit(4); end; var i,j,m: integer; begin clrscr; while True do begin TextColor(12); m := n + 1; for i := 0 to n div 2 - 2 do begin for j := 0 to m - 1 do begin if check(i,j,m,n) = 1 then write('* '); if check(i,j,m,n) = 2 then write('* '); if check(i,j,m,n) = 3 then write('* '); if check(i,j,m,n) = 4 then write(' '); end; writeln; delay(500); end; for i := n div 2 - 1 to n - 1 do begin for j := 0 to m - 1 do if (i - j = n div 2 - 1) or (i+j = n-1+m div 2) then write('* ') else write(' '); writeln; delay(500); end; clrscr; end; end. Rút gọnuses crt; const n = 10; function check(i,j,m,n: integer): integer; begin if (i = n div 2 - 2) and ((j = 0) or (j = m - 1)) then exit(1); if (j <= m div 2) and (((i + j = n div 2 - 3) and (j <= m div 4)) or ((j-i = m div 2 - n div 2 + 3) and... xem thêm