Рефераты - Афоризмы - Словари
Русские, белорусские и английские сочинения
Русские и белорусские изложения
 

Лабораторная работа №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
ref.by 2006—2022
contextus@mail.ru