Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.78/40: Рейтинг темы: голосов - 40, средняя оценка - 4.78
0 / 0 / 0
Регистрация: 09.05.2016
Сообщений: 3

Вывод текста в центре

09.05.2016, 21:18. Показов 7750. Ответов 6
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Создать программу, которая будет выводит каждое написанное предложение в центре.
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
09.05.2016, 21:18
Ответы с готовыми решениями:

Вывод текста
Здравствуйте уважаемые, подскажите как вывести содержимое txt документа в программе на экран?

Вывод цветного текста
Здравствуйте. Мне нужно, чтобы ниже написанная программа выводила цветной текст, а не чёрный. Вот код: program tt; begin ...

Вывод текста в рамке
Нужно вывести на экран текст в рамке вида = и произвольного вида.помогите пожалуйста

6
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
09.05.2016, 21:46
Это в текстовом или в графическом режиме?
0
Эксперт Pascal/Delphi
6812 / 4568 / 4820
Регистрация: 05.06.2014
Сообщений: 22,433
09.05.2016, 21:47
Выравнивание текста по центру экрана
0
0 / 0 / 0
Регистрация: 09.05.2016
Сообщений: 3
09.05.2016, 23:13  [ТС]
в текстовом
0
Эксперт Pascal/Delphi
6812 / 4568 / 4820
Регистрация: 05.06.2014
Сообщений: 22,433
10.05.2016, 08:27
Цитата Сообщение от Анастасия1616 Посмотреть сообщение
в текстовом
Тогда ссылка в сообщении № 4.
0
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
10.05.2016, 08:44
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;//выводим в стандартное окно
var s:array[1..20] of string;
    n,k,i,j:byte;
begin
repeat
write('Количество предложений от 1 до 20 n=');
readln(n);
until n in [1..20];
writeln('Введите ',n,' предложений');
for i:=1 to n do
 begin
  readln(s[i]);
  k:=(80-length(s[i])) div 2;
  for j:=1 to k do
  insert(' ',s[i],1);
  if odd(k) then insert(' ',s[i],1);
 end;
clrscr;
for i:=1 to n do
writeln(s[i])
end.
0
0 / 0 / 0
Регистрация: 09.05.2016
Сообщений: 3
13.05.2016, 23:32  [ТС]
спасибо
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
13.05.2016, 23:32
Помогаю со студенческими работами здесь

Рандомный вывод текста
Как сделать, чтобы текст выводился рандомно? uses crt; var b : integer; k:=0; begin TextColor(15); ...

Побуквенный вывод текста с задержкой
Написать программу которая выводит на экран сообщения в телеграфном стиле т.е буквы должны появляться по одной причем с некоторой...

Вывод цветного текста в графическом режиме
Помогите написать задачку) Юзаю PascalABC)) Суть: Вводится слово. Вывести гласные буквы слова красным цветом, а звонкие и глухие...

Вывод текста каким-либо цветом
Подскажите, как в паскале ABC выводить текст каким-либо цветом. Знаю, что там есть стандартный модуль graphABC.

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Новые блоги и статьи
Перемещение выделенных строк ТЧ из одного документа в другой
Maks 31.03.2026
Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave
DevAlt 30.03.2026
Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .
Автоматическое создание документа при проведении другого документа
Maks 29.03.2026
Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .
Настройка движения справочника по регистру сведений
Maks 29.03.2026
Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника
Maks 27.03.2026
Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .
Сумматор с применением элементов трёх состояний.
Hrethgir 26.03.2026
Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа
Maks 26.03.2026
Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .
Команды формы и диалоговое окно
Maks 26.03.2026
1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru