DELPHI 7

vk.com/club152685050 | vk.com/id446425943

unit Unit1; interface uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs; type

TForm1 = class(TForm) private

{ Private declarations }

Создание и редактирование

public

текста{ Public программыdeclarations } . end;

var

Form1: TForm1; implementation

{$R *.dfm} end.

vk.com/club152685050 | vk.com/id446425943

Обеспечивает поиск нужных элементов.

vk.com/club152685050 | vk.com/id446425943

Создание консольных приложений

vk.com/club152685050 | vk.com/id446425943

vk.com/club152685050 | vk.com/id446425943

vk.com/club152685050 | vk.com/id446425943

Задача 1 Текст программы

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 («Вещественных элементов нет»);

20

End.

vk.com/club152685050 | vk.com/id446425943

Задача 2

Составить блок-схему и написать программу решения следующей задачи.

Организовать ввод с клавиатуры матрицы А(6,6).

Сформировать вектор В, состоящий из положительных элементов матрицы А.

Поменять местами максимальный и минимальный элементы вектора В.

Определить, что больше, среднее арифметическое или среднее геометрическое элементов вектора В. Идентифицировать каждый результат.

vk.com/club152685050 | vk.com/id446425943

Создание

Windows - приложений

vk.com/club152685050 | vk.com/id446425943