Министерство образования
Российской Федерации
Волгоградский государственный
технический университет
Кафедра прикладной математики
Семистровая работа по теме:
ПРОЦЕДУРЫ И
ФУНКЦИИ
Выполнил:
студент группы
Проверил:
Волгоград 2003
1.
Задание
1.1.
Ввести двумерный массив. Найти
сумму элементов с нечетными индексами.
1.2.
Ввести двумерный массив.
Получить одномерный массив включающий все не нулевые элементы матрицы. Найти
модуль полученного вектора.
2.1. Блок-схема
3.1. Текст программы
PROGRAM SEM1;
uses
crt;
const
Nmax=10;
Mmax=10;
type
matr=array[1..Nmax,1..Mmax] of integer;
var
A:matr;
Na,i,j,Ma,S,max:integer;
Procedure
Vvod(var x:matr; var Nx,Mx:integer; P:char);
begin
clrscr;
write('Vvedite
N: ');
read(Nx);
writeln;
write('Vvedite
M: ');
read(Mx);
writeln;
for
i:=1 to Nx do
for j:=1 to Mx do begin
write(P,'[',i,',',j,']=');
read(x[i,j]);
end;
end;
Function
Summa(var x:matr; Nx,Mx:integer):integer;
begin
S:=0;
i:=1;
repeat
j:=1;
repeat
if
(i mod 2<>0) and (j mod 2<>0) then S:=S+x[i,j];
j:=j+1;
until
j>Mx;
i:=i+1;
until
i>Nx;
Summa:=S;
end;
Procedure
Vivod(var x:matr; Nx,Mx:integer; P:char);
begin
writeln;
writeln('Matrica
',P,':');
writeln;
i:=1;
repeat
j:=1;
repeat
write(x[i,j],'
');
j:=j+1;
until
j>Mx;
writeln;
i:=i+1
until
i>Nx;
end;
begin
vvod(a,na,ma,'A');
S:=Summa(a,na,ma);
vivod(a,na,ma,'A');
writeln;
writeln('SUMMA=
',S);
end.
4.1.
Тестовый пример и результат
N=3 M=3
1 2
3
4 5
6
7 8
9
SUMMA=20
2.2.
Блок-схема
3.2.
Текст программы
PROGRAM SEM2;
uses
crt;
const
Nmax=10;
Mmax=10;
Kmax=100;
type
matr=array[1..Nmax,1..Mmax] of integer;
vector=array[1..Kmax] of integer;
var
A:matr;
C:vector;
Na,i,j,Ma,Nc,k,M:integer;
Procedure
Vvod(var x:matr; var Nx,Mx:integer; P:char);
begin
clrscr;
write('Vvedite
N: ');
read(Nx);
writeln;
write('Vvedite
M: ');
read(Mx);
writeln;
for
i:=1 to Nx do
for j:=1 to Mx do begin
write(P,'[',i,',',j,']=');
read(x[i,j]);
end;
end;
Procedure
Sozd(var x:matr; Nx,Mx:integer);
begin
Nc:=0;
k:=1;
i:=1;
repeat
j:=1;
repeat
if
(x[i,j]<>0) then begin
c[k]:=x[i,j];
Nc:=Nc+1;
k:=k+1;
end;
j:=j+1;
until
j>Mx;
i:=i+1;
until
i>Nx;
end;
Function
Modul(var x:vector; Nx:integer):integer;
begin
M:=0;
for
k:=1 to Nx do M:=M+x[k];
M:=ABS(M);
Modul:=M;
end;
Procedure
Vivod(var x:vector; Nx:integer; P:char);
begin
writeln;
writeln('Vector
',P,':');
writeln;
k:=1;
repeat
write(x[k],'
');
k:=k+1;
until
k>Nx;
writeln;
end;
begin
vvod(a,na,ma,'A');
Sozd(a,na,ma);
M:=Modul(c,nc);
vivod(c,nc,'C');
writeln;
writeln('MODUL=
',M);
end.
4.2.
Тестовый пример и результат
N=2 M=3
-4
2 0
0 4 –6
Vector:
-4
2 4 -6
Modul=4
Другие работы по теме:
Отключение процедуры верификации для 1С
Для начала ответим на вопрос - зачем это нужно? Это нужно для каких-либо изменений в структуре внутренних таблиц 1С и в первую очередь для подключения стандартного механизма репликации MS SQL.
Таможенная процедура временного ввоза допуска особенности заполнения декларации
1.1.Содержание таможенной процедуры временного ввоза (допуска) товаров Временный ввоз (допуск) - таможенная процедура, при которой иностранные товары используются в течение установленного срока на таможенной территории таможенного союза с условным освобождением, полным или частичным, от уплаты ввозных таможенных пошлин, налогов и без применения мер нетарифного регулирования с последующим помещением под таможенную процедуру реэкспорта.
1. Введение в антикризисное управление
Проблемы антикризисного управления. Понятие антикризисного управления. Содержание процесса антикризисного управления. Функции антикризисного управления. Особенности системного подхода в антикризисном управлении. Модель процесса антикризисного управления. Системная концепция антикризисного управления
1. Введение в предмет
Целью курса является изучение принципов и освоение практических навыков параллельного программирования с использование технологии mpi
Фунции управления
Функции управления Функция управления - это обособившийся вид управленческой деятельности. Исследование функций управления имеет большое практическое значение, поскольку они в значительной мере определяют структуру органов управления.
Хабеас корпус акт
Хабе́ас ко́рпус акт (англ. Habeas Corpus Act) — законодательный акт, принятый парламентом Англии в 1679, составная часть конституции Великобритании, определяет правила ареста и привлечения к суду обвиняемого в преступлении, предоставляет право суду контролировать законность задержания и ареста граждан, а гражданам — требовать начала такой процедуры (известной под латинским названием хабеас корпус).
Работа с регулярными выражениями в SQL Server
В SQL Server 7/2000 нет встроенной поддержки работы с регулярными выражениями. Но SQL Server похволяет работать с COM-объектами. В VBScript (библиотека vbscript.dll) есть специальный объект для работы с регулярными выражениями - RegExp.
Основные операторы языка Turbo-Paskal. Процедуры и функции
Принцип работы основных операторов языка программирования Turbo-Paskal: оператор присваивания, выбора Case, безусловного перехода, цикла, уловный, составной. Формальное описание и вызов функции и процедуры. Требования к списку фактических параметров.
Операторы цикла
Для реализации циклических алгоритмов, т.е. алгоритмов, содержащих многократно повторяющиеся одинаковые операции, применяются специальные операторы цикла. В Пас-кале есть три вида циклов: FOR, WHILE и REPEAT.
Консольное приложение на Дельфи
Хоть и консольные приложения уже давно вышли из моды, с помощью них можно легко делать рутинные операции. Они занимают не так много места, не требовательны к ресурсам и быстро выполняются.
Микроконтроллеры семейства MCS51 Intel
Инструкции MCS51 Intel Инструкции, модифицирующие флаги (1) Инструкция C OV AC Инструкция C OV AC CLR C ADDC CPL C SUBB ANL C,bit ANL C,/bit ORL C,bit ORL C, bit
Использование Prolog совместно с другими ЯП
Понятие Dll. Вспомним процесс программирования в DOS. Преобразование исходного текста в машинный код включал в себя 2 процесса: компиляцию и линковку. Во время линковки в код программы помещались не только объявления функций и процедур, но и их полный код.
Basic
МИНИСТЕРСТВО ОБЩЕГО И ПРОФЕССИОНАЛЬНОГО ЮБРАЗОВАНИЯ РФ ТАМБОВСКИЙ ГОСУДАРСТВЕННЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ КАФЕДРА ГАПС Курсовая работа по информатике
Системы программирования
Ассемблер предоставляет программисту полную свободу действий при разработке программы, что одновременно является и его достоинством, и недостатком.
Новые операторы языка манипулирования данными (DML)
CTE - выражения для упрощения читаемости запросов. Однократный вызов CTE и использование CTE для рекурсивного прохода по дереву. Операторы Pivot, Unpivot, Apply. Функции ранжирования. Создание хранимой процедуры с использованием нового обработчика ошибок.
Алгоритмические языки: обработка массивов
Символьные типы данных, работа со строками, составление блок-схемы алгоритма и программы для работы с массивами. Организация программы с использованием процедур и функций. Процедуры и функции, использующиеся при обработке файлов; компонентные файлы.
Упорядочивание элементов файла
Описание записи, содержащей поля: расчётный счёт плательщика и получателя, перечисляемая сумма в рублях. Программа для ввода данных с клавиатуры в массив. Листинг исходного файла программы вывода информации на экран и распечатка снимков с экрана.
Переменные
Переменная представляет собой временное хранилище для данных в вашей программе. Кто учился информатике в школе, наверное, помнит, что "переменные - это такие ящички в которых содержится информация...".
Рекурсия
С понятием рекурсии мы уже встречались: рекуррентные соотношения довольно часто встречаются в математических выражениях. Рекурсия в определении состоит в том, что определяемое понятие определяется через само это понятие.
Подпрограммы (процедуры и функции)
Алгоритм, ранее разработанный и целиком используемый в составе других алгоритмов, называется вспомогательным. Применение вспомогательных алгоритмов позволяет разбить задачу на части, структурировать ее.
Основные процедуры и функции модуля CRT
Содержание Рекурсия . . . . . . . . . . . . . . . . . . . . . . . . . . Пример 1 . . . . . . . . . . . . . . . . . . . . . . . . . . Пример 2 . . . . . . . . . . . . . . . . . . . . . . . . . . Пример 3 . . . . . . . . . . . . . . . . . . . . . . . . . .
Модульное программирование 5
МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РОССИЙСКОЙ ФЕДЕРАЦИИ Лабораторная работа №3 по дисциплине «Информатика и программирование» Москва, 2010 « Модульное программирование».
Использование Prolog совместно с другими ЯП
Понятие Dll. Вспомним процесс программирования в DOS. Преобразование исходного текста в машинный код включал в себя 2 процесса: компиляцию и линковку. Во время линковки в код программы помещались не только объявления функций и процедур, но и их полный код.
Процедуры и функции в языке Паскаль
Лабораторная работа №5 Тема: Процедуры и функции в языке Паскаль Цель работы: изучить работу процедуры и функции и обрести навык написания программ с применением процедур и функций.
Кризис 2
Кризис -это обостренная форма противоречий системы, где под системой подразумевают комплекс взаимосвязанных элементов. 2 выхода из кризиса : разрушение и обновление системы.
Аудит операций с основными средствами 3
Аудит операций с основными средствами. Цель аудита основных средств (ОС) – формирование мнения о достоверности бухгалтерской отчетности по информации об ОС .
Учет и анализ банкротства 2
Контрольная работа по дисциплине «Учет и анализ банкротств» Вариант 1 Понятие, основные этапы проведения процедуры наблюдение Задача Определить вероятность банкротства по методике Бивера СК-3500 ОА-3780 Амортизация-976 ДО-1600 ВА-2620 КО-1300 ЧП-765 Литература