DELPHI 7
.pdf
vk.com/club152685050 | vk.com/id446425943
Задача 2 (на лекции).
В матрице D(6, 6) вычислить сумму элементов строк, начинающихся с неотрицательного значения.
Сформировать из неотрицательных элементов матрицы D вектор F и упорядочить его элементы по возрастанию, определив общее количество элементов, превышающих среднее арифметическое значение элементов матрицы D.
Сортировку элементов вектора F оформить в виде функции пользователя.
Результаты идентифицировать.
28
vk.com/club152685050 | vk.com/id446425943
Объявление массивов
Type имя массива = array [диапазон] of тип;
Type a = array [1..100] of real;
Type b = array [1..10, 1..5] of integer;
Type c = array [1..20] of string;
Var f: a; g: b; h, k: c;
29
vk.com/club152685050 | vk.com/id446425943
Объявление массивов
Возможно декларировать переменную как массив.
Var d: array [1..10] of real; s: array [1..10] of real;
Однако при этом невозможна запись
D := s;
т.к. массивы относятся к разным типам.
30
vk.com/club152685050 | vk.com/id446425943
Объявление массивов
Правильная запись
Type w=array [1..10] of real; Var d: w; s: w;
При этом возможна запись
D := s;
т.к. массивы относятся к одному типу.
31
vk.com/club152685050 | vk.com/id446425943
Многомерные массивы
Type d = array [1..5] of array [1..5] of real;
Type d = array [1..5, 1..5] of real;
32
vk.com/club152685050 | vk.com/id446425943
Задача
Задана последовательность
x = (x1, x2, …, x10).
Сформировать из нее одномерный массив Y, состоящий из вещественных элементов, т.е. элементов, дробная часть которых не равна 0.
Если таковых нет, то напечатать сообщение «Вещественных элементов нет».
33
vk.com/club152685050 | vk.com/id446425943
Текст программы
Program ex1;
Type a = array [1..10] of real;
Var x: a = (0.21, 5., -34.2, 7., 0., -1.72, 10., 2.4, 37., 0.2);
Var y: a; i: integer; j: integer = 1;
Begin
For i:=1 to 10 do
if (x[i] <> int(x[i]) then begin
y[j]: = x[i]; writeln (y[j]); j:=j+1; end;
if (j = 1) then
writeln («Вещественных элементов нет»);
End.
34
vk.com/club152685050 | vk.com/id446425943
Введение в среду Delphi 7
vk.com/club152685050 | vk.com/id446425943
Назначение среды Delphi
создание законченных приложений для Windows самой различной направленности;
быстрое создание профессионально выглядящего оконного интерфейса для любых приложений; интерфейс удовлетворяет всем требованиям Windows и автоматически настраивается на установленную систему;
vk.com/club152685050 | vk.com/id446425943
Назначение среды Delphi
создание своих динамически присоединяемых библиотек (DLL) компонентов, форм, функций, которые можно использовать из других языков программирования;
создание мощных систем работы с локальными и удаленными базами данных любых типов;