![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
Len |
![]()
Сообщение
#1
|
Новичок ![]() Группа: Пользователи Сообщений: 20 Пол: Женский Репутация: ![]() ![]() ![]() |
Люди, подскажите, пожалуйста, как сделать, чтобы одномерный массив выаодилс по середине строки, то есть, например в ответе: 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 13:39 |
![]() ![]() |
volvo |
![]()
Сообщение
#2
|
Гость ![]() |
Может, так?
Код write('Одномерный массив а размерностью ',n,' = '); for i:=1 to n do writeln('':35, a[i]:1:0); { <-- Исправь эту строчку } |
VelarThind |
![]()
Сообщение
#3
|
Гость ![]() |
Можно ещё GoTоXY(x,y), в Х - номер строки, а в Y - уже её центр вводишь
Сообщение отредактировано: VelarThind - 6.04.2005 21:59 |
klem4 |
![]()
Сообщение
#4
|
![]() Perl. Just code it! ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: ![]() ![]() ![]() |
так?
Код 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 9:19 -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
volvo |
![]()
Сообщение
#5
|
Гость ![]() |
![]() Зачем? Зачем использовать дополнительные модули (в частности Crt) когда проблема решается стандартными средствами форматирования вывода? klem4, на задание посмотри, там приведен пример вывода ... |
klem4 |
![]()
Сообщение
#6
|
![]() Perl. Just code it! ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: ![]() ![]() ![]() |
хыы, да, без асмы не обойтись ...
а по поводу вывода, то что там изображено мне кажется это и есть ничто иное, как середина экрана ... -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
Altair |
![]() ![]()
Сообщение
#7
|
![]() Ищущий истину ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4 824 Пол: Мужской Реальное имя: Олег Репутация: ![]() ![]() ![]() |
закрыто
Думаю обсуждать нечего, как уже сказал volvo, форматирование производится стандартными средствами вывода! -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
![]() ![]() |
![]() |
Текстовая версия | 21.07.2025 11:02 |