Типология обществ

End.

End

Begin

Begin

Begin

END.

Begin

Begin

BEGiN

Var

Begin

BEGIN

Var

mas: array [1..10] of integer; {Описание одномерного массива с именем mas, состоящего из 10

элементов типа integer}

n,i: integer; {n-количество элементов массива, i-счетчик в цикле for}

clrscr;

writeln('Введите количество элементов массива не больше 10: ');

readln(n);

for i:=1 to n do {ввод элементов массива}

writeln('Введите ',i,' элемент массива');

readln(mas[i]);

end; {конец ввода }

writeln('Введенный массив: ');

for i:=1 to n do {вывод элементов массива}

write(' ',mas[i],' ');

readkey; {конец вывода}

END.

4. Пример программы ввода-вывода двумерного массива

program primer2;

uses crt;

i,j,n,m:integer;

massiv:array[1..10,1..10] of integer; {описан двумерный массив с именем massiv}

clrscr;

write('Введите количество строк массива (не больше 10): ');

read(n); {n-количество строк}

write('Введите количество столбцов массива (не больше 10):');

read(m); {m-количество столбцов}

for i:=1 to n do {ввод элементов двумерного массива}

for j:=1 to m do

read(massiv[i,j]);

end; {конец ввода}

writeln('Введенный массив: ');

for i:=1 to n do {вывод элементов двумерного массива}

for j:=1 to m do

write(massiv[i,j]:5);

end; {конец вывода}

readkey;

5. В квадратной матрице n-го порядка найти и вывести на экран строку, сумма элементов которой максимальна.

Program matrica;

Сonst Nmax = 20;

Var A: Array [1..nmax, 1..nmax ] Of Real;

i,j,N,Nstr: Byte;

S,Smax: Real;

Writeln ('Ввести порядок матрицы <= ',nmax,')');

Readln (n);

For i:=1 To N Do

Writeln ('Введите элементы ',i,'-й строки ');

For j:=1 To N Do Read (A[i,j]);

S:=0;

For j:=1 To N Do S:=S + A[i,j]; { накопление суммы элементов матрицы }

If i=1 Then

Nstr:=1; { если это первый элементстолбца, то запомнить в S максимальное значение суммы}

{элементов строки }

Smax:=S;

Else if S > Smax Then

Begin { сумма элементов текущей строки >, то заменить на бóльшую для дальнейшего сравнения}

Nstr:=i;

Smax:=s;

End;

End;

Writeln ('Номер строки = ',nstr);

For j:=1 To N Do Write (A[nstr,j]:10:3); {вывод элементов указанной строки}

Writeln;

Контрольные вопросы

1. Массивы. Основные понятия. Приведите определение массива.

2. Формат записи массивов. Описание одномерного и двумерного массивов.

3. Действия над массивами. Действия над элементами массивов.

4. Как описать типизированную константу типа «многомерный массив»?

5. Какой тип данных можно использовать в качестве индексов элементов массивов?

6. Примеры описания и ввода-вывода линейного и двумерного массивов.

По степени организации

Простые

Сложные

По типу производственных отношений (марксизм)

Первобыт-ное

Рабовладельческое

Феодальное

Капиталистическое

Коммунистическое

По степени развитости производства (Ф.Теннис)

Допромышленные

Промышленно-городские

По времени введения письменности

Дописьменные

Письменные

По типу хозяйства (Д. Белл, А. Турен, Ю. Хабермас)

Доиндустриальные

Индустриальные

Постиндустриальные

По структуре (К. Поппер)

Открытые

Закрытые

По типу государственного устройства (Платон и Аристотель)

Монархия

Тирания

Аристократия

Олигархия

Демократия

По типу государственного устройства (современная классификация)

Тоталитарные

Демократические

Авторитарные

Дата добавления: 2014-01-03