Программирование с использованием массивов

БЕЛОРУССКИЙ НАЦИОНАЛЬНЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ

Международный институт дистанционного образования

Кафедра «Информационные системы и технологии»

Лабораторная работа 4

по учебной дисциплине

«ОСНОВЫ АЛГОРИТМИЗАЦИИ И ПРОГРАММИРОВАНИЯ»

(1 семестр)

ТЕМА РАБОТЫ

“ Программирование с использованием массивов”

Вариант 11

РУКОВОДИТЕЛЬ: преподаватель кафедры Кондратёнок Е.В.

ИСПОЛНИТЕЛЬ: студент Овсянников А.А. учебной группы № 41702217

МИНСК 2018

ВВЕДЕНИЕ

Язык программирования Pascal  был разработан в 1968-1971 гг. Никлаусом Виртом в Цюрихском Институте информатики (Швейцария). Первоначальная цель разработки языка диктовалась необходимостью инструмента «для обучения программированию как систематической дисциплине». Однако очень скоро обнаружилась чрезвычайная эффективность языка Pascal в самых разнообразных приложениях, от решения небольших задач численного характера до разработки сложных программных систем  –компиляторов, баз данных, операционных систем и т.п.

К настоящему времени Pascal принадлежит к группе наиболее распространенных языков программирования. Существуют многочисленные реализации языка практически для всех машинных архитектур. Разработаны десятки диалектов и проблемно-ориентированных расширений языка Pascal. Обучение программированию и научно-технические публикации в значительной степени базируются на этом языке.

ПОСТАНОВКА ЗАДАЧИ

Дан двухмерный массив A[1..m,1..n]. Написать программу построения одномерного массива B[1..m], элементы которого соответственно равны а) суммам элементов строк, б) произведениям элементов строк, в) наименьшим средних арифметических элементов строк

ТЕОРЕТИЧЕСКИЕ ОСНОВЫ

Для обработки матриц в задании применены вложенные операторы цикла со

счетчиком:

for<идентификатор>:=<нач. значение счетчика>to< конечное значение счетчика

>do<оператор>

Для создания матрицы из случайных чисел используется процедура randomize.

<идентификатор>:= random(число)

Для указания пути исходного и конечного файла – функция readln();

Для вывода информации пользователю использовалась функция write() и writeln()

Для вывода исходных и конечных матриц использовались пользовательские процедуры.

ОПИСАНИЕ ПРОГРАММЫ

Программа написана на алгоритмическом языке ПАСКАЛЬ и реализована в среде BorlandPascal-7.0 WindowsSeven, процессор Athlon. Программа выполняет:

1. Трансформирует исходные массивы согласно заданию;
2. Выводит на экран начальные массивы и трансформированные конечные.

ОПИСАНИЕ ВХОДНЫХ ДАННЫХ

Типы:

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

i,j,n,m,s,p,k:integer;

ser:real;

ОПИСАНИЕ ВЫХОДНЫХ ДАННЫХ

write(s,'; ') – выводит ответ а;

write(p,'; ') – выводит ответ б;

write(ser:4:2,'; ')  - выводит ответ в;

БЛОК-СХЕМА ПРОГРАММЫ

[pic 1]

[pic 2][pic 3][pic 4]

[pic 5][pic 6]

[pic 7][pic 8][pic 9]

[pic 10]

[pic 11][pic 12][pic 13][pic 14]

[pic 15][pic 16][pic 17]

[pic 18]

[pic 19][pic 20][pic 21][pic 22]

[pic 23][pic 24][pic 25]

[pic 26]

[pic 27]

[pic 28][pic 29]

[pic 30][pic 31]

[pic 32]

ТЕКСТПРОГРАММЫ

programvariant10;

uses

crt;

type

array4 = array[1..4] of integer;

  array4x4 = array[1..4, 1..4] of integer;

procedurecreateInputFile(numberOfElements: integer; filePath: string);

(*Создает исходный файл для кр. варианта 10*)

var

f: file of array4;

a: array4;

z, i: integer;

begin

Assign(f,filePath);

Rewrite(f);

fori := 1 to numberOfElementsdo

begin

forz := 1 to 4 do