Реферат: Лабораторная №6 вариант №13 по информатике, выполненная с использованием подпрограмм-процедур и подпрограмм-функций
💣 👉🏻👉🏻👉🏻 ВСЯ ИНФОРМАЦИЯ ДОСТУПНА ЗДЕСЬ ЖМИТЕ 👈🏻👈🏻👈🏻
Целью
работы является
написание
программы на
языке программирования
« Pascal »
для DOS
с использованием
подпрограмм
и функций, задания
для которых
обозначены
вариантом
лабораторной
работы.
Главной
задачей программиста
является создание
наиболее простого,
и, следовательно,
быстрого алгоритма
программы,
выполняющего
оба задания
– А и Б, причём
задание А необходимо
оформить в виде
процедуры, а
задание Б в
виде функции.
При этом сделать
программу как
можно проще
в использовании.
Помимо
короткого
основного
модуля программы,
который управляет
процедурами
и функциями,
в программу
включены две
функции и одна
процедура, они
же и являются
подпрограммами,
которые было
необходимо
использовать
по условию
лабораторной
работы.
Процедура
представляет
собой задание
А, в котором
необходимо
было подсчитать
количество
нулей в матрицах.
В программе
матрицы представлены
двухмерным
массивом, числа
в которые заносятся
автоматически
посредством
случайного
их генератора,
после чего над
ними производятся
вычисления.
Необходимо
подчеркнуть,
что как для
занесения в
матрицы случайных
чисел, так и
для подсчёта
их нулевых
элементов,
использовался
один двойной
цикл оператора
FOR .
Первая
функция – это
программное
меню, которое
предоставляет
пользователю
программы выбор
вычисления
заданий и выход.
Соответственно
вторая функция
– это задание
Б, для выполнения
которого автор
программы
использовал
те же принципы
построения
подпрограммы,
что и для выполнения
подпрограммы
задания А.
В программе
использовались
два вида условий.
Первое из них
– условие оператора
IF .
Оно присутствует
в основном
модуле программы,
который управляет
подпрограммами
(т. е. процедурами
и функциями)
и выполняет
задание А или
Б в зависимости
от выбора
пользователя
из меню программы.
Можно также
выйти из программы
без выведения
на экран результатов.
Второе
условие – это
условие оператора
FOR ,
которое является
скрытым условием.
Оператор проверяет,
все ли элементы
массивов заполнены.
kl,cycle00,cycle01,null_el_a,null_el_b:integer;
mid_x,mid_y,sum_x,sum_y,delt_x,delt_y:real;
a[cycle00,cycle01]:=int(random(40));
if
a[cycle00,cycle01]=0 then null_el_a:=null_el_a+1;
b[cycle01,cycle00]:=int(random(50));
if
b[cycle01,cycle00]=0 then null_el_b:=null_el_b+1;
write
(' Количество
нулей
в
матрице
А :
',null_el_a:3);
write ('Количество
нулей в матрице
Б: ',null_el_b:3);
function
mid_delt(mid_x,mid_y,delt_x,delt_y:real):real;
var
str1,str2,str3:string[9];kl:byte;key:char;
str1:=' ФУНКЦИЯ ';str2:=' ПРОЦЕДУРА ';str3:=' ВЫХОД ';
textcolor(15);gotoxy(13,1);write(str2);
textcolor(15);gotoxy(25,1);write(str3);
textcolor(14);gotoxy(3,1);write(str1);kl:=1;
textcolor(15);gotoxy(13,1);write(str2);
textcolor(14);gotoxy(3,1);write(str1);
textcolor(15);gotoxy(25,1);write(str3);
textcolor(14);gotoxy(13,1);write(str2);
textcolor(15);gotoxy(13,1);write(str2);
textcolor(14);gotoxy(25,1);write(str3);
textcolor(15);gotoxy(3,1);write(str1);
textcolor(14);gotoxy(13,1);write(str2);
write ('Лабораторная
работа - 6, вариант
- 13.');
write ('Средние
значения массивов
X и Y и их отклонения
равны: ',mid_x:3:3,'; ',mid_y:3:3,';
',delt_x:3:3,'; ',delt_y:3:3);
Входные
данные формируются
посредством
генератора
случайных чисел
и вносятся в
программные
массивы данных
машиной самостоятельно.
Это сделано
для упрощения
алгоритма
программы, в
ущерб вводу
данных с клавиатуры.
Причём в заданиях
заносятся в
массивы целочисленные
данные. Это с
деланно, в частности,
для задания
А с целью увеличения
количества
нулей в матрицах.
Выводные данные
в задании А
представляют
собой целые
числа, так как
они представляют
собой количество
нулей, а в задании
Б – действительные
числа.
Программирование
с использованием
подпрограмм
пользователя.
правила
записи подпрограмм
различных
видов и способов
обращений к
ним;
способы
передачи параметров
в подпрограмму;
правила
записи программ,
использующих
подпрограммы.
Подготовить
тестовый вариант
программы и
исходных данных.
Выполнить
на ЭВМ программу,
использующую
подпрограмму
функцию, в
соответствии
с номером параметра,
указанным в
таблице.
Проверить
правильность
выполнения
программы с
помощью тестового
варианта.
Вычислить
большие корни
кв. уравнений
Определить
периметры
энугольников,
координатами
их вершин заданы
в массивах
X,
Y.
Вычислить
z=(v 1 +v 2 +v 3 )/3
, где v 1
,v 2 ,v 3 ,
- объёмы шаров
с радиусами
r 1
, r 2 и r 3
соответственно
Подсчитать
количество
элементов
матриц X(10,15)
и Y(20,12),
удовлетворяющих
условиям 0<=x ij <=1
и 0<=y ij <=1
Вычислить
z=(x m 1 +x m 2 )/2
, где x m 1
и x m 2
– наименьшие
элементы массивов
X1(70),
X2(80)
Вычислить
z=(s 1 +s 2 )/2,
где s 1 -
сумма положительных
элементов
массива X(50);
s 2 -
сумма отрицательных
элементов
массива Y(60)
Выполнить
на ЭВМ программу,
использующую
подпрограмму-процедуру
в соответствии
с номером, указанным
в таблице.
Проверить
правильность
выполнения
программы с
помощью тестового
варианта .
Вычислить
z
= (s 1 +s 2 )/k 1 k 2
,где s 1
и k 1
– сумма и количество
положительных
элементов
массива X(N);
s 2
и k 2
– сумма и количество
положительных
элементов
массива Y(M).
Вычислить
z
= (e s 1 +e s 2 )/k 1 k 2 ,
где s 1
и k 1
– сумма и количество
положительных
элементов
массива X(100);
s 2
и k 2
– сумма и количество
положительных
элементов
массива Y(80).
Вычислить
z
= (x 1 +y 1 )/(x 2 -y 2 ),
где x 1
и x 2
– корни уравнения
2x 2 +x-4
= 0, y 1
и y 2
– корни уравнения
ay 2 +2y-1
= 0 .
Вычислить
z,
где x i
и y i
– заданы массивами
Вычислить
z
= (x max -y min )/2,
где x max
– максимальный
элемент массива
X(50);
y min
– минимальный
элемент массива
Y(40)
x max
и y min
вычислять в
одной подпрограмме
Выполнить
на ЭВМ решение
задачи. Определить
ближайшую к
началу координат
точку, находящуюся
в верхней
полуплоскости,
и наиболее
удалённую
точку, лежащую
в нижней полуплоскости.
Координаты
точек, находящихся
в верхней
полуплоскости
, заданы массивами
X1(N)
и Y1(N),
а лежащие в
нижней полуплоскости
,- массивами
X2(M)
и Y2(M),
где N<=40, M<=60.
Для каждой
точки верхней
полуплоскости
следует определить
расстояние
от начала координат.
Из этих расстояний
необходимо
найти наименьшее.
Такие же действия
выполнить для
точек, находящихся
в нижней полуплоскости,
однако найти
наибольшее
расстояние
от начала координат.
Вычисление
расстояний
от начала координат
и нахождение
наименьшего
или наибольшего
из них выполним
в подпрограмме-функции.
Использование
одной подпрограммы
для нахождения
наибольшего
и наименьшего
значений потребует
введения
дополнительного
параметра,
который необходим
для проверки
условия K*R>K*RM.
Если K=1,
то условие R>RM
используется
для нахождения
наибольшего;
если K=
-1, то условие
R
В подпрограмму
необходимо
передать массивы
координат
точек, их размер,
а также параметр
K,
который может
принимать
значения +1 или
–1. Результат,
полученный
в подпрограмме–функции,
присваивается
её имени. Программа,
реализующая
алгоритм, имеют
вид:
function vec(x,y:mas; n,kx:integer):real;
{ исполняемая
часть главной
программы }
write('Введите
кол-во координат
верхней полуплоскости.
');
read(x[i]); write(‘ ‘);readln(y[i]);
writeln(‘Ближайшая
точка удалена
на расстояние
=’, s:=vec(x,y,n,-1);
write('Введите
кол-во координат
нижней полуплоскости.
');
read(x[i]); write(‘ ‘);readln(y[i]);
writeln(‘Наиболее
удаленная точка
находится на
расстояни =’,
s:=vec(x,y,n,1);
Проверить
правильность
выполнения
программы для
массивов, заданных
значениями:
Для верхней
полуплоскости
x={-4,0,3}; y={0,5,4};
Для нижней
полуплоскости
x={-4,0,2}; y={-2,-5,-1};
Для которых
наименьшее
расстояние
от начала координат
в верхней
полуплоскости
s = 4, а наибольшее
- в нижней полуплоскости
s = 5.
Решить на
ЭВМ задачу.
Переписать
положительные
элементы массивов
X(n),Y(m)
в массив Z подряд.
Запись положительных
элементов в
массив осуществить
в подпрограмме.
Принять ограничения:
n<=100 и m<=100.
В подпрограмме
должна осуществляться
запись положительных
элементов
исходного
массива в массив
результатов.
Для этого
в подпрограмму
необходимо
передать следующие
параметры: имя
и количество
элементов
исходного
массива, имя
и номер элемента
с которого
дописывать
результирующий
массив. Поскольку
в массив результатов
Z записывается
подряд положительные
элементы из
нескольких
массивов, в
списке параметров
должны фигурировать
также: входной
параметр L –
номер ячейки,
начиная с которой
необходимо
осуществлять
запись в массив
результатов.
При первом
обращении к
подпрограмме
в неё необходимо
передать имя
массива Х, количество
его элементов
N; входной параметр
L=1, запись осуществляется
в массив Z, начиная
с элемента с
индексом 1. При
завершении
первого обращения
L
хранит номер
последней
занятой ячейки
в массиве Z.
При втором
обращении
необходимо
передать
соответственно
массив Y,
количество
его элементов
M,
и L=L+1
равной номеру
ячейки преднозначенной
для до записи
в массив Z.
В схеме алгоритма
при первом
обращении к
подпрограмме
параметр L задан
равным нулю,
так как в подпрограмме
перед записью
элемента в
массив z индекс
L
увеличивается
на 1. По этой же
причине при
втором обращении
параметру L
опять увеличивается
на 1, что даёт
возможность
обратиться
к следующей
ячейки массива
Z
при втором
обращении.
Программа,
реализующая
алгоритм, имеют
вид:
uses crt;
{подключение
модуля упровляющего
текстовым
режимом монитора}
procedure st (var a,c:mas;n:byte;var l:byte);
{ исполняемая
часть главной
программы }
window(1,
1, 80, 25);textattr
:= 27; clrscr;
gotoxy(5,
2);write('Введите кол-во
элементов
массива X');
gotoxy(5,
3);write('Введите значения
массива X');
gotoxy(5,
9);write('Введите кол-во
элементов
массива Y');
gotoxy(5,
10);write('Введите значения
массива Y');
gotoxy(5,
15);write(‘Результативный
массив Z’);
Данная конкретная
программа в
тестировании
не нуждается,
так как выведенные
на печать результаты
позволяют
однозначно
судить о правильности
выполнения
программы.
Указать, при
каких условиях
целесообразно
использование
подпрограмм,
какие выгоды
они представляют
пользователю.
Указать, в
чём отличие
различных
видов подпрограмм
пользователя.
Указать
способы обращения
к подпрограммам
пользователя.
Указать
способы передачи
параматров
в подпрограмму.
Указать, как
организовывать
подпрограмму
без параметров.
Перечислить,
как согласуются
формальные
и фактические
параметры.
Указать
конструкции,
которые могут
быть формальными
и фактическими
параметрами.
Пояснить,
как и куда
осуществляется
выход из подпрограммы.
Название: Лабораторная №6 вариант №13 по информатике, выполненная с использованием подпрограмм-процедур и подпрограмм-функций
Раздел: Рефераты по информатике, программированию
Тип: реферат
Добавлен 00:37:28 18 сентября 2005 Похожие работы
Просмотров: 631
Комментариев: 15
Оценило: 4 человек
Средний балл: 5
Оценка: неизвестно Скачать
Подсчитать
число точек,
находящихся
внутри круга
радиусом r
с центром в
начале координат;
координаты
заданы массивами
X(100),
Y(100)
Расстояние
точки от начала
координат
вычислять в
подпрограмме
Длину
стороны энугольников
вычислять в
подпрограмме
Подсчитать
число точек,
находящихся
внутри круга
радиусом r
с центром в
точке с координатами
(1,1); координаты
заданы массивами
X(80),
Y(80)
Расстояние
точки от центра
круга определять
в подпрограмме
Вычислить
суммы положительных
элементов
массивов X(N),
Y(M),
Z(K)
Вычислить
среднее арифметическое
положительных
элементов
для массивов
A(N1),
B(N2),
C(N3)
Вычислить
суммы положительных
элементов
каждой строки
для матриц
A(10,12)
и B(15,10)
Вычислить
суммы элементов
главных диагоналей
матриц A(N,N)
B(M,M)
Обе
суммы вычислять
в одной подпрограмме
Подсчитать
число нулевых
элементов
для матриц
A(N,M)
и B(M,N)
Вычислить
суммы элементов
нижних треугольных
матриц для
матриц A(15,15)
и B(20,20)
Определить
число положительных
элементов до
первого отрицательного
в массивах
X(40),
Y(50),
Z(N)
Обе
суммы вычислять
в одной подпрограмме
Вычислить
и запомнить
суммы положительных
элементов
каждой строки
матицы A(10,20),
B(15,10).
Найти
наибольшие
элементы и
их порядковые
номера массивов
X(N)
и Y(M)
Переписать
положительные
элементы массива
X(100)
и Y(80)
в массив Z
подряд
Запись
в массив Z
осуществлять
в подпрограмме
Найти
наименьшие
элементы и
номера строк
и столбцов,
в которых они
расположены,
для матриц
A(10,15)
и B(15,12)
Вывести
на печать элементы
целочисленных
матриц N(5,8)
и M(10,6),
кратные трём
Все
суммы вычислять
в одной подпрограмме
Вычислить
и запомнить
количество
отрицательных
элементов
каждого столбца
для матриц
A(10,10),
B(15,20)
Вычислить
суммы элементов
верхней треугольной
матрицы для
матриц A(10,10),
B(15,15)
Найти
средние значения
и стандартные
отклонения
для элементов
массивов X(N),
Y(M)
Вычислить
суммы и количества
элементов,
находящихся
в интервале
от a
до b
для матриц
X(10,8)
и Y(10,12)
Преобразовать
массивы X(50)
и Y(60),
расположив
в них подряд
только положительные
элементы. Вместо
остальных
элементов
записать нули
Если Вам нужна помощь с учебными работами, ну или будет нужна в будущем (курсовая, дипломная, отчет по практике, контрольная, РГР, решение задач, онлайн-помощь на экзамене или "любая другая" учебная работа...) - обращайтесь: https://clck.ru/P8YFs - (просто скопируйте этот адрес и вставьте в браузер) Сделаем все качественно и в самые короткие сроки + бесплатные доработки до самой сдачи/защиты! Предоставим все необходимые гарантии.
Привет студентам) если возникают трудности с любой работой (от реферата и контрольных до диплома), можете обратиться на FAST-REFERAT.RU , я там обычно заказываю, все качественно и в срок) в любом случае попробуйте, за спрос денег не берут)
Да, но только в случае крайней необходимости.
Реферат: Лабораторная №6 вариант №13 по информатике, выполненная с использованием подпрограмм-процедур и подпрограмм-функций
Сочинение Роль Луки В Драме На Дне
Реферат Скачать На Тему Ремонт Электропогрузчика
Реферат: Деньги и ценные бумаги как объекты гражданских прав. Скачать бесплатно и без регистрации
Кандидатская Диссертация По Истории
Реферат по теме Разработка маркетингового плана выхода на новый рынок с новым товаром
Менің Мамандығым Шаштараз Эссе
Реферат На Тему Микроскоп По Биологии
Курсовая работа по теме Проектирование устройства обработки и передачи информации
Рефераты По Экономике Предприятие
Реферат: Humanity And Art Essay Research Paper Imagine
Как Бороться Со Стрессом Реферат
Отчет по практике по теме МАУЗ 'Городская больница №2'
Дипломная работа по теме Бухгалтерский учет основных средств сельскохозяйственных организаций
Пособие по теме Методические указания по выполнению самостоятельных работ по дисциплине "Правовое обеспечение профессиональной деятельности"
Реферат по теме Освоение ресурсов российского Арктического шельфа
Роль Книги В Жизни Человека Сочинение Егэ
Реферат: Что Я знаю о Психологии. Скачать бесплатно и без регистрации
Курсовая Презентация Пример
Курсовая работа по теме Особенности системы оплаты труда в ведущих зарубежных странах
Курсовая Совершенствование
Реферат: Александр III Македонский
Реферат: Доказательства бытия Бога
Доклад: Новый курс Ф. Рузвельта в США