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('-'); 
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.

Answer 2

Привет! Вот пример кода на Pascal, который рисует такой квадрат:

scssCopy code
program draw_square;

uses Graph;

var
  gd, gm: smallint;

begin
  gd := D8bit;
  gm := m640x480;
  InitGraph(gd, gm, '');

  { рисуем верхнюю и нижнюю границы }
  SetColor(Red);
  Line(0, 0, 20, 0);
  Line(0, 20, 20, 20);
  Line(0, 0, 20, 0);
  Line(0, 20, 20, 20);

  { рисуем боковые границы }
  Line(0, 0, 0, 20);
  Line(20, 0, 20, 20);

  { рисуем линии в середине }
  SetColor(Yellow);
  Line(5, 5, 15, 5);
  Line(5, 15, 15, 15);

  ReadLn;
  CloseGraph;
end.

Обрати внимание, что для отрисовки используется графическая библиотека Graph, которую нужно подключить в начале программы. Код также предполагает, что экран имеет разрешение 640x480 пикселей. Если у тебя другое разрешение, то нужно подставить свои значения в переменные gd и gm.