Цель работы: Изучение правил и получение навыков составления программ с использованием сложных типов данных массивов.
Задание№ 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
Похожие работы
... концентрических окружностей с уменьшающимся радиусом по мере затухания колебаний скорости и момента. Аналогичная картина наблюдается при ступенчатом набросе нагрузки. 5. РАЗРАБОТКА ВИРТУАЛЬНОЙ ЛАБОРАТОРНОЙ РАБОТЫ НА БАЗЕ ВИРТУАЛЬНОЙ АСИНХРОННОЙ МАШИНЫ Иную возможность анализа АД представляет специализированный раздел по электротехнике Toolbox Power System Block. В его библиотеке имеются блоки ...
аучного цикла является отсутствие возможности реальной постановки учебного, и лабораторного эксперимента. Хотя в настоящее время имеются разработки виртуальных лабораторных практикумов, однако окончательно решение проблемы требует пристального внимания специалистов различных профилей, в том числе и психолого-педагогического. 1.2 Роль технологии виртуальных приборов обучения в техническом вузе ...
... 17.6 - 2.5 2 22.5 109.4 20.1 16.7 - 3.4 - 2.8 3 22.5 175. - 2.4 Задание 4. Проверка закона сохранения импульса. ОТЧЕТ ……………………………………………………………………………. о выполнении лабораторной работы №2 Законы сохранения в механике. Колебательное движение Задание 1. Исследование затухания колебаний маятника Упражнение 1. Закон затухания. Таблица 1. ...
... и их красота украшают здание школы, воспитывают эстетические чувства. Во второй главе показано место и роль древесных и кустарниковых форм как объекта лабораторных исследований. Глава 2. ДРЕВЕСНЫЕ И КУСТАРНИКОВЫЕ РАСТЕНИЯ КАК ОБЪЕКТ ЛАБОРАТОРНЫХ РАБОТ ПО ОБЩЕЙ БИОЛОГИИ Одной из ответственных задач, стоящих перед учителем биологии, является повышение эффективности всех применяемых в школе ...
0 комментариев