Программирование и основы алгоритмизации

Федеральное агентство по образованию Российской Федерации

Вологодский государственный технический университет 

Кафедра АВТ 
 
 
 
 
 
 
 
 
 
 
 
 

Пояснительная записка к курсовому проекту

по дисциплине

«Программирование и основы алгоритмизации» 
 
 
 
 
 
 
 
 
 
 

                                                        Выполнил студент: Казаков Д.В.

                                                        Принял преподаватель: Давыдова Е.Н. 
 
 
 
 
 
 
 
 
 
 

Череповец

2010 

СОДЕРЖАНИЕ 

Введение

1 Задание  1…………………………………………………………………………………….....4

1.1 Работа  программы…………………………………………………………………………...4

1.2 Назначение  переменных…………………………………………………………………….4

1.3 Блок  – схема алгоритма программы………………………………………………………..5

1.4 Текст  программы…………………………………………………………………………….6

1.5 Тестирование……………………………………………………………………………..….6

2 Задание  2…………………………………………………………………………………….…7

2.1 Работа  программы…………………………………………………………………………...7

2.2 Назначение  переменных………………………………………………………………….....7

2.3 Блок  – схема алгоритма программы………………………………………………………..8

2.4 Текст  программы………………………………………………………………………..….9

2.5 Тестирование……………………………………………………………………………..…10

3 Задание  3………………………………………………………………………………………11

3.1 Работа  программы …………………….................................................................................11

3.2 Назначение переменных………………………………………………...............................11

3.3 Блок  – схема алгоритма программы………………………………………………………12

3.4 Текст  программы…………………………………………………………………………...13

3.5 Тестирование……………………………………………………………………………….14

4 Задание  4……………………………………………………………………………………...14

4.1 Работа  программы………………………………………………………………………….14

4.2 Назначение  переменных…………………………………………………………………...14

4.3 Блок  – схема алгоритма программы………………………………………………………16

4.4 Текст  программы…………………………………………………………………………...17

4.5 Тестирование……………………………………………………………………………….17

5 Задание  5……………………………………………………………………………………...18

5.1 Работа  программы……………………………………………………………………….....18

5.2 Назначение  переменных…………………………………………………………………...18

5.3 Блок  – схема алгоритма программы………………………………………………………19

5.4 Текст  программы…………………………………………………………………………...20

5.5 Тестирование…….………………………………………………………………………….21

 Задание  6……………………………………………………………………………………......22

6.1 Работа программы………………………………………………………………………......23

6.2 Назначение переменных…………………………………………………………………...23

6.3 Текст программы …………………………………………………………………………..24

6.4 Тестирование …………………………………………………………………………........27

Заключение……………………………………………………………………………………..29 
 
 
 
 
 
 
 
 
 
 
 
 
 

      Введение 

      Целью курсового проекта является развитие навыков алгоритмизации, кодирования и тестирования программной продукции. В ходе выполнения курсового проекта необходимо решить шесть задач на языке программирования Pascal по темам: циклы, одномерные массивы и матрицы, строки и файлы. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

      1 Задание №1

     Заданы  два массива A и B по N элементов.   Сформировать и  вывести на печать массив L из 2*N элементов: 
L=(A(1)+B(1),A(1)-B(1),A(2)+B(2),A(2)-B(2),.....,A(N)+B(N),A(N)-B(N)) 
Значение N и элементы массива A ввести с клавиатуры. 

      

1. Работа  программы

     Работа  программы начинается с ввода  количества элементов N. Далее массив заполняется случайным числами в диапазоне от -100 до 100. В цикле находим минимальный элемент массива и меняем местами с последний элементов, перезаписываем массив. На экран выводятся массивы до и после изменения.

2. Назначение переменных

      Назначение  переменных, используемых в задаче, приведено в таблице 1

            Таблица 1 – Назначение переменных

 
 
 
 
 
  

3. Блок  – схема  алгоритма  программы

4. Текст программы

     program Z1;

     uses Crt;

     var A: array [byte] of integer;

         B: array [byte] of integer;

         L: array [byte] of integer;

         N: byte;

         i: integer;

         j: integer;

     Begin

     ClrScr;

     write('Vvedite N=');

     readln(N); 

     Randomize;

     for i:=1 to N do

      begin

       A[i]:=random(100);

       B[i]:=random(100);

      end;

     for i:=1 to N do write('A[',i,']=',A[i],' ');

     writeln;

     for i:=1 to N do write('B[',i,']=',B[i],' ');

     writeln;

     i:=0;

     j:=1;

     while i<=2*N do

      begin

       i:=i+1;

       L[i]:=A[j]+B[j];

       i:=i+1;

       L[i]:=A[j]-B[j];

       j:=j+1;

      end;

     writeln;

     for i:=1 to 2*N do write('L[',i,']=',L[i],' ');

     readln;

     End.

5. Тестирование программы

      Вводим  количество элементов массивов N, массив С составлен верно(1). При вводе количества элементов, равном 5, программа работает корректно (2).

      1:

 

      2:

 
 
 
 

      2 Задание №2

     Определить  суммы элементов всех  столбцов матрицы размерами N*M и наибольшую среди них. Размеры матрицы и ее элементы задать при помощи ввода

      2.1  Работа программы

      Указываем число строк и столбцов массива N и M соответственно . В цикле массив заполняется случайным образом в диапазоне от 0 до 100 (внешний цикл по i (строки), вложенный - по j (столбцы) ). Размерность матрицы, так же задается в цикле, N и M не больше 10.  Затем на экран выводится максимальный элемент массива, строка, в которой этот элемент располагается, а затем сумма элементов этой стоки.

      2.2 Назначение переменных

      Назначение  переменных, используемых в задаче, приведено в таблице 2.

            Таблица 2 – Назначение переменных

 
 
 
 
 

      2.3 Блок – схема алгоритма программы

      2.4 Текст программы

     program Z2;

     uses Crt;

     var Mas: array [1..100, 1..100] of integer;

         i: integer;

         j: integer;

         N: byte;

         M: byte;

         Summa: integer;

         Max_S: integer;

     Begin

     ClrScr;

     write('Vvedite N=');

     readln(N);

     write('Vvedite M=');

     readln(M);

     Randomize;

     for i:=1 to N do

     for j:=1 to M do

      Mas[i,j]:=random(100);

     for i:=1 to N do

      begin