ТОР 5 статей: Методические подходы к анализу финансового состояния предприятия Проблема периодизации русской литературы ХХ века. Краткая характеристика второй половины ХХ века Характеристика шлифовальных кругов и ее маркировка Служебные части речи. Предлог. Союз. Частицы КАТЕГОРИИ:
|
Порядок выполнения работы. 1. С помощью Проводника Windows на рабочем логическом диске создайте папку (например, Ivanov-5) для размещения файлов проекта.1. С помощью Проводника Windows на рабочем логическом диске создайте папку (например, Ivanov-5) для размещения файлов проекта. 2. Создайте проект «Console Application» консольного приложения Delphi. 3. Сохраните файлы проекта в папку Ivanov-5 под именем Ivanov5. 4. Отредактируйте текст главной программы для задачи 1. PROGRAM Ivanov5; {$APPTYPE CONSOLE} USES SysUtils; CONST n=5; // количество элементов массива TYPE ar=array[1..n] of real; // объявление типа массива VAR a:ar; // исходный массив А s:real; // сумма отрицательных элементов i:integer; // счетчик элементов begin // Ввод исходных данных WriteLn('Type ', n, ' real elements of array:'); for i:=1 to n do Read(a[i]); // Выполнение задачи s:=0; // начальное значение суммы for i:=1 to n do // цикл перебора элементов массива if a[i]<0 then // выборка отрицательных элементов s:=s+a[i]; // суммирование // Вывод результата if s=0 then WriteLn('There are NO negative elements') Else WriteLn(' S=',s:8:4); WriteLn('***** Press <ENTER> to finish *****'); Readln; // задержка экрана Readln; END.
5. Запустите приложение на выполнение (горячая клавиша F9). Консольное окно с результатами расчета для задачи 1 выглядит так:
6. Сохраните и закройте проект Ivanov5. 7. Создайте новый проект консольного приложения Delphi и сохраните его файлы в папку Ivanov-5 под именем Ivanov5_2. 8. Отредактируйте текст главной программы для задачи 2.
program Ivanov5_2; {$APPTYPE CONSOLE} uses SysUtils; Const m=3; // количество строк и столбцов Type mas=array[1..m,1..m] of integer; // тип массива Var A:mas; // массив А R:integer; // разность Amax:integer; // максимальный элемент Amin:integer; // минимальный элемент i,j:integer; // счетчики по строкам, столбцам begin // Ввод исходных данных WriteLn('Type integer elements of array A:'); for i:=1 to m do for j:=1 to m do Read(A[i,j]); // поэлементное чтение массива Amin:=A[1,1]; // начальное значение минимального элемента Amax:=A[1,1]; // начальное значение максимального элемента // поиск минимального и максимального элементов for i:=1 to m do for j:=1 to m do begin if A[i,j]<Amin then Amin:=A[i,j]; if A[i,j]>Amax then Amax:=A[i,j] end; R:=Amax-Amin; // разность WriteLn('-----------------------------------'); WriteLn(' Result: R=',R:4); WriteLn('***** Press <ENTER> to finish *****'); Readln; // задержка экрана Readln; end.
9. Запустите приложение на выполнение (F9). Консольное окно с результатами расчета для задачи 2 выглядит так:
Варианты заданий Задача 1 1. Найти корни уравнения Ax + Bsina = 0, где a = 1.3, A = {1.1, 2.5, 3.9, 8.1, 4.5, 12.1, 11.9, 15.5}. (i = 1..8). 2. Вычислить массив , где – положительные корни уравнения Ax + Bcosb = 0, при А = 0.75, B = 4.5, b = -1.5.. 2.5, . 3. Найти сумму всех положительных элементов массива A = {-1.2, 3.5, 4.1, 8.5, 5.3, -6.1, 3.4, 2.7}. 4. Найти произведение элементов массива A = {1, 3.5, 4, -0.8, 1.9, 5, 13}, удовлетворяющих условию , если С = 2, D = 10. Сформировать из этих элементов массив Z. 5. Вычислить при Y = -5.5, X = {-1.8, -1.6,..., 1.2}. Результат представить в виде массива. 6. Найти номера первого нечетного и последнего четного чисел из последовательности целых чисел N = {10, 8, 4, 3, 6, 15, 2}. 7. Даны два массива: A = {1.1, 2, 4, 5.1, -8.2, -1.5, 1.2}, B = {-1.3, 2.7, -3.2, 5, 1.8, -4.6, -1.2}. Найти число перемен знаков последовательности попарных произведений 8. Найти разность между максимальным и К-м элементом массива А = {-1.1, 2.5, -2.9, 8.8, 14.5, 2.2, -1.3, 5.9} при К = 4. 9. Вычислить элементы массива где x – корни серии уравнений Аx + sini = 0, , А = 5.5. 10. Найти сумму первых К положительных элементов массива А = (2.8, -3.5, -2.1, 4, 6, 8.1, 6.2, 9.5, 1.1) при К = 5. 11. Найти количество элементов массива A = {1.2, 5, 7, 9.3, 6.9, -8, -1.5, 2.5, 2.8}, удовлетворяющих условию , если С = -3.5, D = 6. Сформировать из этих элементов массив F. 12. Найти произведение последних N отрицательных элементов массива А = (-5, 6.1, -9.2, 4, 5, -2, 7, -1, 5, 4, 1.9, -3, 5); N = 3. 13. Сформировать массив , четные компоненты которого равны компонентам массива А = (-5.1, 2.3, 4.6, 5.8, -2.9), нечетные – компонентам массива В = (2.8, 3, 5.4, -1.9, -4.1). 14. Найти количество положительных, отрицательных и равных нулю элементов массива М = (-5, 0.1, 2.8, 0.64, 3, -5.1, 0, -7.5, 4.6, 10). 15. Среди последовательности чисел найти первое, меньшее заданного числа e (e = ). 16. Элементы массива A вычисляются по формуле , i = 1..10. Сформировать массив B, элементы которого удовлетворяют условию , если С = 2.5, D = 10.3. 17. Задан массив целых чисел N = (1, 5, -3, 3, 15, 21, 8, -5). Необходимо за один просмотр найти два минимальных числа. 18. Вычислить значения элементов массива S, которые являются модулями элементов массива Z: . 19. Даны два массива: М1 = (-5, 10, 21, 35, -9, 11, 4, 5) и М2 = (1, 5, 10, -3, 4, -15, 36, 6, 11). Найти их объединение и результат записать в массив М3. 20. Вычислить где х = , массив, элементы которого являются остатком от деления целых компонентов массива N = (156, 18, 72, 10, 95, 100) на целое число К = 9. 21. Задан массив Х = (-1.5, 6.8, -3, 9, 7, -2.7, -4.5, 1.6). Вычислить произведение модулей отрицательных и сумму положительных элементов массива Х. 22. Заданы массивы А = (-1.1, 2, 8, 9, 5, 5.3, 5, -5, 2.1) и С = (8, 9, 1, 2, -5, 3.4, 4.9, 6, 1.8). Найти их пересечение и результат записать в массив В. 23. Задан массив А = (5.5, -6, 8, 9.1, -3.5, 4.1, 10, -1, 2.5). Вычислить , где и – соответственно максимальный и минимальный элементы массива А; – их среднее арифметическое. 24. В массиве Н = (-0.5, 2.8, 9.1, -0.3, 10, -1, 2.1, 8.2) указать номер первого элемента, сумма которого с последующим за ним элементом не превышает D (D = 1.5). 25. Вычислить где – элементы массива В = (0.1, 2, 5, -3.1, 4.2, -1.2, 6, -2, 3.7, 5.2), n = 10, a = 4.5. 26. Решить квадратное уравнение , где А – сумма элементов массива К = (2.1, 0.25, 1.4, -1.9), В – их произведение, а С = -1.34.
27. Вычислить элементы массива Y по формуле где - корень уравнения , – элемент массива А = (1.2, -4.6, 3.8, -2.3, 0.6, 1.7). 28. Найти большее из чисел А, В, С, где А – сумма модулей отрицательных, В – произведение положительных элементов массива К, С – разность между максимальным и минимальным его элементами. К = (10.1, 0.2, -3.4, -0.5, 3.6, -12.9, 5.7). 29. Определить произведение двух чисел А×В, где А – сумма первых К, а В – последних К элементов массива С = (2, 4, -2, 9, 7, -10, 11, -1), К = 3. 30. Определить величины и индексы максимального по модулю и минимального элементов массива В = (-1.5, 6.9, 13, 6.2, -17, 8, 6.6).
Задача 2 1. Задан массив А(m,n). Сформировать массив В из наименьших элементов каждой строки массива А: 2. Дан массив В(m,n). Сформировать массив С(n) из сумм элементов каждого столбца В: 3. В массиве Е(m,n) поменять местами элементы i-й и k-й строк: 4. В массиве Р(m,n) все элементы разделить на максимальный элемент k-го столбца: 5. Задан массив А(m,n). Сформировать массив С из элементов четных столбцов и массив В из элементов нечетных строк массива А: 6. Дан целочисленный массив О(m,n). Сформировать одномерные массивы В и С, содержащие, соответственно, четные и нечетные элементы массива А: 7. Сформировать массив В из произведений элементов столбцов массива Z: 8. Сформировать массив Т из сумм элементов, расположенных в строках с отрицательными элементами на главной диагонали исходного массива Z: 9. Сформировать массив NS из номеров строк массива R, в которых имеются повторяющиеся значения: 10. В массиве Q(m,n) заменить отрицательные элементы номером столбца, в котором они находятся: 11. Сформировать массив В из элементов массива А, меньших Е: 12. Сформировать массив В из элементов, расположенных ниже главной диагонали исходного массива К: 13. В массиве V(n,n) элементы строки, содержащей наибольший элемент, заменить на s: 14. Преобразовать массив H(n,n), разделив все элементы на максимальный элемент К-го столбца: 15. Найти разность R между максимальным и минимальным элементами массива W: 16. Задан массив A(m,n). Сформировать массив B из положительных элементов массива A: , m = 2, n = 3. 17. Преобразовать массив G(m,n), поменяв местами элементы К-го и (К+1)-го столбцов: 18. К отрицательным элементам массива D(m,n) прибавить S, а из положительных вычесть X: 19. В массиве F(n,m) заменить все положительные элементы их квадратами, а отрицательные – их кубами: 20. Сформировать массив В из отношений элементов N и S столбцов массива: 21. Сформировать массив R из номеров строк массива Y(m,n), в которых находятся максимальные элементы каждого столбца: 22. Сформировать массив К из положительных отношений элементов n-го и s-го столбцов массива 23. Сформировать одномерный массив В из элементов массива А(n,n), которые по величине больше, чем С: 24. Элементы массива S(m,m) разделить на сумму элементов, расположенных на главной диагонали: 25. Преобразовать массив А(m,n), умножив его элементы на сумму соответствующих им индексов: 26. Сформировать массив В из элементов главной диагонали и массив С из элементов дополнительной диагонали исходного массива А: 27. Определить сумму S элементов массива А(n,n), расположенных ниже главной диагонали, и произведение Р элементов массива А(n,n), расположенных выше главной диагонали: 28. Преобразовать массив К(m,m), заменив все элементы, большие А, максимальным элементом массива К, а элементы, меньшие В, – минимальным его элементом: 29. Определить массив В из произведений элементов строк исходного массива K: 30. Найти разность R между максимальным и минимальным элементами массива Y: Не нашли, что искали? Воспользуйтесь поиском:
|