это быстро и бесплатно
Оформите заказ сейчас и получите скидку 100 руб.!
Ознакомительный фрагмент работы:
Цель работы:Изучение правили получениенавыков составленияпрограмм сиспользованиемсложных типовданных массивов.
Задание№ 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
Сделайте индивидуальный заказ на нашем сервисе. Там эксперты помогают с учебой без посредников
Разместите задание – сайт бесплатно отправит его исполнителя, и они предложат цены.
Цены ниже, чем в агентствах и у конкурентов
Вы работаете с экспертами напрямую. Поэтому стоимость работ приятно вас удивит
Бесплатные доработки и консультации
Исполнитель внесет нужные правки в работу по вашему требованию без доплат. Корректировки в максимально короткие сроки
Гарантируем возврат
Если работа вас не устроит – мы вернем 100% суммы заказа
Техподдержка 7 дней в неделю
Наши менеджеры всегда на связи и оперативно решат любую проблему
Строгий отбор экспертов
К работе допускаются только проверенные специалисты с высшим образованием. Проверяем диплом на оценки «хорошо» и «отлично»
Работы выполняют эксперты в своём деле. Они ценят свою репутацию, поэтому результат выполненной работы гарантирован
Ежедневно эксперты готовы работать над 1000 заданиями. Контролируйте процесс написания работы в режиме онлайн
На выбор из приложения
Курсовая, Технические средства автоматизации и управления
Срок сдачи к 12 июня
По таблице квалитетов нужно как то решить задачи, начертить чертеж и тд
Решение задач, Метрология, стандартизация и сертификация
Срок сдачи к 17 мая
сделать презентацию и речь
Презентация, современные технологии изготовления оптических линз и оправ
Срок сдачи к 17 мая
Совершенствование маркетинговой деятельности на предприятии
Курсовая, Экономика организации (предприятия)
Срок сдачи к 20 мая
Решить контрольную
Контрольная, Правовое и документальное обеспечение в туризме и гостеприимстве
Срок сдачи к 17 мая
Возмещение вреда, причиненного гражданину органами государственной...
Реферат, Административное право
Срок сдачи к 13 мая
Технология развития эмоционального интеллекта у подростков, склонных к девиантному поведению
Другое, Педагогика
Срок сдачи к 14 мая
Выполнить курсовую работу по методичке по предмету "Первичная переработка нефти и попутного нефтяного газа"
Курсовая, "Первичная переработка нефти и попутного нефтяного газа"
Срок сдачи к 23 мая
Разработка технического задания программного продукта и предпроектное обследование организации
Лабораторная, Техническое документирование информационных систем
Срок сдачи к 30 мая
Заполните форму и узнайте цену на индивидуальную работу!