Версия для печати темы

Автор: Sensitive 19.04.2007 19:44

нужно построить оранамент с помощью спевдографики на всю ширину экрана.
файл с орнаментом прилагается...
совсем что-то не могу понять,как построить. В поиске не находила. Я получается не знаю,как построить вертикальные прямые в орнаменте,с горизонтальными уже разберусь как-нибудь.
спасибо.


Эскизы прикрепленных изображений

Автор: volvo 19.04.2007 20:08

Вот ASCII-коды всех нужных тебе символов...

Горизонтальные - символ #196
Вертикальные - #179

Угловые:
правый верхний #191
левый верхний #218
правый нижний #217
левый нижний #192

Автор: Sensitive 21.04.2007 18:25

вот всё,что я смогла сообразить
Подскажите,что сделать дальше,пожалуйста.
И я не смогла додуматься,как сделать,чтоб например с клавиатуры можно было вводить длину вертикальной и горизонтальной черты...

program ornam;
uses crt;
const A=#196; B=#179; C=#218;
      D=#191; E=#217; F=#192;
var i:byte;
begin
clrscr;
gotoxy(1,7);
for i:=1 to 5 do
begin
write(A);
end;
write(E);
for i:=6 downto 3 do
begin
gotoxy(6,i);
write(B);
end;
gotoxy(6,2);
write©;
for i:=7 to 12 do
begin
gotoxy(i,2);
write(A);
end;
write(D);
for i:=3 to 4 do
begin
gotoxy(13,i);
write(B);
end;
gotoxy(13,5);
write(E);
for i:=12 downto 11 do
begin
gotoxy(i,5);
write(A);
end;
gotoxy(10,5);
write©;
gotoxy(10,6);
write(B);
gotoxy(10,7);
write(F);
readln;
end.

Автор: Артемий 21.04.2007 20:16

А так?

uses crt;
const A=#196; B=#179; C=#218;
      D=#191; E=#217; F=#192;
var i:byte;
begin
clrscr;
gotoxy(1,7);
for i:=1 to 5 do
begin
write(A);
end;
write(E);
for i:=6 downto 3 do
begin
gotoxy(6,i);
write(B);
end;
gotoxy(6,2);
write©;
for i:=7 to 12 do
begin
gotoxy(i,2);
write(A);
end;
write(D);
for i:=3 to 4 do
begin
gotoxy(13,i);
write(B);
end;
gotoxy(13,5);
write(E);
for i:=12 downto 11 do
begin
gotoxy(i,5);
write(A);
end;
for i:=1 to 5 do begin
 gotoxy(i+10,7);
 write(A);
end;
write(E);
for i:=6 downto 3 do begin
 gotoxy(16,i);
 write(B);
end;
gotoxy(16,2);
write©;
for i:=7 to 12 do
begin
gotoxy(i+10,2);
write(A);
end;
write(D);
for i:=3 to 4 do
begin
gotoxy(23,i);
write(B);
end;
gotoxy(23,5);
write(E);
for i:=12 downto 11 do
begin
gotoxy(i+10,5);
write(A);
end;
gotoxy(20,5);
write©;
for i:=6 downto 6 do begin
 gotoxy(20,i);
 write(B);
end;
gotoxy(20,7);
write(#192);
for i:=1 to 5 do begin
 gotoxy(i+20,7);
 write(#196);
end;
gotoxy(13,5);
write(E);
gotoxy(10,5);
write©;
gotoxy(10,6);
write(B);
gotoxy(10,7);
write(F);
readln;
end.

Добавлено через 2 мин.
Результат:

Автор: Sensitive 23.04.2007 20:56

Артемий, спасибо. Но мне же нужно сделать такой орнамент по всей ширине экрана. Это постоянно добавлять циклы? Будет же огромная программа. А никак нельзя сделать, чтобы этот кусочек повторялся до тех пор пока не привысится ширина экрана? (repeat...until) я не могу понять как это организовать.....

Автор: volvo 23.04.2007 21:24

uses crt;
const
  width  = 80;
var
  i, j:byte;

begin
  clrscr;

  gotoxy(1,7);
  for j := 1 to (width div 10) + 1 do begin

    for i := 1 to 5 do write(#196);
    write(#217);
    for i := 1 to 4 do begin
      gotoxy(wherex - 1, wherey - 1); write(#179);
    end;
    gotoxy(wherex - 1, wherey - 1); write(#218);
    for i := 1 to 6 do write(#196);
    write(#191);
    for i := 1 to 2 do begin
      gotoxy(wherex - 1, wherey + 1); write(#179);
    end;
    gotoxy(wherex - 1, wherey + 1); write(#217);
    for i := 1 to 5 do begin
      gotoxy(wherex - 2, wherey); write(#196);
    end;
    gotoxy(wherex - 1, wherey); write(#218);
    for i := 1 to 2 do begin
      gotoxy(wherex - 1, wherey + 1); write(#179);
    end;
    gotoxy(wherex - 1, wherey); write(#192);

  end;
  readln;
end.

Так?

Автор: Sensitive 24.04.2007 3:26

Да,volvo, так, спасибо. Совсем позабыла, кстати, про ф-цию where (x,y)...
Один только вопрос: почему в первом цикле

for j := 1 to (width div 10) + 1 do begin

прибавляем единицу?

Автор: volvo 24.04.2007 3:32

Ну, я же начинаю с единицы, а не с нуля...

Автор: Sensitive 24.04.2007 3:43

А ну да, с единицы

Автор: Sensitive 25.04.2007 17:11

Я извиняюсь, а как можно сделать, чтоб этот орнамент был на весь экран.
Я так понимаю нужно выводить его по строчкам... но как это сделать?
Помогите,если сможете...
(с другим орнаментом получилось, а с этим никак!)

Автор: volvo 25.04.2007 17:17

Добавь еще один - внешний - цикл:

  for k := 1 to 3 do begin { <--- Вот этот }

    gotoxy(1, 7*pred(k) + 7);
    for j := 1 to (width div 10) + 1 do begin

      for i := 1 to 5 do write(#196);
      write(#217);
      for i := 1 to 4 do begin
        gotoxy(wherex - 1, wherey - 1); write(#179);
      end;
      gotoxy(wherex - 1, wherey - 1); write(#218);
      for i := 1 to 6 do write(#196);
      write(#191);
      for i := 1 to 2 do begin
        gotoxy(wherex - 1, wherey + 1); write(#179);
      end;
      gotoxy(wherex - 1, wherey + 1); write(#217);
      for i := 1 to 5 do begin
        gotoxy(wherex - 2, wherey); write(#196);
      end;
      gotoxy(wherex - 1, wherey); write(#218);
      for i := 1 to 2 do begin
        gotoxy(wherex - 1, wherey + 1); write(#179);
      end;
      gotoxy(wherex - 1, wherey); write(#192);

    end;

  end;

Автор: Sensitive 25.04.2007 17:32

Спасибо, volvo. Я не могла понять куда еще один цикл поставить-теперь понятно как.