Цель работы: Изучение правил и получение навыков составления программ с использованием сложных типов данных массивов.
Задание№ 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.

Блок-схема.
[pic]
-----------------------

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

i=1(1)xmax

Max

Поделитесь этой записью или добавьте в закладки