Курсовая работа: Системы счисления и коды

end;

{Вывод лого}

procedure Logo;

var

i:byte;

begin

ClrScr;

{отрисуемрамку}

GotoXY(1,1);

TextColor(3);

for i:=1 to 80 do Write(’*’);

for i:=1 to 22 do Write(’*’,’*’:79);

for i:=1 to 80 do Write(’*’);

{Конец рамки}

{Выводим текст}

GotoXY(25,10);

Write(’К У Р С О В А Я Р А Б О Т А’);

GotoXY(27,12);

Write(’по дисциплине "ИНФОРМАТИКА"’);

GotoXY(65,17);

Write(’Выполнила:’);

GotoXY(65,18);

Write(’ст.гр.’,Group);

GotoXY(65,19);

Write(Name);

GotoXY(65,20);

Write(’Проверил:’);

GotoXY(65,21);

Write(PrepName);