Нарисовать квадрат со сторонами 20*20, так чтобы границы верхние и нижние(-------) были...

Question

Нарисовать квадрат со сторонами 20*20, так чтобы границы верхние и нижние(-------) были красного цвета, боковые (|||||||||||||) были красного цвета, а в середине квадрата (////////) были линии жёлтого цвета. Задача в Паскале.Заранее спасибо.Очень срочно.

Answer 1

Program Test;
 Uses CRT;
 Var i,j:integer;
 a:array[1..20,1..20] of char;
 Begin
 ClrScr;
 for i:=1 to 20 do 
begin
 for j:=1 to 20 do
 begin 
if(i=1)or(i=20)then
begin 
TextColor(RED);
 if(j>1)and(j<20)then write('-'); <br>end;
if(j=1)or(j=20)then begin
 TextColor(RED);
 write('|');
 end; 
if(I<>1)and(i<>20)and(j<>1)and(j<>20)then begin 
TextColor(yellow);
 write('/');
 end; 
end;
 writeln;
 end; 
End.

Comments

uses crt;
var
a:integer;
begin
textcolor(4);
for a:=1 to 20 do
write('-');
writeln;
for a:=1 to 20 do
begin
textcolor(4);
write('|');
textcolor(6);
write('//////////////////');
textcolor(4);
writeln('|');
end;
textcolor(4);
for a:=1 to 20 do
write('-');
end.

---

проверка это

---

Да получилось. Огромное спасибо.+++++++

---

но уверяю что моё первое решение тоже правильное но у тебя невыводится

---

ну тогда удачи!

---

Ещё один вопрос У меня при этом заголовке программа не идёт

---

program Project1;

{$mode objfpc}{$H+}

uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes
{ you can add units after this };

---

в Delphi?

---

скопируй и закрой программу открой новую(не дополнительную) и встав опять ато иногда так и получается(само по себе неработает а потом работает)

---

спасибо. всё получилось. Можно добавить вас в друзья.