это быстро и бесплатно
Оформите заказ сейчас и получите скидку 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 заданиями. Контролируйте процесс написания работы в режиме онлайн
три реферата Опасные природные и техногенные процессы
Реферат, Безопасность жизнедеятельности
Срок сдачи к 4 окт.
Опасные природные и техногенные процессы
Реферат, Опасные природные и техногенные процессы
Срок сдачи к 4 окт.
Сделать презентацию и доклад
Презентация, Внешнеэкономическая и внешнеполитическая деятельность государственных органов
Срок сдачи к 5 окт.
Отчет о прохождении производственной практики
Отчёт по практике, Экономика и бухгалтерский учет
Срок сдачи к 23 окт.
Написать курсовую работу на тему: « Планирование в спортивном менеджменте»
Курсовая, Менеджмент ФКС
Срок сдачи к 27 окт.
Сделать индивидуальный проект для конференции на тему «Город под городом: почему будущее строительства может оказаться под землей?»
Индивидуальный проект, Строительство
Срок сдачи к 10 окт.
Земляные работы, сделать график производственных работ
Курсовая, Земляные работы
Срок сдачи к 9 окт.
Расчёт
Решение задач, Конструкция и расчёт технологического оборудования химической переработки древесины в цбп
Срок сдачи к 2 окт.
Выполнить курсовую тгасу. автомобильный транспорт и электротехника. п-00166
Курсовая, Транспорт
Срок сдачи к 16 окт.
Выполнить курсовую тгасу. автомобильный транспорт и электротехника. п-00166
Курсовая, Электротехника
Срок сдачи к 16 окт.
написать доклад на тему "Правовое государство и гражданское общество"
Доклад, Правоведение
Срок сдачи к 6 окт.
Написать вкр на тему "обеспечение безопасности при монтаже металлоконструкций конвейерной галереи производства окатышей пао «северсталь»"
ВКР, Техносферная безопасность
Срок сдачи к 23 окт.
Заполните форму и узнайте цену на индивидуальную работу!