Лабораторная работа №11

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

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

Программана TurboPascal

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

{программа: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 toxmax do

writeln(stroka[i]);

for i:=1 toxmax do

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

for i:=1 toxmax do

writeln(codes[i]);

max:=codes[1];

for i:=1 toxmax do

begin

if max

then

max:=codes[i]

end;

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

end.

Блок-схема.

МинистерствообразованияРФ

Рязанскаягосударственнаярадиотехническаяакадемия

Кафедра ВПМ

Отчет о

лабораторнойработе № 11:

«Обработкамассивов данных»

Выполнил: ст. гр. 316

ПозднышевА.А.

Проверил:Новичков В.С.

Рязань 2004