Окна в crt. Программа для угадывания числа

Задача

Используя возможности модуля crt, оформить выводимую на экран информацию.

Решение

 

uses crt;
var i,k,n,x: byte;
begin
    clrscr;
    randomize;
    i := random(10);
    window(20,5,60,7); 
    textbackground(blue);
    clrscr;
    textcolor(lightgray);
    k := 0;
    gotoxy(4,2);
    write('Введите число: ');
    x := 19;
    repeat
        gotoxy(x,2);
        readln(n);
        k := k + 1;
        x := x + 2
    until i = n;
    window(20,9,60,11);
    textattr := 4 shl 4 + 14;
    clrscr;
    gotoxy(4,2);
    writeln('Угадано с ', k, '-ой попытки');
readln
end.

 

Примечания: 

Процедура window задает окно, которое определяется координатами верхнего левого и правого нижнего углов. Все дальнейшие действия применяются по отношению к текущему окну. Также меняется и координатная сетка.

 

Тема

Графика и псевдографика

Уровень

Комбинированные задачи

Добавить комментарий

CAPTCHA
Этот вопрос задается для того, чтобы выяснить, являетесь ли Вы человеком или представляете из себя автоматическую спам-рассылку.
CAPTCHA на основе изображений
Введите символы, которые показаны на картинке.