Лабораторная работа №11

СОДЕРЖАНИЕ: Цель работы: Изучение правил и получение навыков составления программ с использованием сложных типов данных массивов. Задание№ 17 . Из символов произвольного предложения сформировать массив целых чисел, соответствующих порядковому номеру литер в коде ASCII. Определить максимальный элемент этого порядка.

Цель работы: Изучение правил и получение навыков составления программ с использованием сложных типов данных массивов.

Задание№ 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


СКАЧАТЬ ДОКУМЕНТ

ДОБАВИТЬ КОММЕНТАРИЙ  [можно без регистрации]
перед публикацией все комментарии рассматриваются модератором сайта - спам опубликован не будет

Ваше имя:

Комментарий

Видео

ОГЭ Лабораторная работа 15 Определение свойств изображения полученного с помощью соб линзы  [ВИДЕО]

Физика 7 Фильм сорок второй КПД при подъёме тела по наклонной плоскости  [ВИДЕО]

ГИА 9 ОГЭ Лабораторные работы  [ВИДЕО]
ОГЭ Физика Лабораторная работа 11 Исследование зависимости силы тока от напр  [ВИДЕО]
Лабораторная работа 6 Изучение параллельного соединения проводников 8 класс  [ВИДЕО]
ГДЗ по физике 7 класс А В Пёрышкин Лабораторная работа 11  [ВИДЕО]
Изучение явления электромагнитной индукции Физика 9 класс  [ВИДЕО]
Лабораторная работа 7 Измерение фокусного расстояния и оптической силы линзы 39 8 класс  [ВИДЕО]
ОГЭ Физика Лабораторная работа 4 Измерение оптической силы собирающей линзы  [ВИДЕО]
Лабораторная работа 9 Выяснение условия равновесия рычага  [ВИДЕО]
Лабораторная работа 5 Изучение последовательного соединения проводников 8 класс  [ВИДЕО]
Цифровая схемотехника Лабораторная работа 11 Счётчики  [ВИДЕО]

Copyright © MirZnanii.com 2015-2017. All rigths reserved.