c) Циклический алгоритм с постусловием ⇐ ПредыдущаяСтр 7 из 7
Если условие в этой блок-схеме перенести в конец цикла, после вывода на печать, то условие изменится. В этом случае проверяется условие на выход из цикла: y<=x. При этом условии цикл не выполняется. Алгоритм примера, если условие перенести в конец цикла, называется алгоритмом цикла с постусловием, изображен на рис. 5.
Рис. 5. Алгоритм цикла с постусловием Массивы Понятие и описание массивов Массивом называются последовательность однотипных объектов, обозначаемая одним именем. Массив характеризуется размером и размерностью. Размер массива - это количество элементов в нём. Размерность - это количество индексов в скобках. Массив состоит из элементов. Чтобы выделить один из объектов (элемент) массива, надо указать имя массива и номер элемента в нем. Номер элемента называется индексом. Индекс указывается в квадратных скобах и может быть числом, переменной, выражением. Пример 1. А [20], B [5,3]. Если для выделения элемента нужен 1 индекс, массив называется одномерным, два – двумерным и т.д. Массивы относятся к структурированным типам данных. В программе массив можно описать двумя способами: а) непосредственно в разделе описаний переменных: Var имя_массива: array [диапазон индекса 1, диапазон индекса 2, ..] of тип_элементов. Где: Array- массив; of-из Пример 2. var a,b: array [1..10] of real; d,y: array [1..5,1..5] of integer ; б) объявлением типа – массива (удобно, когда требуется несколько одинаковых массивов). Пример 3. type mas= array [1..10] of real; var c,d:mas; { два массива типа mas}
Операции с массивами Операции с массивом производятся только с отдельными элементами массива. С элементами массива можно делать все операции, которые разрешены для базового типа массива. Если массив числовой, то математические, если символьный или строковый, то, соответственно, операции с символьными или строковыми переменными. Одномерные массивы Написать программу вычисления произведения положительных элементов одномерного массива целых чисел. program Pr5; var a : array [1..100] of integer; p, n, i : integer; begin p: =1; writeln ('введите размер массива n<=100'); readln (n); writeln ('введите элемент массива'); for i:=1 to n do begin writeln(‘ввести a[ ‘, i , ‘]= ‘]); readln (a[i] ); end; for i:=1 to nk do begin if a[i]>0 then p:= p * a[ i ]; end; writeln ('Произведение =',p); readln; end. Двумерные массивы Написать программу вычисления произведения положительных элементов второй строки двумерного массива целых чисел. program Pr6; var a:array [1..10, 1..10] of integer; p, i, j, n, m: integer; begin writeln(‘ Введите n<=10 , m<=10 ’); readln (n,m); writeln(‘ Введите элементы массива по строкам ’); for i:=1 to n do for j:=1 to m do readln(a[i, j]); p:=1; for i:=1 to n do for j:=1 to m do begin if (i=j ) and (a[2, j]>0) then p:= p * a[ i ]; end; writeln(‘ Произведение элементов p=’, p); readln; end.
©2015 arhivinfo.ru Все права принадлежат авторам размещенных материалов.
|