Главная

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

сб, 04/16/2011 - 20:00 — tech
Темы учебника
Модуль 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 задает окно, которое определяется координатами верхнего левого и правого нижнего углов. Все дальнейшие действия применяются по отношению к текущему окну. Также меняется и координатная сетка.

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