Министерство
образования и науки РФ
СИБИРСКИЙ ГОСУДАРСТВЕННЫЙ ТЕХНОЛОГИЧЕСКИЙ УНИВЕРСИТЕТ
Лесосибирский филиал
Кафедра: Информационных и технических систем
Структурированные типы данных
Пояснительная записка
(ИТС.230100.012 ПЗ)
Руководитель:
_______П.А. Егармин
(подпись)
__________________
(оценка, дата)
Разработал:
Студент группы 62-1
________ Р.О. Сухих
(подпись)
__________________
(дата)
Содержание
Кафедра: Информационных и технических систем 1
Пояснительная записка 1
Задание 1. 3
Задание 2. 5
Задание 1. 9
Задание 1. 17
Задание 2. 19
Задание 1. 23
25
Задание 2. 25
Задание 1. 30
Задание 2. 34
ОБРАБОТКА ЭЛЕМЕНТОВ ОДНОМЕРНОГО МАССИВА 3
Задание 1. 3
Задание 2. 5
ОБРАБОТКА ЭЛЕМЕНТОВ ДВУМЕРНОГО МАССИВА 9
Задание 1. 9
Задание 2. 13
СИМВОЛЬНЫЕ СТРОКИ 17
Задание 1. 17
Задание 2. 19
ПРОЦЕДУРЫ И ФУНКЦИИ 23
Задание 1. 23
Задание 2. 25
СОСТАВНЫЕ ТИПЫ ДАННЫХ В ПРОЦЕДУРАХ И ФУНКЦИЯХ 30
Задание 1. 30
Задание 2. 34
Вариант
№7
ОБРАБОТКА ЭЛЕМЕНТОВ ОДНОМЕРНОГО МАССИВА
Цель работы: Овладение практическими навыками работы с массивами, особенностями их ввода и вывода, приобретение дальнейших навыков по организации программ циклической структуры с использованием приемов программирования.
Задание 1.
Постановка задачи:
Найти сумму положительных и сумму отрицательных элементов массива Х.
Математическая формулировка задачи:
В данной программе необходимо проверить внутренние элементы массива на соответствие условию, если элемент больше 0, то складываем в сумму с положительными числами, а если меньше, то в сумму с отрицательными числами.
Таблица 1 - Таблица внешних спецификаций
|
Имя переменной |
Назначение переменной |
Тип переменной |
Входные данные |
i a |
индекс элемента массива
массив |
integer integer |
Выходные данные |
sp
so |
сумма положительных чисел
сумма отрицательных чисел |
integer
integer |
Расчет контрольных примеров:
Блок-схема:
Выполнено в программе«БлокСхемник0.8».
Рисунок 1 – Блок-схема к заданию №1
Программная реализация:
program laba1_1;
uses crt;
type
mas=array[1..10] of integer;
var
a:mas;
i,sp,so,k:integer;
begin
clrscr;
sp:=0;
so:=0;
randomize;
write('Массив a:');
for i:=1 to 10 do
begin
a[i]:=random(20)-10;
write(a[i]:4);
if a[i]>0 then sp:=sp+a[i];
if a[i]<0 then so:=so+a[i];
end;
writeln;
writeln('Сумма положительных= ', sp);
writeln('Сумма отрицательных= ', so);
end.