Цель работы: Изучение правил и получение навыков составления программ с использованием сложных типов данных массивов.

Задание№ 17. Из символов произвольного предложения сформировать массив целых чисел, соответствующих порядковому номеру литер в коде ASCII. Определить максимальный элемент этого порядка.

Программа на Turbo Pascal

{**********************************************}

{программа: Lab11                                                              }

{цель:  сформировать массив                                            }

{переменные: xmax-константа                                           }

{stroka-тип символьного массива                                     }

{codes-тип массива целых данных                                               }

{i- переменная                                                                     }

{подпрограммы: отсуствуют                                              }

{програмист: студент гр. 316 Позднышев А.А.                }

{проверил: Новичков В.С.                                                  }

{дата:20.04.2004г.                                                                }

{**********************************************}

program Lab11;

 uses crt;

  const

    xmax=5;

   type

     lettre=char;

  var

     stroka:array[1..xmax] of lettre;

     codes:array[1..xmax] of byte;

     i:integer;

     max:real;

  begin

  clrscr;

     writeln('введите ',xmax,' букв латинского алфавита');

        for i:=1 to xmax do

           read(stroka[i]);

        for i:=1 to xmax do

           writeln(stroka[i]);

        for i:=1 to xmax do

           codes[i]:=ord(stroka[i]);

        for i:=1 to xmax do

           writeln(codes[i]);

            max:=codes[1];

        for i:=1 to xmax do

  begin

      if max < codes[i]

      then

         max:=codes[i]

  end;

     writeln('максимальное значение литера в списке=',max:3:0)

end.








Блок-схема.