СКАЧАТЬ:  kursovaya.zip [25,42 Kb] (cкачиваний: 29)

КУРСОВАЯ РАБОТА

ПО ДИСЦИПЛИНЕ «ИНФОРМАТИКА»

РАЗДЕЛ: АЛГОРИТМИЧЕСКИЙ ЯЗЫК PASCAL

НА ТЕМУ:

РАЗРАБОТКА В СРЕДЕ TURBO PASCAL ПРОГРАММЫ СОЗДАНИЯ НОВОЙ ОДНОМЕРНОЙ ПОСЛЕДОВАТЕЛЬНОСТИ

Содержание

Задание. 3

 Блок-схема. 4

 Программа. 5

Описание используемых модулей и основных операторов. 6

Приложение. 11

Список литературы.. 12

Задание 

Разработка в среде Turbo Pascal программы создания новой одномерной последовательности.

        Дана целочисленная матрица А размером 5х5. Получить целочисленную одномерную последовательность В₁, В₂, …,В₂₅, элементами которой являются числа, полученные из квадратной матрицы по предложенной на рисунке схеме, т.е. В₁=А₁₁, В₂=А₂₁, …, В₂₅=А₅₅.

Для отладки программы элементы матрицы сформировать с помощью генератора случайных чисел.

Блок-схема

Программа 

program post;

uses crt;

    const n=5;

var i,j,k: integer;

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

    b: array[1..n*n] of integer;

begin

    clrscr;

    randomize; k:=0;

    for i:=1 to n do begin

      for j:=1 to n do begin

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

        write(a[i,j]:3);

      end; writeln;

    end;

    writeln;

    for j:=1 to n do

      if j mod 2=1 then for i:=1 to n do begin

        k:=k+1;

        b[k]:=a[i,j];

      end

      else for i:=n downto 1 do begin

        k:=k+1;

        b[k]:=a[i,j];

        end;

    for k:=1 to n*n do write(b[k]:3); end.

Описание используемых модулей и основных операторов 

Структура программы

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

■   заголовок программы;

■   раздел объявления меток;

■   раздел объявления констант;

■  раздел объявления типов;

■   раздел объявления переменных;

■  раздел объявления процедур и функций;

■  тело программы (обязательная часть).

Заголовок программы.

Заголовок программы необязателен и игнорируется компилятором. Если заголовок присутствует, то он состоит из зарезервированного слова и имени программы, возможно со списком параметров в круглых скобках. Конец заголовка обозначается точкой с запятой:

PROGRAM ONE;

Порядок размещения остальных разделов произвольный, программист может создавать несколько одинаковых разделов.

USES:  указывает, какие  внешние  TPU  файлы  будет использовать программа (это специфика Turbo Pascal). Для выполнения данной курсовой работы нам необходимы следующие стандартные библиотеки Turbo Pascal: Crt, System.

Подпрограммы модуля CRT обеспечивают контроль над текстовыми режимами экрана, расширенными кодами клавиатуры, цветами, окнами и звуком.

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

Например, целочисленную и строковую константы можно задать следующим образом:

CONST

А = 250; В = 'АВВА';

      Раздел объявления переменных.

Объявление различных переменных всегда начинается с зарезервированного слова VAR, за которым следует список переменных. Для всех переменных обозначается тип, стандартный или ранее объявленный в программе:

VAR

I, J : INTEGER; L : REAL; STR : STRING;

ARRAY [1..N] OF INTEGER  -Данный массив отображает последовательность чисел.

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

Чтобы задать тип массива, необходимо использовать зарезервированное слово ARRAY, тип индексов массива и тип компонентов массива.

Элементы массива пронумерованы, и обратиться к каждому из них можно, указав его индекс. Индексом, называется номер элемента массива, причем индексов может быть несколько. В математических вычислениях часто приходится иметь дело с векторами. Массив с одним индексом называют одномерным массивом, с двумя — двумерным и т. д. . Одномерный массив — это пример массива, в котором элементы нумеруются одним индексом. Если в массиве хранится таблица значений (матрица), то такой массив называется двумерным, его элементы нумеруются двумя индексами — номером строки и столбца соответственно. Массивы еще большей размерности (трехмерные, четырехмерные и т. д.) на практике встречаются довольно редко.

Алгоритмы, с помощью которых обрабатывают одномерные массивы, очень похожи на обработку последовательностей (поиск, выборка и т. д.). Отличие заключается в том, что в массиве одновременно доступны все его компоненты. Такой доступ называется параллельным. Поэтому становятся возможны сортировки элементов по убыванию значений, по возрастанию или по какому-либо другому признаку. Возможны также и более сложные преобразования массивов.

Над элементами массива можно выполнять все операции, которые допускаются его типом. Так, для числовых массивов (целый или вещественный типы) допустимыми являются арифметические операции.

Тело программы

Тело программы обязательно и должно быть заключено между BEGIN и END с точкой.

С помощью оператора присваивания какой-либо переменной присваивается значение, например:

F := FALSE;

STR := 'QWERTY': | := (A+B+Q/C;

CLRSCR - процедура очищает экран и устанавливает курсор в левый верхний угол экрана.

RANDOMIZE - процедура инициализирует встроенный генератор случайных чисел случайным значением. Случайное значение получается от системного таймера. Число, получаемое в результате работы генератора случайных чисел, хранится в предопределенной переменной с именем RandSeed.

RANDOM - function Random [ (Range: Word) ];

Назначение: Возвращает случайное число.

Если параметр Range (диапазон) не задан, то результатом будет вещественное число Х в диапазоне 0 <= Х < 1. Если задан параметр Range, то он должен представлять собой выражение целого типа, а результатом будет случайное число длиной в слово в диапазоне 0 <= х < N, где N — значение, заданное параметром Range. Если параметр Range меньше или равен нулю, то возвращаемое значение будет равно нулю.

Оператор цикла FOR ...  DO.  Оператор безусловного цикла имеет следующую структуру

FOR I := N1 ТО N2 DO

<Тело цикла>;

где I - переменная цикла, которая должна быть перечисляемого типа (целая, символьная и т. д.); N1 - начальное значение переменной цикла; N2 - конечное значение переменной цикла.

Безусловный цикл выполняется заданное число раз. Чтобы прервать выполнение досрочно, необходимо увеличить I до конечного значения.

При программировании может быть использован другой условный оператор цикла, в котором происходит уменьшение значения переменной:

FOR I:- N2 DOWNTO N1 DO

<тело цикла>;

Для вывода данных используются процедуры WRITE и WRITELN. Процедура  WRITE производит вывод данных, не переводя курсора на следующую строку, a WRITELN курсор переводит.

При использовании этих операторов можно указывать число позиции, в которых нужно вывести значение:

WRITE(J : 8, I : 12 );

Условный оператор IF

Ключевые слова if, then, else обозначают "если", "то", "иначе" соответственно. Выполнение условного оператора начинается с вычисления условия. Если оно истинно (true, "да", 1), то выполняется оператор, стоящий после служебного слова then. Если условие ложно (false, "нет", 0), то выполняется оператор, стоящий после служебного слова else. Часть оператора, стоящая после служебного слова else, может отсутствовать. В этом случае при ложности проверяемого условия просто выполняется следующая по порядку за оператором условия инструкция.

Приложение

Список литературы 

1. Иванов А.С., Потапова О.Н., Салихова Г.Л. «Word для начинающих», Альметьевск: АлНи, 2003 г.
2. Киселев А.Г. «Turbo Pascal для студентов и школьников», СПб.: БХВ-Петербург 2004 г.
3. Марченко А.И. «Программирование в среде Turbo Pascal 7.0», Киев:  «Вект» 2000 г.
4. Миронова К.В. «Учимся программировать: Turbo Pascal», Киев:  BHV, «Ирина» 2001г.