Дополнительные возможности Паскаль 9 класс

в текстовом режиме. Она называется CRT5. Эта библиотека содержит набор

Program Card;
Uses CRT; { Это предложение вставляется сразу после Program }

экран }
TextColor(White); { Установить белый цвет букв }
TextBackGround(Blue); { Установить

• ClrScr – очищает экран или текущее окно (от англ. Clear Screen), закрашивая его текущим цветом фона, установленным процедурой TextBackGround. По умолчанию – цвет экрана белый.
• TextColor(цвет) – устанавливает текущий цвет букв, который будет исполь–
зоваться операторами write и writeln. По умолчанию используется светло-серый цвет букв.
• TextBackgroud(цвет) – устанавливает текущий цвет фона, который будет использоваться операторами write и writeln.
• GotoXY(колонка, строка) – переводит курсор в указанную позицию; вывод,
осуществляемый последующим оператором write или writeln будет начинаться с этой позиции. Обычно экран в текстовом режиме содержит 80 колонок и 25 строк.
• ReadKey – ожидание нажатия на любую клавишу

ее подключения после заголовка программы необходимо написать Uses GraphABC.

окна 256×256 пикселей.
SetPenColor определяет цвет рисования линий. Функция RGB возвращает

клавиатуры (х>0 число положительное,
х=0 число ноль, иначе число отрицательное)
Program Sign;

2 ветви.
Program YourMark;
var n : integer;
begin
write('Введите вашу отметку ');

Program YourMark2;
{ ваша отметка }
var n : integer;
begin
write('Введите вашу отметку '); readln(n);
case n of
2 : writeln('Плохо');
3 : writeln('Удовлетворительно');
4 : writeln('Хорошо');
5 : writeln('Отлично')
else writeln('Вы ввели недопустимую отметку!')
end;
end.

помощью цикла while

3. Построим таблицу квадратов чисел от 1

1. Построить таблицу квадратов чисел от 1 до 10. (sqr) с помощью цикла for.

do
writeln(i:4,sqr(i):4);
end.

do
begin
writeln(i:4,sqr(i):4);
i:=i+1;
end;
end.
Program SquareR;
var i : integer;
begin
i:=1
repeat

3. Программа цикл
repeat … until