Здавалка
Главная | Обратная связь

c) Циклический алгоритм с постусловием



Если условие в этой блок-схеме перенести в конец цикла, после вывода на печать, то условие изменится. В этом случае проверяется условие на выход из цикла: 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 Все права принадлежат авторам размещенных материалов.