Цель работы: Изучение правил и получение навыков составления программ с использованием сложных типов данных массивов.
Задание№ 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.
Блок-схема.
Министерство образования РФ
Рязанская государственная радиотехническая академия
Кафедра ВПМ
Отчет о
лабораторной работе № 11:
«Обработка массивов данных»
Выполнил: ст. гр. 316
Позднышев А.А.
Проверил: Новичков В.С.
Рязань 2004
Внимание, отключите Adblock
Вы посетили наш сайт со включенным блокировщиком рекламы!
Ссылка для скачивания станет доступной сразу после отключения Adblock!
Одними из наиболее популярных услуг на рынке IT-технологий являются создание и продвижение лендингов. Они способны положительно влиять на деятельность любого бизнес-проекта в интернете. Судя по многочисленным отзывам, заказавшие создание лендингов люди ни разу не пожалели о потраченных деньгах. Они вложили в будущее, которое неразрывно связано с интернетом. Всё больше и больше предпринимателей обращаются к услугам разных агентств, веб-студий, чтобы заказать создание лендинга у профессионалов.