Написать программу, содержащую подпрограмму 2 страница

 

№ п/п Выражение № п/п Выражение
yi j = ln i, j = 1, 2, ... , 10 yi j = i, j = 1, 2, ... , k
yi j = , если xi › xj; yi j = в противном случае; i, j = 1, 2, ... , n yi j = , если xi ›0 и xj›0; yij = в противном случае; i, j = 1, 2, ... , n
i, j = 1, 2, ... , 15 i, j = 1, 2, ... , n
, если sin xi › sin xj; в противном случае; i, j = 1, 2, ... , n , если xi › 1 или xj › 1; в противном случае; i, j = 1,2, ... , n
i, j = 1, 2, ... , 20 i, j = 1, 2, ... , m
i, j = 1, 2, ... , k i, j = 1, 2, ... , 10
, если xj ≠ 0 и xi › 0; yij = в противном случае; i, j = 1,2, ... , n yi j = ,если xi › xj; yij= в противном случае; i, j = 1,2, ... , n
i, j = 1, 2, ... , m i, j = 1, 2, ... , 15
, если xi › 1 и xj › 5; в противном случае; i, j = 1, 2, ... , m , если xi › 0 и |xj| › 1,5; в противном случае; i, j = 1, 2, ... , m
i, j = 1, 2, ... , n i, j = 1, 2, ... , 20
  , если i ‹ j или xi · xj › 0; в противном случае i, j = 1, 2, ... , n , если xi ≠ 0 и xj ≠ 0; yij = 1 в противном случае i, j = 1, 2, ... , k
i, j = 1, 2, ... , m i, j = 1, 2, ... , m
i, j = 1, 2, ... , 25 i , j = 1, 2, ... , 30
yi j = , если i ‹ j; в противном случае; i, j = 1, 2, ... , n , если i ‹ j или › 2; в противном случае; i, j = 1, 2, ... , m
, если xi › xj и cos xi › 0,5; в противном случае; i, j = 1, 2, ... , k yi j = , если sin xi ≤ sin xj; в противном случае; i, j = 1, 2, ... , n

 

15. Составить программу для вычисления величины S по заданной формуле

№ п/п Выражение № п/п Выражение
S= S=2
S=   S=
S= S=
S= S=
S= S=
S= S=3·10-3
S= S=
S= S=
S= 2 S=
S= S=
S= S=
S= S=  
S= S=
S= S=
S= S=

 

 

16. Составить программу для вычисления элементов одномерного массива по заданной формуле

№ п/п Выражение № п/п Выражение
к = 1, 2, … , 10 к = 1, 2, … , 10
к = 1, 2, … , n   к = 1, 2, … , m
к = 1, 2, … , 20 к = 1, 2, … , m
к = 1, 2, … , m к = 1, 2, … , n
к = 1, 2, … , 15 к = 1, 2, … , 10
к = 1, 2, … , 10 к = 1, 2, … , m
к = 1, 2, … , n к = 1, 2, … , 20
к = 1, 2, … , m к = 1, 2, … , n
к = 1, 2, … , n к = 1, 2, … , 20
к = 1, 2, … , n к = 1, 2, … , m
к = 1, 2, … , n к = 1, 2, … , 10
к = 1, 2, … , n к = 1, 2, … , 15
к = 1, 2, … , n к = 1, 2, … , m
к = 1, 2, … , 10 к = 1, 2, … , m
к = 1, 2, … , m к = 1, 2, … , n

17. Используя нестандартные функции, составить программы для расчета указанных величин.

№ п/п Выражение № п/п Выражение
, , где где
, , где , где
где где
где где
где где
где где
, где где
где   , где  
где где
где , где
где где
где где
где где
где где
где где

 

18.1) для замены в массиве Y(50) всех элементов с четными индексами на значение 1;

18.2) для замены знака каждого пятого элемента массива В(100) на противоположный;

18.3) для вычисления суммы отрицательных элементов массива А(200);

18.4) для расчета числа положительных элементов массива В(10,20);

18.5) для вычисления куба суммы положительных элементов массива Х(15,30);

18.6) для расчета суммы элементов второй строки матрицы Z(20,10);

18.7) для вычисления суммы элементов пятого столбца матрицы Z(10,20);

18.8) для отыскания минимального элемента массива Х(25);

18.9) для отыскания максимального элемента массива В(20,30) и индексов этого элемента;

18.10) для вычисления k! = 1·2·3·…·k;

18.11) для замены в матрице А(10,10) всех элементов, стоящих на главной диагонали, на число 2;

18.12) для вычисления квадрата суммы тех элементов массива В(100), значения которых меньше 10;

18.13) для вычисления суммы положительных элементов первой строки матрицы С(10,20);

18.14) для вычисления количества элементов матрицы В(30,30), значения которых лежат в интервале (2,5);

18.15) для расчета квадратного корня из суммы положительных элементов массива Х(m,n);

18.16) для вычисления минимального элемента пятой строки матрицы С (m,n) и номера столбца, в котором находится этот элемент;

18.17) для расчета количества нулевых элементов массива Х(k,n);

18.18) для замены знака на противоположный у всех элементов массива Z(150) с нечетными индексами;

18.19) для вычисления следа (суммы элементов главной диагонали) квадратной матрицы В(m,m);

18.20) для замены знака на противоположный у всех элементов пятого столбца матрицы А(m,n);

18.21) для вычисления максимального элемента матрицы Z(20,30) и определения номеров строки и столбца, которым принадлежит этот элемент;

18.22) для вычисления количества элементов массива Х(10,25), значения которых больше 10, и вычисления квадратного корня из суммы этих элементов;

18.23) для вычисления количества нулевых элементов первого столбца матрицы А(m,n);

18.24) для вычисления минимального элемента n-ой строки матрицы С(m,k);

18.25) для вычисления количества элементов массива Y(20,30), значения которых лежат в интервале (0,2);

18.26) для расчета тангенса суммы положительных элементов массива Z(m,n);

18.27) для вычисления максимального и минимального элементов пятого столбца матрицы В(20,15) и определения номеров строк, в которых стоят эти элементы;

18.28) для замены всех элементов k-го столбца матрицы А(n,m) на число 1;

18.29) для расчета количества ненулевых элементов первой строки матрицы В(k,m);

18.30) для нахождения количества положительных, отрицательных и нулевых элементов массива С(20,30).

 

 

Список литературы

 

1. Информатика. Базовый курс/Симонович С. В. и др. – СПб.: Питер, 2000.

2. Турбо Паскаль 7.0. – К.: Издательская группа BHV,2000.

3. Культин Н. Б. Turbo Pascal в задачах и примерах. – СПб.: БХВ,2000.

4. Немнюгин С.А. Turbo Pascal. – СПб.: Питер, 2002.

5. Немнюгин С.А. Turbo Pascal: практикум. – СПб.: Питер, 2002.

6. Основы работы в среде Turbo Pascal. Методические указания. / Сост. Бобкова В.А.,Никифоров Ю.И.. Иван. гос. хим.-технол. ун-т, 2002.

7. Информатика. Часть 2. Алгоритмизация и программирование: Метод. указания и контрольные работы для студентов заочного обучения / Сост. Бобков С.П., Бобкова В.А. Иван. гос. хим.-технол. ун-т, 2002.

 

 

Техн. редактор Г. В. Куликова

 

Подписано в печать 4.04.2007. Формат . Бумага писчая. Усл. печ. л. 2,33. Уч. - изд. л. 2,58. Тираж 500 экз. Заказ

 

ГОУ ВПО «Ивановский государственный химико-технологический университет»

153000, г. Иваново, пр. Ф. Энгельса, 7