Методические указания по выполнению

Заданий контрольной работы 2

Задание 1

Заполнить основной экран повторяющимся текстом 'Полноэкранный режим*'. Cформировать два «непрозрачных» окна, в одном из которых будет повторяющийся текст '*Окно 1', а в другом – '*Окно 2'.

Решение

Program Windows;

{КР2 Задание1 выполнено учащимся № группы ФИО № варианта}

Uses

Crt; {используется модуль CRT}

Var

I: Integer;

Begin

TextAttr:=White+16*Black; {цвет белый на черном}

ClrScr;

{вывод на основной экран}

For I:=1 To 153 Do

Write('Полноэкранныйрежим*');

Repeat

TextAttr:=White+16*Red; {цвет белый на красном}

Window(5,5,20,15); {задание одного окна}

For I:=1 To 153 Do

Write('*Окно 1'); {вывод текста в это окно}

ClrScr; {очистка первого окна}

TextAttr:=White+16*Blue; {цвет белый на синем}

Window(40,10,55,20); {задание другого окна}

For I:=1 To 153 Do

Write('*Окно 2'); {вывод текста в это окно}

ClrScr; {очистка другого окна}

Until KeyPressed; {цикл до нажатия клавиши}

End.

Вывести на экран окно, заполненное текстом, с помощью ReadKey. При нажатии клавиши Enter на границах этого окна сформировать второе «непрозрачное» окно меньших размеров. С помощью клавиш управления курсором оно должно перемещаться в границах первого окна. При этом должен восстанавливаться ранее закрываемый текст первого окна.

Решение

Program Wind;

{КР2 Задание1 выполнено учащимся № группы ФИО № варианта}

Uses

сrt; {используется модуль CRT}

Var

i,xn,xk,yn,yk: Integer;

Key: Char;

St: String[255];

Begin

TextBackGround(7); {серый фон}

ClrScr;

TextAttr:=Yellow+16*Blue;

Window(10,20,72,22);

TextBackGround(11); {бирюзовый фон}

ClrScr;

Write('Enter– формирование второго окна, Esc – выход из второго окна');

Write('Стрелкиуправления курсором служат для

перемещения второго окна');

Write(' внутри первого');

xn:=7;

yn:=7;

xk:=15;

yk:=10;

While Key<>#27 do

Begin

TextAttr:=Yellow+16*Blue; {цвет желтый на синем}

Window(5,5,20,15); {задание одного окна}

For I:=1 To 255 Do

Begin

St[i]:=' ';

Write(St[i]);

end;

ClrScr;

Repeat

Key:=ReadKey;

St:=St+Key;

Write(Key); {вывод текста в это окно}

Until Key=#13;

Repeat

TextAttr:=Yellow+16*Blue;

ClrScr;

Window(5,5,20,15);

ClrScr;

For I:=1 To Length(St) Do

Write(St[i]);

Window(5,5,20,15);

Window(xn,yn,xk,yk); {задание другого окна}

TextBackGround(0); {черный фон}

ClrScr;

Window(xn,yn,xk,yk);

ClrScr;

Key:=ReadKey;

If Key=#0 then

Begin

Key:=ReadKey;

if Key=#72 then

if yn>5 then

Begin

yn:=yn-1;

yk:=yk-1;

end;

if Key=#75 then

if xn>5 then

Begin

xn:=xn-1;

xk:=xk-1;

end;

if Key=#77 then

if xk<20 then

Begin

xn:=xn+1;

xk:=xk+1;

end;

if Key=#80 then

if yk<15 then

Begin

yn:=yn+1;

yk:=yk+1;

end;

Window(xn,yn,xk,yk);

end;

Until Key=#27;

ClrScr;

end;

End.