Язык программирования Pascal

Указанные на рисунке основные фигуры блок-схем интерпретируются так:

Прямоугольник – любая последовательность действий; внутри прямоугольника записываются формулы или словесное описание выполняемых действий;

Ромб – блок проверки условия; так как любое условие может быть только истинно или ложно, у блока 1 вход и 2 выхода, соответствующие действиям, выполняемым в случаях, когда условие истинно и когда оно ложно. Выходы подписывают символами "+" и "-", или "да" и "нет", "1" и "0" и т.п.

Параллелограмм – блок ввода исходных данных. Внутри фигуры обычно пишется, какие именно данные должны быть введены.

Лист с разрывом – блок вывода данных. Внутри фигуры указывается, какие данные или сообщения программа выводит для представления пользователю.

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

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

Язык блок-схем довольно громоздок, как правило, он не применяется профессионалами, однако, на начальном этапе обучения программированию планирование несложных программ в виде блок-схем может оказаться весьма полезным.

Программа – описание алгоритма, на алгоритмическом языке программирования.

5. Программа на языке Паскаль

program reverse;                                                               {заголовок программы}

uses crt;                                               {модуль для работы с отдельным окном}

type   List= ^Elem;                                  {объявление глобальных типов}

   Elem= record

     Info: Char;

     Next: List;

   end;

var                                                                      {раздел описания переменных}

   L, p: List;                                        

   c: char;

a:integer;

f1:file of List;                                         {объявление переменной записи в файл}

Begin

assign(f1,'reverse.txt');                                         {процедура записи в файл}

rewrite(f1);                                                          {открыть файл для записи}

begin

writeln('*************************');          {вывод на экран пунктов меню}

writeln ('**       М е н ю       **');

writeln('*************************');

writeln ('**     1.справка       **');

writeln ('**  2.старт программы  **');

writeln ('**      3.выход        **');

writeln('*************************');

writeln(' ');

writeln('*************************');

writeln('** Выберите пункт меню **');

writeln('*************************');

end;

readln(a);           {считывание с клавиатуры параметра а (номер пункта меню)}

case a of                                       {формирование меню}

  1: Begin                                     {выбор справки в разделе меню}

  clrscr;                                                                            {очистка экрана}

  writeln('программа печатает в обратном порядке ');       {вывод справки}

  writeln('заданный во входном файле текст');

  writeln(' ');

writeln('*************************');                      {возврат в меню}

writeln ('**       М е н ю       **');

writeln('*************************');

writeln ('**     1.справка       **');

writeln ('**  2.старт программы  **');

writeln ('**      3.выход        **');

writeln('*************************');

writeln(' ');

writeln('*************************');

writeln('** Выберите пункт меню **');

writeln('*************************');

  readln(a);                                                     {считывание номера пункта меню}

  end;

  end;

case a of

  2: Begin                                                      {выполнение второго пункта меню}

     clrscr;                                                                                       {очистка экрана}

     writeln('напишите текст с точкой на конце');

     writeln('');

     end;

  3: Begin                                                    {выполнение третьего пункта меню}

clrscr;                                                         {очистка экрана}

     exit;                              {завершение работы текущего программного блока}

     readln;                                                {для задержки экрана}

     end;

  else writeln ('команда не найдена');    {если введенное число вне диапазона}

  end;

Begin

   {ввод литер. текста и запись их в обратном порядке в список L (без заглавного звена)}

   L:= nil;                                          {ссылка на построенную часть списка}

   read( c );

   while c <> '.' do begin                                            {добавить с в начало списка}

     new( p );

     p^.Info:= c;

     p^.Next:= L;

     L:= p;

     read( c );

   end;                                                      {печать из L}

   while L <> nil do begin                       {цикл  с предусловием}

     write( L^.Info );                                    {вывод результата на экран}

     L:= L^.Next;

     write(f1,L);                                       {запись результата в файл}

end;

   writeln;

   close(f1);                                           {завершение процедуры записи в файл}

end;

end.                                                               {конец программы}

6. Тестовый пример

Вид меню:

Вид справки с обратным переходом в меню:

Результат работы программы:

7. Руководство пользователя для работы с программой

При запуске программы на экране появится окно с меню.

Чтобы прочитать справку нажмите 1 + Enter;

Чтобы  запустить программу нажмите 2 + Enter;

Чтобы выйти из программы нажмите 3 + Enter.

Вы задаёте исходный текст и ставите в конце текста точку, а программа печатает его в обратном порядке.

Заключение

В ходе данной курсовой работы я закрепил и подтвердил полученные при изучении дисциплины «Информатика» знания. Самостоятельно разработал программу на алгоритмическом языке программирования Pascal. Программа прошла проверку на работоспособность, полностью исправна и готова к широкому применению.

Список литературы:

1.  Вирт. Н. Алгоритмы = структуры данных + программы. – М.: Мир, 1989. - 409с.

2.  Семакин И.Г., Шестаков А.П. Основы программирования: Учебник. – М.: Мастерство; 2001. - 432с.

3. Кетков Ю.Л., Кетков А.Ю. Практика программирования Бейсик, Си, Паскаль. Самоучитель – СПб.: БХВ. – Петербург, 2001. - 480с.

11