3.Програма знаходження мінімального і максимального елемента матриці!!!!

program Project3;

{$APPTYPE CONSOLE}

uses

SysUtils;

var a:array [1..3,1..3] of real; xmin,xmax,min,max:real; i,j:integer;

begin

writeln('Vveditt elementy matrytsi:');

for i:=1 to 3 do

begin

for j:=1 to 3 do

begin

write('a[',i,',',j,']=');

readln(a[i,j]);

end;

end;

min:=a[1,1]; max:=a[1,1];

for i:=1 to 3 do

begin

for j:=1 to 3 do

begin

if a[i,j]>max then

begin

max:=a[i,j];

end;

if a[i,j]<min then

begin

min:=a[i,j];

end;

end;

end;

writeln('min=',min:5:3); writeln('max=',max:5:3);

readln;

try { TODO -oUser -cConsole Main : Insert code here } except on E: Exception do

Writeln(E.ClassName, ': ', E.Message); end; end;

4.«Елементи_управління»

Білет14 1.Компонента TChart та приклад.

Приклад . Побудова графіка за допомогою компоненту Chart

Компонент Chart знаходиться на сторінці TeeChartSTD. Помістіть його

на форму. Запустіть редактор діаграм і створіть одну криву типу Fast Line. На_вкладці Chart перейдіть до вкладки 3D і зніміть прапорець з пункту 3

Dimension для того, щоб прибрати тривимірне відображення графіка.

Перейдіть до вкладки Legend і зніміть прапорець з пункту Visible. Перейдіть

до вкладки Titles і в текстовому полі наберіть наступне: «парабола»

Перейдіть до вкладки Series редактора діаграм і на вкладці Format

клацніть по кнопці Border. З'явиться вікно, в якому можна набудувати колір

лінії. Після того, як колір вибраний, натисніть кнопку OK для закриття вікна.

Щоб закрити вікно редактора діаграм натисніть в нім кнопку Close. Всі

зміни, вироблювані у вікні редактора діаграм, відображаються відразу ж на

ескізі графіка.

Вид додатку на етапі розробки представлений на наступному малюнку:Для задання процедури, завдяки якій будуватиметься графік, зробіть

подвійне клацання на формі. Тобто, графік промальовуватиметься при

створенні форми, а відповідна процедура називається TForm1.FormCreate.

Текст файлу Unit1.pas

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls, TeeProcs, TeEngine, Chart, Series;

type

TForm1 = class(TForm)

Chart1: TChart;

Button1: TButton;

Series1: TLineSeries;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

n,i : integer;

al,bl,h : real;

xe,ye : array[1..100] of real;

implementation

{$R *.dfm}

function f(x : real) : real;

begin

f := x*x-4;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Chart1.Series[0].Clear;

n := 100; al := -20;

bl := 30;

h := (bl-al)/n;

xe[1] := al;

for i:=1 to n do

begin

ye[i] := f(xe[i]);

xe[i+1] := xe[i] + h;

end;

for i:=1 to n do

begin

Chart1.Series[0].AddXY(xe[i],ye[i],' ',clRed);

end;

end;

end.

2.Обмін данними між функціям в С++