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

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

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

использованием сложных типов данных массивов.

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

max:=codes[i]

Вывод codes[i]

i=1(1)xmax

i=1(1)xmax

Вывод stroka[i]

i=1(1)xmax

xmax=5;

Введите 5 букв лат. алфавта

Конец

Начало

i=1(1)xmax

max:=codes[i]

Вывод max