Главная | Случайная
Обратная связь

ТОР 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:




Не нашли, что искали? Воспользуйтесь поиском:

vikidalka.ru - 2015-2019 год. Все права принадлежат их авторам! Нарушение авторских прав | Нарушение персональных данных