Новое на сайте
Модуль Graph
Учебник
05/09/10

Все что позволяет делать модуль Crt на самом деле является псевдографикой, т.к. изображение формируется из символов (букв, цифр, кавычек и др.) в текстовом режиме.
Позиции экрана для модуля Crt
Картинки
28/08/10
coords.png
Картинки
28/08/10
Модуль Crt
Учебник
28/08/10

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

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

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

Количество доступных цветов (для экрана и символов) всего 16. Они кодируются числами от 0 до 15. Также вместо чисел можно прописывать названия цветов.
Редактирование файла
Учебник
14/08/10		 

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/08/10		 

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/08/10		 

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/08/10		 

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/08/10

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