Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
курсраб №2.doc
Скачиваний:
5
Добавлен:
01.07.2025
Размер:
335 Кб
Скачать
☆

Пояснительная записка Информационная таблица

Задание 1

№ п/п

Файлы

До выполнения

После выполнения

1.1

А1

А2

А3

Y(5,3)

Z(3,5)

–––

Y(5,3)

Z(3,5)

X(5,5), P(3,3)

1.2

А1

А2

А3

Y(5,3)

Z(3,5)

X(5,5), P(3,3)

Пр-н–Y(5,3)

Пр-н–Z(3,5)

Пр-н–X(5,5), P(3,3)

1.3

А1

А2

А3

А4

Y(5,3)

Z(3,5)

X(5,5), P(3,3)

–––

Y(5,3)

Z(3,5)

X(5,5), P(3,3)

PY, PZ, PX, PP

Задание 2

Файл

Ввод с клавиатуры

Вывод в файл

2.1

А1.txt

А2.txt

Текст

––

––

Количество заглавных русских и латинских букв

2.2

А1.txt

А3.txt

––

––

––

Все символы, встречающиеся во второй половине текста.

2.3

A1.txt

A4.txt

––

––

––

‘Первая строка является десятичной записью кратной двум’ или ‘Первая строка не является десятичной записью кратной двум’.

‘Первая строка является десятичной записью кратной трем’ или ‘Первая строка не является десятичной записью кратной трем’.

Задание 3

Файл

Ввод с клавиатуры

Вывод на экран

Bazdan.txt

Rec(25) of poezd

––

3.1

Bazdan.txt

Временной интервал

Поездов, у которых время отправления совпадает с введенным интервалом

3.2

Bazdan.txt

Номер билета

Поезда с номером, соответствующему введенному номеру с клавиатуры

Схемы стадий пошаговой детализации методом иерархической декомпозиции

Укрупненные блок-схемы

Задание 1

Начало 26 39

1 5 28 40

1 6 29 41

1 7 30 42

1 8 31 43

19 32 44

20 33 45

21 34 Конец

2 2 35

2 3 36

24 37

  1. 38

З

19

адание 2.

Н

20

ачало

1

21

3

1

22

4

15

23

1 6

23

1 7

18

Задание 3.

Начало

5

6

7

8

9

Конец

Описание программы

Программа под названием ZVEZDA, выполнена на языке программирования высокого уровня Pascal. Программное обеспечение, используемое при написании данной программы, является Borland Pascal 7.0.

Детализированная блок-схема

Описание модулей для каждой подпрограммы

  1. П/п1 вводит из файла name матрицу Q(k,j) Исх. дан.2: name, k, j Рез.3: Q procedure enter(name:string; k,j:byte; var Q:mas)

  2. П/п умножает матрицу P(k,l) на матрицу O(l,k) и результат записывает файл name Исх. дан.: name, k, l, p, o Рез.: –– procedure prv(name:string; k,l:byte; var p,o:mas)

  3. П/п возвращает сумму элементов матрицы D(n,m) Исх. дан.: n, m, d Рез.: sum function sum(n,m:byte; var d:mas):real

  4. П/п возвращает максимальное данное из x,y,z Исх. дан.: x, y, z Рез.: Pmax function Pmax(x,y,z:real):real

  5. П/п умножает столбец m матрицы X(n,h) на p и добавляет преобразованную матрицу в файл name Исх. дан.: name, p, n, m, h, X Рез.: –– procedure UMN(name:string; p:real; n,m,h:byte; var x:mas)

  6. П/п вводит матрицу из файла name, если logic=1 элементы матрицы находятся не на нулевой позиции, то переводит невидимый указатель на k позиций и считывает с k+1 позиции, после находит произведение ненулевых элементов, результат добавляет в файл name1 Исх. дан.: name, name1, k, n, m, logik Рез.: –– procedure prnot0(name,name1:string; k,n,m,logik:byte)

  7. П/п определяет количество заглавных русских и латинских букв в файле name1 и выводит в файл name2 Исх. дан.: name1,name2 Рез.: –– procedure kol_buk(name1,name2:string)

  8. П/п выводит все символы второй половины текста в файл name2 считанного из файла name1 Исх. дан.: name1,name2 Рез.: –– procedure symbol(name1,name2:string)

  9. П/п определяет, является ли первая строка файла name1 десятичной записью кратной трем и последняя строка десятичной записью кратной двум, после выводит сообщение в файл name2 Исх. дан.: name1,name2 Рез.: –– procedure kratn(name1,name2:string)

  10. П/п вводит сведения из файла name и осуществляет поиск по введенным данным Исх. дан.: name Рез.: –– procedure bazdan(name:string)

Подпрограммы интерфейса

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

  1. П/п описывает размеры окна a, b, c, d, цвет фона e и цвет текста f Исх. дан.: a, b, c, d, e, f Рез.: –– procedure wind(a,b,c,d,e,f:byte)

  2. П/п воспроизводит звуковой сигнал Исх. дан.: –– Рез.: –– procedure signal

  3. П/п воспроизводит некоторый меняющийся звук, скорость которого зависит от заданного числа i, где это число определяет миллисекунды, звук будет продолжаться, пока не будет нажата любая клавиша Исх.: i Рез.: –– procedure music(I:integer)

  4. П/п возвращает значение от menus в зависимости от которого выполняется тот или иной пункт задания Исх.: –– Рез.: menus function menus