Материалы сайта
Это интересно
Лабораторная работа №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