это быстро и бесплатно
Оформите заказ сейчас и получите скидку 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 заданиями. Контролируйте процесс написания работы в режиме онлайн
Необходимо выполнить задание по предмету основы инженерных расчетов в программе Mathcad
Контрольная, Основы инженерных расчетов
Срок сдачи к 6 апр.
Разработка поста сто по ремонту кпп легковых автомобилей dodge challenger
Курсовая, МДК, машиностроение
Срок сдачи к 15 мая
Выполнить курс . тгасу. теоретическая механика, часть 1. е-02552
Контрольная, Теоретическая механика
Срок сдачи к 24 апр.
Сравнить и посчитать экономическую часть по данным за 2 года
Решение задач, экономика в металлургии
Срок сдачи к 6 апр.
Сделать чертёж наладку
Лабораторная, Автоматизация производственных процессов в машиностроении
Срок сдачи к 5 апр.
Разработка информационной системы для столярного производства
Диплом, Информационные системы и технологии (09.03.02)
Срок сдачи к 19 апр.
Подготовить доклад на тему "Гарантии президента, ушедшего в отставку"
Доклад, Государственное и муниципальное управление
Срок сдачи к 4 апр.
Релейная защита и автоматизация электроэнергетических систем
Ответы на билеты, Релейная защита и автоматизация электроэнергетических систем
Срок сдачи к 3 апр.
Заполните форму и узнайте цену на индивидуальную работу!