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

Автор работы: Пользователь скрыл имя, 06 Декабря 2011 в 16:05, курсовая работа

Краткое описание

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

Содержание работы

Введение
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

Скачать целиком (504.41 Кб) Сколько стоит заказать работу?
Содержимое работы - 1 файл

Курсак ту.doc

— 627.00 Кб (Скачать файл)
Переменная Тип Назначение
s,s1 string Параметр соответствующей  подпрограммы (исходная строка).
cnt,cnt2 integer счетчик
num integer Число веденное с клавиатуры
i integer Локальная переменная соответствующей подпрограммы (элемент строки)
а array[1..100] of string Массив
n integer Переменная  выбора элемента меню
 
 

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

     program Zadanie_6;

     uses CRT, MZ6;

     var stroka: string;

     Begin

     ClrScr;

     write('Vvedite stroku: ');

     readln(stroka);

     stroka:=Del_Zn_Prep(stroka);

     writeln('Novaya stroka: ', stroka);

     stroka:=Probeli(stroka);

     writeln('Stroka bez cifr: ', stroka);

     stroka:=First_Slovo(stroka);

     writeln('Pervoe slovo: ', stroka);

     readln;

     end.

     Unit MZ6;

     interface

     Function Del_Zn_Prep(stroka: string): string;

     Function Probeli(stroka: string): string;

     Function First_slovo(stroka: string): string;

     implementation

     Function Del_Zn_Prep(stroka: string): string;

     var i: integer;

         Temp: string;

     begin

     temp:='';

     for i:=1 to Length(stroka) do

      if (stroka[i]<>'.') and (stroka[i]<>',')

       then temp:=temp+stroka[i];

     Del_Zn_Prep:=temp;

     end;

     Function Probeli(stroka: string): string;

     var i: integer;

         Temp: string;

         ch: char;

     begin

     temp:='';

     for i:=1 to Length(stroka) do

      begin

       ch:=stroka[i];

       case ch Of

        '0'..'9': temp:=temp+' ';

        else temp:=temp+stroka[i];

       end;

      end;

     Probeli:=temp;

     end;

     Function First_slovo(stroka: string): string;

     var i: integer;

         Temp: string;

     begin

     temp:='';

     for i:=1 to Length(stroka) do

      begin

       if stroka<>' ' then temp:=temp+stroka[i]

                       else Break;

      end;

     First_slovo:=temp;

     end;

     End. 

      6.4 Тестирование

      Если  ввести пустую строку, то программа  выведет пустую строку и завершиться (1).

    Если ввести строку и затем выбрать недопустимое действие, то программа не произведет никаких действий (2). При выборе допустимых значений программа ведет себя корректно и выполняет свой алгоритм (3,4,5).

     

     

     

     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     

      Заключение

      В процессе выполнения курсового проекта было решено пять задач на языке программирования Pascal.

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

      Список  использованных источников 

1. Рапаков  Г.Г., Ржеуцкая С.Ю. Программирование  на языке Pascal. С-Пб: БХВ-Петербург, 2004, 450с.

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