Методичні вказівки до виконання лабораторних робіт для студентів напрямів підготовки Приладобудування
 Скачать 1.84 Mb.
|
ДОДАТОК 1 |
| Назва символу | Позначення | Примітка |
| Процес |  | Обчислювальна дія або послідовність обчислювальних дій |
| Рішення |  | Перевірка умови |
| Модифікація |  | Початок циклу |
| Наперед визначений процес |  | Обчислення за допомогою підпрограми або стандартної програми |
| Документ |  | Виведення даних, друк результатів на папері |
| Дисплей |  | Обробка програми на дисплеї:редагування, трансляція, побудова образу задачі |
| Введення-виведення |  | Введення-виведення інформації |
| Пуск-зупинка |  | Початок, кінець, зупинка, вхід та вихід з програм і підпрограм |
| Ручне введення |  | Введення даних з пульта |
| Перфокарта |  | Введення даних з перфокарт та виведення даних на перфокарти |
| Перфорована стрічка |  | Введення та виведення даних на перфострічковому пристрої |
| Магнітний диск |  | Операції введення-виведення з використанням магнітних дисків |
| Магнітна картка |  | Введення та виведення інформації з використанням магнітних карт |
| З’єднувач |  | Розрив лінії потоку на одній сторінці |
| Міжсторінковий з’єднувач |  | Розрив лінії потоку між двома сторінками |
| Коментар |  | Пояснення, що містяться в програмі, формули |
ДОДАТОК 2
Приклад оформлення протоколу за результатами виконання лабораторної роботи
Титульний аркуш
МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ
НАЦІОНАЛЬНИЙ ТЕХНІЧНИЙ УНІВЕРСИТЕТ УКРАЇНИ
«КИЇВСЬКИЙ ПОЛІТЕХНІЧНИЙ ІНСТИТУТ»
ПРИЛАДОБУДІВНИЙ ФАКУЛЬТЕТ
КАФЕДРА ВИРОБНИЦТВА ПРИЛАДІВ
ЛАБОРАТОРНА РОБОТА №2
«МАТРИЧНІ ПЕРЕТВОРЕННЯ»
ВАРІАНТ № 31
Виконав:студент 1-го курсу групи ПБ-41
Панас Українець
Перевірили:
Барандич К.С.
Демченко М.О.
Київ 2014
Мета роботи: отримання практичних навичків оформлення протоколу за результатами виконання лабораторної роботи.
Робоче завдання
Скласти алгоритм та розробити програму, які виконують наступні дії:
виведення заголовка лабораторної роботи, у якому вказується найменування лабораторної роботи, її номер, варіант індивідуального завдання, прізвище студента та навчальна група;
введення початкових даних та виконання дій згідно варіанта індивідуального завдання;
виведення початкових даних та результатів виконання лабораторної роботи.
Варіант індивідуального завдання для виконання лабораторної роботи
Виконати заповнення елементів матриці розмірністю n×m шляхом введення кожного елементу вручну та через випадкові числа з використання процедури. Виконати виведення елементів матриці у матричному вигляді зі зазначенням назви елементу та його індексів. Розрахувати суму елементів матриці за допомогою функції.
Таблиця змінних програми
| Назва | Тип | Призначення |
| А | array [1..50, 1..50] of real | Матриця цілих чисел |
| n | integer | Кількість рядків матриці |
| m | integer | Кількість стовпчиків матриці |
| i | integer | Номер рядка |
| j | integer | Номер стовпця |
| ran | integer | Змінна, значення якої означає необхідність у заповненні матриці випадковими числами |
Таблиця змінних процедури RandomNumber
| Назва | Тип | Призначення |
| B | array [1..50, 1..50] of real | Матриця дійсних чисел |
| i | integer | Номер рядка |
| j | integer | Номер стовпця |
| rd | integer | Максимальне число для довільного заповнення від 0 до rd |
Таблиця змінних функції Suma
| Назва | Тип | Призначення |
| X | array [1..50, 1..50] of real | Матриця дійсних чисел |
| i | integer | Номер рядка |
| j | integer | Номер стовпця |
| s | real | Сума елементів матриці |
Алгоритм процедури Алгоритм функції
RandomNumber Suma
Алгоритм розв’язання задачі
Текст програми
program pr (input, output);
uses crt;
label
label1,label2;
const
r=50;
s=50;
type
matrix=array[1..r,1..s] of integer;
var
n,m,i,j,ran:integer;
a:matrix;
procedure RandomNumber(var b: Matrix);
// Заповнення матриці випадковими числами
var i,j,rd:integer;
begin
writeln('Введіть максимальне рандомне число');
readln(rd);
for i:=1 to n do
for j:=1 to m do
b[i,j] := Random(rd);
end;
function Suma(x:matrix):real;
// Знаходження суми елементів матриці
var i,j:integer;
s:real;
begin
s:=0;
for i:=1 to n do
for j:=1 to m do begin
s:=s+x[i,j];
end;
Suma:=s;
end;
begin
clrscr;
gotoxy(20,3);
writeln('Лабораторна робота №8');
gotoxy(22,4);
writeln('Матричні перетворення ');
gotoxy(25,5);
writeln('Варіант №31');
gotoxy(30,7);
writeln('Виконав: студент 1-го курсу');
gotoxy(30,8);
writeln('групи ПБ-41');
gotoxy(30,9);
writeln('Панас Українець');
gotoxy(30,10);
writeln('Перевірили: Барандич К.С., Демченко М.О.');
label1:
writeln('Введіть розмірність матриці n на m');
write('n=');
readln(n);
write('m=');
readln(m);
if (n<=0) or (m<=0) then
begin writeln('Розмірність матриці ведена неправильно, повторіть введення'); goto label1;
end;
writeln('Якщо бажаєте заповнити матрицю випадковими числами введіть 1');
readln(ran);
if ran=1 then begin
RrandomNumber(a);
goto label2;
end;
writeln('Введіть елементи матриці А');
for i:=1 to n do
for j:=1 to m do
begin
write('a[',i,'-',j,']= ');
readln(a[i,j]);
end;
label2:
writeln('Виведення елементів матриці А');
for i:=1 to n do begin
for j:=1 to m do begin
write(' a[',i,',',j,']=',a[i,j]);
end;
writeln;
end;
write('Сума елементів матриці S=',Suma(a));
readln;
end.
Результати виконання
Лабораторна робота №8
Матричні перетворення
Варіант №31
Виконав: студент 1-го курсу
групи ПБ-41
Панас Українець
Перевірили: Барандич К.С., Демченко М.О.
Введіть розмірність матриці n на m
n=5
m=5
Якщо бажаєте заповнити матрицю випадковими числами введіть 1
1
Введіть максимальне рандомне число
Random=10
Виведення елементів матриці А
a[1,1]=6 a[1,2]=0 a[1,3]=7 a[1,4]=8 a[1,5]=2
a[2,1]=1 a[2,2]=5 a[2,3]=8 a[2,4]=2 a[2,5]=0
a[3,1]=6 a[3,2]=4 a[3,3]=9 a[3,4]=0 a[3,5]=0
a[4,1]=5 a[4,2]=1 a[4,3]=4 a[4,4]=8 a[4,5]=0
a[5,1]=3 a[5,2]=9 a[5,3]=3 a[5,4]=8 a[5,5]=7
Сума елементів матриці S=106
Висновки: в ході виконання лабораторної роботи отримано практичні навички оформлення протоколу за результатами виконання лабораторної роботи, при цьому найскладніше було реалізувати розрахунок суми елементів матриці шляхом використання функцій.
ДОДАТОК 3
Варіанти індивідуальних завдань для виконання лабораторної роботи №16
СПИСОК РЕКОМЕНДОВАНОЇ ЛІТЕРАТУРИ
Фигурнов В. Э. IBM PC для пользователя [Текст] / В. Э. Фигурнов. – М.: Инфра-М; Издание 7-е, перераб. и доп, 2006. – 460с.
Очков В. Ф. Пухначев Ю.В. Уроки для пользователей MS DOS [Текст] / В. Ф. Очков – М.: Финансы и статистика, 1992. – 240с.
Нортон П. Справочное руководство по MS DOS [Текст] / П. Нортон – М.: Радио и связь, 1992. – 336с.
MS DOS 6. Руководство пользователя. [Текст] – К.: ОМЕГА Дизайн, 1993. – 227с.
Зверев С. А. Практическая работа в MS DOS [Текст] / С. А. Зверев – М.: Военное издательство, 1991. – 76с.
Поляков Д. Б. Программирование в среде ТУРБОПаскаля [Текст] / Д. Б. Поляков , И. Ю. Круглов – М.: Изд-во МАИ, 1992. – 576с.
Довгань С. И. Прикладное программирование в системе ТУРБОПАСКАЛЬ 7.0 [Текст] / С. И. Довгань, Б. Ю. Литвинов, А. И. Сбитнев – К.: "Довгань", 1996. – 256с.
Бородич Ю. С. ПАСКАЛЬ для персональных компьютеров [Текст] / Ю. С. Бородич, А. Н. Вольвачев, И. И. Кузьмич – Минск: Высшая школа, ВФТИГМ "НИКА", 1991. – 365с.
Фаронов В. В. Turbo Pascal 7.0. Вступление в программирование [Текст] / В. В. Фаронов – М.: Нолидж, 1997.
Фаронов В. В. Turbo Pascal 7.0. Практика программирования [Текст] / В. В. Фаронов – М.: Нолидж, 1997.
Культин Н. Б. Turbo Pascal в задачах и примерах [Текст] / Н. Б. Культин – СПб.: БХВ – Санкт-Петербург, 2000. – 256с.
Глинський Я. М. Інформатика. Алгоритмізація і програмування. Мова Паскаль [Текст] / Я. М. Глинський . –Львів: Деол, 2002. - 200с.
Глинський Я. М. Інформатика. Інформаційні технології [Текст] / Я. М. Глинський – Львів: Деол, 2002. – 256с.
Глинський Я. М. Паскаль. Turbo Pascal і Delphi [Текст] / Я. М. Глинський, В. Є. Анохін, В. А. Ряжська – Львів: Деол, 2002. – 144с.
Марченко А. И. Программирование в среде TURBO PASCAL [Текст] / А. И. Марченко, Л. А. Марченко – М.: Бином Универсал, – К.: ЮНИОР, 1997. – 496с.
Гаевский А. Ю. Информатика [Текст] / А. Ю. Гаевский – К.: Издательство А.С.К., 2004. – 536с.
Моргун А. Н. Программирование на языке Паскаль (Pascal). Основы обработки структур данных [Текст] / А. Н. Моргун . – М: Диалектика, 2005. – 576с.