Практикум по решению задач на ЭВМ. Тарова И.Н - 12 стр.

                              Тарова И.Н., Терехов Ю.П., Масина О.Н., Скоков А.В.


    Пример 2. Создание и сохранение в файле «xxx.dat» последовательности
 целых чисел от 10 до 20.
        Программа
    program zapis;
    var
    f: file of integer; i: integer;
    begin
    assign(f,'xxx.dat'); rewrite(f);
    for i:=10 to 20 do write(f,i); close (f);
    end.
 {После выполнения программы формируется внешний файл xxx.dat}
    Пример 3. Считывание первых пяти компонент из существующего файла
 «xxx.dat» и вывод на дисплей квадратов этих значений.
        Программа                                                 .
    program read;
    var ff: file of integer; j,i : integer;
    begin
             assign(ff,'xxx.dat'); reset(ff);
             for j:=l to 5 do begin read(ff,i); writeln(i*i);
           end;
   close(ff);
   end.
      Пример 4. Шифрование и дешифрование текста.
   Программа шифрования заданного текста (sekret) использует следую-
щее правило шифровки: каждая буква в тексте заменяется на букву, рас-
положенную на позиций вправо от искомой в русском алфавите. Причем
последним символом алфавита является пробел, а далее алфавит продол-
жается циклически.
   Значение смещения n находится во внешнем файле 'n.key', который
формируется программой key. Зашифрованный текст выводится во
внешний файл с именем «шифр.tхt» , а также на дисплей.
    Программа дешифровки (retsek) считывает шифрованный текст из
 файла «шифр.txt» и выводит на экран дисплея искомый текст.
        Программа
    program key;
        var
   n: integer; f: file of integer;
begin
assign (f, 'n.key'); rewrite(f); write('введи ключ (смещение): ');
        readln(n);
    write(f,n); close(f);
 end.
   Работа с графикой. Машинная (компьютерная) графика - одно из важных


                                   12