- •Курс лабораторних робіт
- •Порядок виконання контрольної роботи
- •Зміст пояснювальної записки
- •Лабораторна робота № 1
- •Варіанти
- •Контрольні питання
- •Лабораторна робота № 2
- •Варіанти
- •Контрольні питання
- •Лабораторна робота № 3 організація циклів і робота з одномірними масивами
- •Контрольныe питання
- •Лабораторна робота № 4
- •Варіанти
- •Контрольні питання
- •Список використаної і літератури, що рекомендується
- •Додаток 1
- •Алгоритм обчислення знаменника наступний:
- •Алгоритм обчислення значення виразу:
- •Алгоритм роботи процедури Input:
- •Алгоритм виконання головної програми:
- •Додаток 2
- •Алгоритм виконання функції f
- •Алгоритм виконання процедури Input
- •Опис головної програми
- •Додаток 3
- •{Головна програма}
- •Опис процедури Input
- •Опис процедури InputVector
- •Опис процедури OutputVector
- •Опис функції Summa
- •Опис головної програми
- •Додаток 4
- •Опис процедури Input
- •Опис процедури InputMatrix.
- •Опис процедури OutputMatrix.
- •Опис процедури Evaluate.
- •Опис головної програми
Опис головної програми
У тілі головної програми в циклі Repeat ... Until очищається екран (ClrScr).
Шляхом виклику процедури Input(k) вводиться значення k - фактичне число рядків і стовпців вихідної матриці A.
Шляхом виклику процедури InputMatrix(k,A) вводимо значення елементів вихідної матриці А.
Знову очищаємо екран (ClrScr).
Через виклик процедури OutputMatrix(k,A) виводимо на екран значення елементів вихідної матриці А.
Через виклик процедури Evaluate(k,A) визначаємо значення середніх арифметичних кожного зі стовпців і виводимо їхній на екран.
Потім випливає запитання «Знову? (Y/N)».
Змінній ch присвоюється значення натиснутої клавіші ch:=ReadKey і в залежності від відповіді керування чи передається на початок циклу (ch:=’Y’) для повторного рахунка, але вже з іншими вихідними даними, чи програма закінчує виконання (ch:= ‘N’).