Отчет по иформатике

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

Задание№ 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. 
 
 
 
 
 
 

Блок-схема.