Заказ
  PHP скрипты   NEW
Правила написания
Студенту
Банк Рефератов
# A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
А Б В Г Д Е Ж З И Й К Л М Н О П Р С Т У Ф Х Ц Ч Ш Щ Ы Э Ю Я
Телефонные справочники
Выбор города:
А Б В Г Д Е Ж З И К Л М Н О П Р С Т У Ф Х Ц Ч Ш Щ Э Ю Я

Онлайн телефонные справочники
Выбор города:
А Б В Г Д Е Ж З И К Л М Н О П Р С Т У Х Ш Э Ю Я

скачай готовый реферат
A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
А Б В Г Д Е Ж З И Й К Л М Н О П Р С Т У Ф Х Ц Ч Ш Щ Ы Э Ю Я

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



Тема: Лабораторная работа №11
Вид реферата: реферат
Дисциплина: Информатика, программирование
Оценка: Отлично/Хорошо
Формат: Microsoft Word документ
Сжатие: ZIP архив
Создан: 4 октября 2007 года
Уникальность: 100%


скачать реферат Лабораторная работа №11


Цель работы: Изучение правил и получение навыков составления программ с использованием сложных типов данных массивов.
Задание№ 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.

Блок-схема.
[pic]
-----------------------

codes[i]:=ord(stroka[i])

i=1(1)xmax

Max




Справочники

Москва
Санкт-Петербург
Ангарск
Братск
Бугульма
Великие Луки
Владивосток
Владимир
Волгоград
Волжский
Воронеж
Вязьма
Екатеринбург
Златоуст
Иваново
Иркутск
Казань
Калуга
Кемерово
Кострома
Краснодар
Красноярск
Курган
Ленинск-Кузнецкий
Ливны
Липецк
Магадан
Магнитогорск
Набережные Челны
Нальчик
Находка
Нижний Новгород
Нижний Тагил
Новосибирск
Новочеркасск
Новый Уренгой
Омск
Орёл
Орехово-Зуево
Петрозаводск
Печора
Ростов-на-Дону
Самара
Саратов
Тюмень
Уфа
Хабаровск
Чебоксары
Челябинск
Череповец
Ярославль





© Все права защищены. © All right reserved.