Заключение

В ходе выполнения данной курсовой работы были изучены основные приемы и алгоритмы работы с одномерными массивами в среде программирования PascalABC.Net, что поспособствовало закреплению теоретического материала на практике.

Данная курсовая работа помогла прояснить некоторые теоретические и практические вопросы, которые связаны с использованием массивов в программировании.

Проведенное в рамках данной курсовой работы исследование позволяет сформулировать следующие результаты:

1. Провели анализ учебно-методической и технической литературы по проблеме исследования.

2. Разработали некоторые алгоритмы преобразования одномерных массивов.

3. Реализовали алгоритмы преобразования одномерных массивов средствами языка программирования Pascal.ABC.

Все задачи, поставленные в данном исследовании, были выполнены в полном объеме.

Библиография

1. Бежанова, М.М. Москвина Л.А. Практическое программирование. Приемы создания программ на языке Паскаль. – М.: Научный Мир, 2000.

2. Вирт, Н. Алгоритмы и структуры данных: Пер. с англ. – М.: Мир, 1989.

3. Вирт, Н. Алгоритмы + структуры данных = программы: Пер. с англ. – М.: Мир, 1985.

4. Вирт, Н. Систематическое программирование. Введение: Пер. с англ. – М.: Мир, 1977.

5. Демидов, Д.В. Основы программирования в примерах на языке Паскаль: Учебное пособие. – М.: НИЯУ МИФИ, 2010.

6. Павловская, Т.А. Паскаль. Программирование на языке высокого уровня: Учебник для вузов. – СПб.: Питер, 2007.

7. Рапаков, Г.Г. Программирование на языке Pascal. – СПб.: БХВ-Петербург, 2004.

8. Ускова, О.Ф. Программирование на языке Паскаль: задачник. – СПб.: Питер, 2003.

9. Ушаков, Д.М. Паскаль для школьников. – СПб.: Питер, 2010.

10. Фаронов, В.В. TurboPascal 7.0. Учебный курс: учебное пособие. – М.: КНОРУС, 2011.

11. Федоренко, Ю. Алгоритмы и программы на TurboPascal. Учебный курс. – СПб.: Питер, 2001.

Приложение 1

Program C;

uses GraphAbc;

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

s,i,n: integer;

begin

setfontstyle(fsBold);

Writeln ('Программа вычисляет сумму элементов заданного массива');

setfontstyle(fsNormal);

writeln;

Writeln (' Введи количество элементов: ');

Readln (n); writeln(n,' ');

For i:=1 to n do begin write (i, ' элемент = ');

Readln (a[i]); writeln(a[i],' ');

end;

writeln;

writeln;

Writeln (' Полученные элементы: ');

for i:=1 to n do

write (a[i]:4);

s:=0;

For i:=1 to n do

s:=s+a[i];

writeln;

setfontstyle(fsBold);

writeln('Сумма элементов = ',s);

end.

Приложение 2

Program B;

uses GraphAbc;

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

s1,i,n: integer;

begin

setfontstyle(fsBold);

Writeln ('Программа вычисляет произведение элементов заданного массива');

setfontstyle(fsNormal);

writeln;

Writeln (' Введи количество элементов: ');

Readln (n); writeln(n,' ');

For i:=1 to n do begin write (i, ' элемент = ');

Readln (a[i]); writeln(a[i],' ');

end;

writeln;

writeln;

Writeln (' Полученные элементы: ');

for i:=1 to n do

write (a[i]:4);

s1:=1;

For i:=1 to n do

s1:=s1*a[i];

writeln;

setfontstyle(fsBold);

writeln('Произведение элементов = ',s1);

end.

Приложение 3

Program A;

uses GraphAbc;

Var mas:array [1..100] of integer;

max,i,n:integer;

begin

setfontstyle(fsBold);

Writeln ('Программа находит максимальный элемент заданного массива');

setfontstyle(fsNormal);

writeln;

Writeln (' Введи количество элементов: ');

Readln (n); writeln(n,' ');

For i:=1 to n do begin write (i, ' элемент = ');

Readln (mas[i]); writeln(mas[i],' ');

end;

writeln;

writeln;

Writeln (' Полученные элементы: ');

for i:=1 to n do

write (mas[i]:4);

Max:=mas[i];

For i:=2 to n do

if mas[i]>max then max:=mas[i];

Writeln;

setfontstyle(fsBold);

writeln ('Из них максимальным является элемент: ',max);

Readln

end.

Приложение 4

Program D;

uses GraphAbc;

var b: array[1..100] of integer;

i,j,k,n,r: integer;

begin

setfontstyle(fsBold);

Writeln ('Программа показывает работу метода сортировки "Пузырёк" и сортирует таким образом за - данный с клавиатуры массив по возрастанию номинала элементов');

setfontstyle(fsNormal);

writeln;

Writeln (' Введи количество элементов: ');

Readln (n); writeln(n,' ');

For i:=1 to n do begin write (i, ' элемент = ');

Readln (b[i]); writeln(b[i],' ');

end;

writeln;

writeln;

Writeln (' Полученные элементы: ');

for i:=1 to n do

write (b[i]:4);

writeln;

writeln ('Выберите сортировку: 1 - по возрастанию; 2 - по убыванию');

readln(r);

if r=1 then

for i:=1 to n-1 do

for j:=i+1 to n do

if b[i]>b[j] then

begin

k:=b[i];

b[i]:=b[j];

b[j]:=k;

end;

if r=2 then

for i:=1 to n-1 do

for j:=i+1 to n do

if b[i]<b[j] then

begin

k:=b[i];

b[i]:=b[j];

b[j]:=k;

end;

writeln;

setfontstyle(fsBold);

writeln('Массив после сортировки пузырьковым методом: ');

for i:=1 to n do

write(b[i],' ');

end.