Программы сортировки элементов массива.

1)поиск наименьшего (наибольшего элемента) и перемещение его.

program fff;

uses crt;

const n=15;

var a:array [1..n] of integer;

i,j,p:integer;

begin

clrscr;

for i:=1 to n do begin

a[i]:=random(40);

write(a[i]:4) end;

writeln;

for i:=1 to n-1 do begin

for j:=i+1 to n do begin

if a[j]>a[i] {po ybuvan} then

begin p:=a[i];a[i]:=a[j];a[j]:=p end;

end;

for j:=1 to n do write(a[j]:4);

writeln

end;

writeln;

for i:=1 to n do begin

write(a[i]:4); end;

readln;

end.

2) метод поплавка

program ff;

uses crt;

const n=15;

var a:array [1..n] of integer;

i,j,p:integer;

begin

clrscr;

writeln(' massiv');

for i:=1 to n do begin

a[i]:=random(40);

write(a[i]:4) end;

writeln;

writeln('sortirovka');

for i:=1 to n-1 do begin

for j:=1 to n-i do begin

if a[j]<a[j+1] {po ybuvan} then

begin p:=a[j];a[j]:=a[j+1];a[j+1]:=p end

end;

for j:=1 to n do write(a[j]:4);

writeln

end;

writeln('posle cortirovki');

for i:=1 to n do write(a[i]:4);

readln;

end.

Примеры составления блок – схем некоторых задач.

1) Найти четные элементы в одномерном массиве К(30). Организовать из найденных элементов отдельный массив (представлен фрагмент блок-схемы)

2) Найти максимальный элемент в одномерном массиве К(30) и его порядковый номер (представлен фрагмент блок-схемы)

3) В матрице А(6,6) найти максимальный и минимальный элементы с указанием их номеров и среднее арифметическое значение всех ее элементов. Элементы матрицы задать с помощью генератора случайных чисел. Заданную матрицу распечатать.

4) В массиве А(50) найти минимальный элемент в каждом десятке элементов. Заданный массив распечатать.

Приложение 1. Зарезервированные слова.

Absolute, and, array, begin, case, const, div, do, downto, else, end, external, file, for, forward, function, goto, if, implementation, in, inline, interface, interrupt, label, mod, nil, not, of, or, packed, procedure, program, record, repeat, set, shl, shr, string, then, to, type, unit, until, uses, var, while, with, xor

Приложение 2. Список ошибок.

В приложении приведены наиболее часто встречающие при выполнении курсовых и индивидуальных заданий сообщения об ошибках. Если пропущены скобки, знаки препинания или служебные слова, то выдается сообщение со словом expected и указанием пропущенного слова или знака.

2: Identifier expected – не указан идентификатор, возможна попытка использования зарезервированного слова;

3: Unknown identifier – неизвестный идентификатор, этот идентификатор не был описан;

5: Syntax error – синтаксическая ошибка, в тексте найден неверный знак;

12: Type identifier expected – требуется идентификатор типа, отсутствует указание типа идентификатора;

20: Variable identifier expected – требуется идентификатор переменной, идентификатор не описывает переменную должным образом;

26: Type mismatch – несоответствие типов;

42: Error in expression – ошибка в выражении;

62: Division by zero – деление на ноль;

113: Error in statement – ошибка в операторе, данный символ не может быть первым символом в операторе;

140: Invalid floating-point operation – недопустимая операция с плавающей запятой, при операции с двумя действительными значениями было получено переполнение или деление на ноль;

143: Invalid procedure or function reference – недопустимая ссылка на процедуру или функцию.