АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция

Введите через пробел 15 чисел

Читайте также:
  1. III Общий порядок перемещения товаров через таможенную границу Таможенного союза
  2. А) плечевой пояс проходит через грудную клетку; б) характерны анальные пузыри; в) зубы преобразовались в роговые пластины; г) уплощенные и широкие ребра.
  3. А. Стекание тока в землю через одиночные заземлители
  4. Алгебраїчна форма запису комплексних чисел та дії над комплексними числами, записаними у цій формі
  5. Алекс встал перед съёмочной группой, надел ремень гитары через голову и поставил руку на струны.
  6. Алчность не может превратиться в не-алчность; через алчность нужно переступить. Вы не можете изменить ее.
  7. Бог так благ каждый день, Песнь хвалы вложил Он в сердца людей. Бог так благ каждый день, Через тьму и ночь нам сияет свет. Бог так благ, Бог так благ каждый день.
  8. Большой помощью украинскому народу была продажа хлеба через пограничные города, т.к. 1648 год на Украине был неурожайным.
  9. Бумаге, подается не позднее, чем через один год с того момента,
  10. В будущее с помощью чисел
  11. В клинике при обследовании у больного диагностировали диафрагмальную грыжу-выпячивание в грудную полость желудка через одно из слабых мест диафрагмы.
  12. В мгновенном периоде рынок стабилизируется через изменение рыночной цены.

12 78 65 3 5 76 82 93 13 28 54 68 26 47 3

Максимальный элемент последовательности А

А (8) = 93

В разделе определения констант задан размер массива N = 15. В разделе описания переменных объявлен массив с именем А. Тип индекса — ограниченный, тип элементов — INTEGER. В этом же разделе описаны переменные: AMAX — максимальный элемент; PN — порядковый номер максимального элемента в массиве; I — параметр цикла. Эти переменные описаны как переменные типа INTEGER.

Для ввода элементов массива используется цикл с оператором FOR. Оператором WRITELN (‘введите через пробел 15 чисел’); объявляется диалоговый режим ввода чисел.

Подготовка цикла заключается в задании начальных значений переменных AMAX и PN. В качестве начального значения возможного максимума принимается значение первого элемента массива А, в качестве порядкового номера максимального элемента — значение – 1.

Поиск максимума начинается со сравнения второго элемента массива с первым, принятым в качестве максимума, поэтому в качестве начального значения параметра цикла взято I = 2.

В теле цикла значение очередного элемента сравнивается с возможным максимальным с помощью оператора IF … THEN. Если значение очередного элемента больше возможного максимального, то значение этого элемента присваивается переменной AMAX, а номер элемента — переменной PN. Если условие, записанное в операторе IF, не выполняется, то пропускается группа операторов: AMAX := A[I]; PN := [I].

Выполнение цикла заканчивается после просмотра всех элементов массива.

Для вывода на экран максимального элемента последовательности используются операторы WRITELN, в список переменных которых включены строки символов для комментария выводимой информации и переменные PN и AMAX.

Пример 6. Задан массив вещественных чисел, состоящий из десяти элементов. Требуется ввести четные элементы этого массива. Программа имеет вид:

PROGRAM MAS;

VAR I : INTEGER;

A : ARRAY [1..10] OF REAL;

BEGIN

WRITELN (‘ ВВЕСТИ МАССИВ (1..10) ’);

FOR I := 1 TO 10 DO;

READ ( A [I] );

I:=0;

REPEAT

I = I + 2;

WRITE (A[I] : 5 : 2);

UNTIL I>10;

END.

 

Работа с переменными строкового типа

 

Переменная строкового типа (String) может рассматриваться как массив элементов символьного типа (Char). Например, если в программе определены переменные



S: string; C: char; и задано S:='Москва', то S[1]='М', S[2]='о' и т. д. и возможно присвоение, например: C:= S[1]; Таким образом строка может рассматриваться как линейный массив символов. Элементы массива, составляющие строку можно переставлять местами и получать новые слова, например:

 

for i:= 1 to N div 2 do

Begin

C:= S[i];

S[i]:= S[N-i+1];

S[N-i+1]:= C

end;

Writeln(S);

{ исходное слово выведется справа налево: "авксоМ" }

 

Здесь N:= ord(S[0]); - число символов в переменной "S" хранится в переменной S[0]. Функция "ord" преобразует символьный тип в целый. N div 2 - количество перестановок для слова из "N" символов. В переменной "C" запоминается значение i-го элемента, который меняется с элементом, симметричным относительно середины строки.

Можно производить поиск и замену заданного символа в строке, например:

 

for i:=1 to N do

if S[i]='_' then writeln('найден символ пробел');

for i:=1 to N do

if S[i]='/' then S[i]:='\';{замена символа "/" на "\"}

 

Заменяя или переставляя символы в строке по определенной схеме (закону) можно зашифровать строку. Для дешифровки используется, как правило, схема обратной перестановки или замены символов. Например:

 

for i:=1 to N do

S[i]:= chr(ord(S[i])+2);{преобразование исходных символов в символы с кодом большим на две единицы}

 

Напомним, что все используемые в MS-DOS символы имеют ASCII коды от 0 до 255. Здесь удобно также использовать функции Pred(C); и Succ(C).

 


1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 |


Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Студалл.Орг (0.011 сек.)