Вывести на экран две вертикальные строки текста длиной не более десяти символов желтого цвета

@Bohdan6 · Регистрация: 01.02.2013

Author24 — интернет-сервис помощи студентам

Вывести на экран монитора две вертикальные строки текста длиной не более
десяти символов желтого (Yellow) цвета и разместить вокруг текста симметрично
расположенную рамку в виде окружности красного (Red) цвета.

@Puporev · 01.02.2013, 20:46

Это в графическом режиме?

@Bohdan6 · 01.02.2013, 21:42 **[ТС]**

Составить программу на языке программирования Turbo Pascal 7.0 для вывода
графических элементов.
ПОРЯДОК ВЫПОЛНЕНИЯ РАБОТЫ
1. Очистить экран монитора и при необходимости установить требуемый цвет
фона.
2. Вывести один или несколько графических элементов (отрезков,
прямоугольников, окружностей, эллипсов, многоугольников, строк текста или др.)
требуемого цвета и размера с заданным начальным расположением.

@Puporev · 02.02.2013, 09:23

Pascal

uses graph;
var x,y:integer;
    s:string;
begin
initgraph(x,y,'');
x:=getmaxX div 2;
y:=getmaxY div 2;
setcolor(red);
setlinestyle(0,0,3);
circle(x,y,100);
setcolor(yellow);
settextstyle(0,1,1);
s:='123456789';
outtextXY(x-10,y-(length(s)div 2)*8,s);
s:='987654321';
outtextXY(x+20,y-(length(s)div 2)*8,s);
readln
end.

Добавлено через 1 минуту
Может эту
Вывести на экран монитора горизонтально расположенную строку текста длиной не более десяти символов
тоже в графическом нужно?

@Bohdan6 · 04.02.2013, 21:18 **[ТС]**

Да в графическом..

Добавлено через 19 часов 24 минуты
она что то неработает!

Добавлено через 18 минут
не запускается.

@Puporev · 05.02.2013, 07:08

Сообщение от Bohdan6

она что то неработает!

У меня все работает, поэтому это твои проблемы. Что у тебя? Какая ОС на компьютере?

@Bohdan6 · 05.02.2013, 17:02 **[ТС]**

XP..

Добавлено через 2 минуты
там именно Ctrl+F9 не запускает ее.

@Puporev · 05.02.2013, 17:06

Ну что происходит при запуске программ, что пишет компилятор?

Добавлено через 3 минуты
Ну выкинь этот Паскаль и скачай у нас рабочий
Скачать Паскаль
лучше Турбо Паскаль 7.0, которым я пользуюсь.

@Bohdan6 · 13.02.2013, 23:23 **[ТС]**

вот что выбивает....
графический режим не находит

@Puporev · 14.02.2013, 07:02

Сообщение от Bohdan6

графический режим не находит

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

@Bohdan6 · 24.02.2013, 16:26 **[ТС]**

а ее можно как-то по-другому переписать???

@Puporev · 24.02.2013, 16:37

Сообщение от Bohdan6

как-то по-другому переписать???

Да конечно можно, если знаешь как, перепиши.

@Bohdan6 · 24.02.2013, 16:45 **[ТС]**

Да у меня никак не выходит с етим модулем System.tpu

@Puporev · 24.02.2013, 16:50

Сообщение от Bohdan6

никак не выходит с етим модулем System.tpu

Так я тебе давно написал, нет ума, выкинь свой Паскаль и скачай по ссылке что я дал, лень разбираться вот этот
https://www.cyberforum.ru/atta... 1264398243

@Bohdan6 · 24.02.2013, 16:55 **[ТС]**

да я качал все тоже самое..
я уже й с библиотеки паскаля вытягал пример работы с графикой... переделывал ну была проблема с рамкой.
так сможешь помочь?

@Puporev · 24.02.2013, 17:01

Нет не могу, у меня программа не теряет модуль System, и ни у кого, кого я знал, такого не было.

@Bohdan6 · 24.02.2013, 17:05 **[ТС]**

ну ладно, спасибо и на етом.

@Puporev · 24.02.2013, 17:19

Попробуй запустить файл .exe, если будет работать, положи файл .pas в папку BIN и запустить.

@Bohdan6 0 / 0 / 1 Регистрация: 01.02.2013 Сообщений: 48
	24.02.2013, 16:26 [ТС]	11
	а ее можно как-то по-другому переписать??? 0

@Bohdan6 0 / 0 / 1 Регистрация: 01.02.2013 Сообщений: 48
	24.02.2013, 16:55 [ТС]	15
	да я качал все тоже самое.. я уже й с библиотеки паскаля вытягал пример работы с графикой... переделывал ну была проблема с рамкой. так сможешь помочь? 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	01.02.2013, 20:46	2
	Это в графическом режиме? 0

@Bohdan6 0 / 0 / 1 Регистрация: 01.02.2013 Сообщений: 48
	01.02.2013, 21:42 [ТС]	3
	Составить программу на языке программирования Turbo Pascal 7.0 для вывода графических элементов. ПОРЯДОК ВЫПОЛНЕНИЯ РАБОТЫ 1. Очистить экран монитора и при необходимости установить требуемый цвет фона. 2. Вывести один или несколько графических элементов (отрезков, прямоугольников, окружностей, эллипсов, многоугольников, строк текста или др.) требуемого цвета и размера с заданным начальным расположением. 0

@Bohdan6 0 / 0 / 1 Регистрация: 01.02.2013 Сообщений: 48
	04.02.2013, 21:18 [ТС]	5
	Да в графическом.. Добавлено через 19 часов 24 минуты она что то неработает! Добавлено через 18 минут не запускается. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	05.02.2013, 07:08	6
	Сообщение от Bohdan6 она что то неработает! У меня все работает, поэтому это твои проблемы. Что у тебя? Какая ОС на компьютере? 0

@Bohdan6 0 / 0 / 1 Регистрация: 01.02.2013 Сообщений: 48
	05.02.2013, 17:02 [ТС]	7
	XP.. Добавлено через 2 минуты там именно Ctrl+F9 не запускает ее. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	05.02.2013, 17:06	8
	Ну что происходит при запуске программ, что пишет компилятор? Добавлено через 3 минуты Ну выкинь этот Паскаль и скачай у нас рабочий Скачать Паскаль лучше Турбо Паскаль 7.0, которым я пользуюсь. 0

@Bohdan6 0 / 0 / 1 Регистрация: 01.02.2013 Сообщений: 48
	13.02.2013, 23:23 [ТС]	9
	вот что выбивает.... графический режим не находит Миниатюры 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	24.02.2013, 16:37	12
	Сообщение от Bohdan6 как-то по-другому переписать??? Да конечно можно, если знаешь как, перепиши. 0

@Bohdan6 0 / 0 / 1 Регистрация: 01.02.2013 Сообщений: 48
	24.02.2013, 16:45 [ТС]	13
	Да у меня никак не выходит с етим модулем System.tpu 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	24.02.2013, 16:50	14
	Сообщение от Bohdan6 никак не выходит с етим модулем System.tpu Так я тебе давно написал, нет ума, выкинь свой Паскаль и скачай по ссылке что я дал, лень разбираться вот этот https://www.cyberforum.ru/atta... 1264398243 0

	24.02.2013, 17:19

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	24.02.2013, 17:01	16
	Нет не могу, у меня программа не теряет модуль System, и ни у кого, кого я знал, такого не было. 0

@Bohdan6 0 / 0 / 1 Регистрация: 01.02.2013 Сообщений: 48
	24.02.2013, 17:05 [ТС]	17
	ну ладно, спасибо и на етом. 0

Вывести на экран две вертикальные строки текста длиной не более десяти символов желтого цвета

Решение