Расположение окон по углам экрана

@Kolapsis · Регистрация: 08.01.2016

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

Построить два окна по верхним углам экрана и ввывести в каждое окно сообщение окно1 и окно 2. Сделать некоторую паузу и очистить экран

@Puporev · 10.01.2016, 17:42

Pascal

uses crt;
begin
clrscr;
window(1,1,12,5);
textbackground(2);
textcolor(15);
clrscr;
gotoXY(4,3);
write('Окно 1');
window(69,1,80,5);
textbackground(4);
textcolor(14);
clrscr;
gotoXY(4,3);
write('Окно 2');
delay(3000);
window(1,1,80,25);
textbackground(0);
textcolor(7);
clrscr;
write('Программа завершена, нажмите Enter');
readln
end.

@Kolapsis 1 / 1 / 0 Регистрация: 08.01.2016 Сообщений: 78
		1
	Расположение окон по углам экрана 10.01.2016, 17:01. Показов 1535. Ответов 1 Метки нет (Все метки) Построить два окна по верхним углам экрана и ввывести в каждое окно сообщение окно1 и окно 2. Сделать некоторую паузу и очистить экран 0

	10.01.2016, 17:42

Расположение окон по углам экрана

Решение