Новое на сайте

Модуль Graph
Учебник
05 Сен 2010

Все что позволяет делать модуль Crt на самом деле является псевдографикой, т.к. изображение формируется из символов (букв, цифр, кавычек и др.) в текстовом режиме.

Позиции экрана для модуля Crt
Картинки
28 Авг 2010
coords.png
Картинки
28 Авг 2010
Модуль Crt
Учебник
28 Авг 2010

Модуль Crt позволяет выводить цветные символы на цветном экране. Хотя по-прежнему отображение будет происходить в текстовом режиме. Текстовый режим означает, что на экране могут выводиться только определенные символы в определенных местах (знакоместах). Можно представить экран, разделенным вертикальными и горизонтальными линиями на ячейки. В эти ячейки можно «вписывать» различные символы. У каждой ячейки есть адрес.

Примечание. В Ubuntu модуль Crt не работает, если программу компилировать не в домашнем каталоге.

Модуль Crt содержит ряд процедур, позволяющих задавать цвет символов и экрана, очищать экран, менять позицию курсора и др.

Стандартный экран в Паскале чаще формируется из 25 сток и 80 столбцов. Строки нумеруются сверху вниз, а столбцы слева на право. Нумерация начинается с единицы (что может показаться непривычным).

Примечание. Если программа запускается в терминале Linux, то количество строк и столбцов определяется соответственно шириной и высотой экрана терминала. В случае попытки вывести символ за границами доступной области, он выводится в верхнем левом углу.

Количество доступных цветов (для экрана и символов) всего 16. Они кодируются числами от 0 до 15. Также вместо чисел можно прописывать названия цветов.

Редактирование файла
Учебник
14 Авг 2010

var
    f: file of char;
    c: char;
    n: integer;
 
begin
    assign (f, 'c:\file.txt');
    reset (f);
 
    write ('Номер элемента: ');
    readln (n);
 
    seek (f, n);
 
    write ('Новый символ: ');
    readln (c);
    write (f, c);
 
    close (f);
 
readln
end.	

Функция IOResult
Учебник
14 Авг 2010

var
    f: file of char;
    c: char;
    r: integer;
 
begin
    assign (f, 'c:\file1.txt');
 
    {$I-}
    reset (f);
    {$I+}
 
    r := ioresult;
 
    if r <> 0 then
        writeln ('Такого файла нет')
    else
        while not eof (f) do begin
            read (f, c);
            writeln (c);
        end;
 
    close (f);
 
readln
end.	

Файл, из которого мы собираемся ввести данные в программу, может отсутствовать или быть недоступным. В этом случае, при запуске программы на выполнение происходит аварийный выход из нее.

Чтение данных из файла
Учебник
14 Авг 2010

var
    f: file of char;
    c: char;
 
begin
    assign (f, 'c:\file.txt');
    reset (f);
 
    while not eof (f) do begin
        read (f, c);
        writeln (c);
    end;
 
    close (f);
 
readln
end.

Процедура reset открывает файл для чтения. Т.е. мы можем в дальнейшем в программе извлекать данные из файла с помощью процедуры read.

Данные извлекаются «порциями» базового типа. В данном примере – это char (символы).

Создание файла и запись данных в него
Учебник
14 Авг 2010

var
    f: file of char;
    c: char;
    i, n: byte;
 
begin
    assign (f, 'c:\file.txt');
    rewrite (f);
 
    write ('Количество символов: ');
    readln (n);
 
    for i:=1 to n do begin
        write ('Введите символ: ');
        readln (c);
        write (f, c);
    end;
 
    close (f);
 
end.

Процедура assign обеспечивает связь файловой переменной программы с реальным файлом на диске. Первым аргументом указывается переменная, вторым – адресное имя файла.

Работа с файлами в Паскале. Общие сведения
Учебник
14 Авг 2010

В большинстве языков программирования, в том числе и в Pascal, предусмотрены инструменты для сохранения информации на внешних носителях (кстати, жесткий диск также относится к внешнему запоминающему устройству), а также ее извлечению (чтению) оттуда.

Блок-схема алгоритма поиска максимального элемента массива
Картинки
01 Авг 2010