Массивы, центр экрана Опции

[Len]

Люди, подскажите, пожалуйста, как сделать, чтобы одномерный массив выаодилс по середине строки, то есть, например в ответе: 1 3 4 5, а надо так:

                                              1
                                              3
                                              4
                                              5

Только по середине строки, а не экрана.

Код

Program massiv;
uses crt;
var
a:array[1..100] of real;
n,i:integer;
begin
clrscr;
writeln('Введите размерность одномерного массива:');
readln(n);
For i:=1 to n do
begin
 write('Введите ',i,' элемент: '); readln(a[i])
end;
write('Одномерный массив а размерностью ',n,' = ');
for i:=1 to n do write (a[i]:1:0,' ');
readln;
end.

Пробелы сохраняются только в тегах "Цитата"

Сообщение отредактировано: volvo - 6.04.2005 17:39

[volvo]

Может, так?

Код

write('Одномерный массив а размерностью ',n,' = ');
for i:=1 to n do writeln('':35, a[i]:1:0); { <-- Исправь эту строчку }

[VelarThind]

Можно ещё GoTоXY(x,y), в Х - номер строки, а в Y - уже её центр вводишь

Сообщение отредактировано: VelarThind - 7.04.2005 1:59

[klem4]

так?

Код

uses crt;
var i,n:byte;
   x:array[1..15] of integer;
Begin
  clrscr;
  readln(n);
  for i:=1 to n do
   readln(x[i]);
  for i:=1 to n do
   begin
      gotoxy(37,i+10);
      write(x[i]);
   end;
  readln;
end.

хмм наверное нет, что значит по середине строки а не экрана, там где ты указал как этото должно выглядить, числа у тебя расположены вертикально, то есть это уже не одну строку занимать будет ...

Сообщение отредактировано: klem4 - 7.04.2005 13:19

[volvo]

Ребята, а ассемблер сюда никак привернуть нельзя? А то сильно просто получается.

Зачем? Зачем использовать дополнительные модули (в частности Crt) когда проблема решается стандартными средствами форматирования вывода?

klem4, на задание посмотри, там приведен пример вывода ...

[klem4]

хыы, да, без асмы не обойтись ...

а по поводу вывода, то что там изображено мне кажется это и есть ничто иное, как середина экрана ...

[Altair]

закрыто
Думаю обсуждать нечего, как уже сказал volvo, форматирование производится стандартными средствами вывода!