Var b:vec; n1,I,j,k:integer;

bmax,bmin,nom,imax,imin:integer;

begin n1:=m*n; SetLength(b,n1); k:=-1;

for i:=0 to m-1 do

for j:=0 to n-1 do begin k:=k+1; b[k]:=a[i,j] end;

for i:=0 to n1-1 do Edit4.text:=Edit4.text+' '+IntToStr(b[i]);

k:=length(b);

maxel(k,b,bmax,imax); minel(k,b,bmin,imin);

Label9.Caption:='Максимальный элемент

вектора='+IntToStr(bmax);

Label10.Caption:='Его номер='+IntToStr(imax);

Label11.Caption:='Минимальный

элемент вектора='+IntToStr(bmin);

Label12.Caption:='Его номер='+IntToStr(imin);

if imax>imin then begin nom:=imin+1; k:=imax-imin-1

end

else begin nom:=imax+1; k:=imin-imax-1

end;

b:=copy(b,nom,k);

for i:=0 to k-1 do

Edit5.text:=Edit5.text+' '+IntToStr(b[i]);

a:=nil; b:=nil; end;

Модуль без формы с подпрограммами

для использования из приложения

Внимание! Общие ресурсы для всех процедур Unit1 объявлены в этом модуле. Поэтому необходимо модуль UnitPP подключить к Unit1.

uses

Windows, Messages, SysUtils, Classes, Graphics,

Controls, Forms, Dialogs, StdCtrls, Grids,UnitPP;

unit UnitPP;

interface

type vec=array of integer; matr=array of vec;

var a:matr; m,n:integer;

procedure maxel(n:integer;x:vec;var max,imax:integer);

procedure minel(n:integer;x:vec;var min,imin:integer);

implementation

procedure maxel;

var i:integer;

begin max:=x[0]; imax:=0;

for i:=0 to n-1 do

if x[i]>max then begin max:=x[i];imax:=i end

end;

procedure minel;

var i:integer;

begin min:=x[0]; imin:=0;

for i:=0 to n-1 do

if x[i]<min then begin min:=x[i];imin:=i end

end;

end.

Сценарий работы программы:

1. Запустить программу (Run);

2. В поле Edit1 ввести значение m;

3. В поле Edit2 ввести значение n;

4. В поле Edit3 ввести построчно элементов матрицы, разделитель элементов пробел;

5. Нажать кнопку “Ввод”;

6. Нажать кнопку “Вывод”;

7. Нажать кнопку “Расчет”;

8. Просмотреть и проанализировать результаты;

9. Для завершения обработки матрицы нажмите “Выход”;

Результат обработки матрицы ( ):

Приложение 1

Задание к первой части лабораторной работы №2

Постановка задачи: пользователь вводит координаты точки (Х,У). Определить принадлежит ли данная точка заштрихованной области графика вашего варианта. Вывести сообщение.

Приложение 2

Задание ко второй части лабораторной работы №2

Постановка задачи:

Найдите значение функции У(а,х) вашего варианта, выведите его на экран монитора, указав ветвь, по которой шел расчет. Значение аргумента Х вводится пользователем с клавиатуры.

Вариант 1 Вариант 2

Y= , где Y=2/х+а³ ,где

a=

Вариант 3 Вариант 4

Y= , где Y= , где

a= a=

Вариант 5 Вариант 6

Y=3x+a²-x/(2ax), где Y=7,3-a/(1+x)+x³a, где

а= a=

Вариант 7 Вариант 8

Y=2/x+a³+e^x, где Y=a+2x+(x²+a²)/(x+a), где

a= a=

Вариант 9 Вариант 10

Y=a+2,8x+(x+a)/3, где Y=a+a/(a+1)+2,5x, где

a= a=

Вариант 11 Вариант 12

Y=2,5a²+ Y=a-x²

a= a=

Вариант 13 Вариант 14

Y= , где Y= , где

a= a=

Вариант 15 Вариант 16

Y=3x+a²-x/(8a-x), где Y=7,3-a/((1+x)+x³a), где

а= a=

Оглавление

ЛАБОРАТОРНЫЙ ПРАКТИКУМ 1

МОСКВА 2006 2

© Андрианова Е.Г. 2

Колесникова М.Д. 2

Тихомирова Б.В., 2006 2

Введение 1

Лабораторная работа №1 3

Лабораторная работа № 2 11

Лабораторная работа № 3 17

Лабораторная работа №4 22

Лабораторная работа №5 24

Лабораторная работа №6 35

Лабораторная работа №7 40

Лабораторная работа №8 51

Лабораторная работа №9 59

Приложение 1 65

Приложение 2 68

Андрианова Елена Гельевна

Колесникова Маргарита Дмитриевна

Тихомирова Белла Владимировна

ПРОГРАММИРОВАНИЕ

НА ЯЗЫКАХ ВЫСОКОГО УРОВНЯ

Лабораторный практикум

Редактор А.Л.Краснов

Изд. лицензия № 020456 от 04.03.97.

Подписано в печать 00.00.0000. Формат 60´84 1/16.

Бумага офсетная. Печать офсетная.

Усл. печ. л. 0,00.Усл. кр.-отт. 00,00. Уч.-изд. л. 0,00.

Тираж 000 экз. С 00.

Государственное образовательное учреждение высшего профессионального образования "Московский государственный институт радиотехники, электроники и автоматики (технический университет)"

117454, Москва, просп. Вернадского, 78