Чтение RSS
Рефераты:
 
Рефераты бесплатно
 

 

 

 

 

 

     
 
Лабораторная работа №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.

Блок-схема.

-----------------------

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

i=1(1)xmax

Max

 
     
Бесплатные рефераты
 
Банк рефератов
 
Бесплатные рефераты скачать
| Интенсификация изучения иностранного языка с использованием компьютерных технологий | Лыжный спорт | САИД Ахмад | экономическая дипломатия | Влияние экономической войны на глобальную экономику | экономическая война | экономическая война и дипломатия | Экономический шпионаж | АК Моор рефераты | АК Моор реферат | ноосфера ба забони точики | чесменское сражение | Закон всемирного тяготения | рефераты темы | иохан себастиян бах маълумот | Тарых | шерхо дар борат биология | скачать еротик китоб | Семетей | Караш | Influence of English in mass culture дипломная | Количественные отношения в английском языках | 6466 | чистонхои химия | Гунны | Чистон | Кус | кмс купить диплом о language:RU | купить диплом ргсу цена language:RU | куплю копии дипломов для сро language:RU
 
Рефераты Онлайн
 
Скачать реферат
 
 
 
 
  Все права защищены. Бесплатные рефераты и сочинения. Коллекция бесплатных рефератов! Коллекция рефератов!