1_5 (1185048)

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла

ЗАДАЧА 1.5.пример Студент Иванов И.И., Гр. Р-10-01

Тема: Нахождение экстремальных элементов в одномерных массивах. (Экстремальный – максимальный или минимальный)

Задание: Разработать алгоритм и программу нахождения экстремального элемента или его номера при заданном одномерном массиве a из n элементов

(или массивах a и c по n элементов в каждом).

1)Условие задачи: Определить наименьшее среди произведений a₁*…* a_m , где m =1,2,…,n, и значение m, при котором оно достигается.

2а) Использумые компоненты

2в) Таблица событий

3) procedure Form1.Button1Click :

3а) Таблица данных

4) Тесты

5)Алгоритм 6) Программа

5) Текст процедуры TForm1.Button1Click :

unit Unit1; {задача 1.4.1}

interface

uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Grids, StdCtrls;

type

TForm1 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Button1: TButton;

StringGrid1: TStringGrid;

StringGrid2: TStringGrid;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

var a : array[1..10] of real;

p, pmin: real;

n, i, mmin: integer;

begin

n:= StrToInt(Edit1.text);

if ((n<=10) and (n>=10)) then

begin

for i:=1 to n do a[i]:= StrToFloat(StringGrid1.Cells[0, i -1]);

p:=a[1];

pmin:=a[1];

mmin:=1;

for i:=2 to n do

begin

p:=p * a[ i ];

if (p < pmin) then

begin

mmin:=m; pmin := p;

end;

end;

Edit2.text:= FloatToStr(pmin); Edit3.text:= IntToStr(mmin);

End

Else

Label5.caption:= ' введите снова n’ ;

end;

procedure TForm1.Button2Click(Sender: TObject);

var i: integer;

begin

Label5.caption:= ' '; Edit1.text:= ' '; Edit2.text:= ' '; Edit3.text:= ' ';

StringGrid1.ColCount:=1; StringGrid1.Cells[0, 0]:= ' ';

end;

procedure TForm1.Button3Click(Sender: TObject);

var i: integer;

begin

Edit1.text:= ' 4 ';

with StringGrid1 do

begin

ColCount:=4

Cells[0, 0]:= ' -1 ';

Cells[0, 1]:= ' -2 ';

Cells[0, 2]:= ' 1 ';

Cells[0, 3]:= ' 1 ';

end

end;

procedure TForm1.Button3Click(Sender: TObject);

var i: integer;

begin

Edit1.text:= ' 3 ';

with StringGrid1 do

begin

ColCount:=3;

Cells[0, 0]:= '1 '; Cells[0, 1]:= ' 2 '; Cells[0, 2]:= ' -1 ';

end;

end;

end.

Характеристики

Тип файла документ

Документы такого типа открываются такими программами, как Microsoft Office Word на компьютерах Windows, Apple Pages на компьютерах Mac, Open Office - бесплатная альтернатива на различных платформах, в том числе Linux. Наиболее простым и современным решением будут Google документы, так как открываются онлайн без скачивания прямо в браузере на любой платформе. Существуют российские качественные аналоги, например от Яндекса.

Будьте внимательны на мобильных устройствах, так как там используются упрощённый функционал даже в официальном приложении от Microsoft, поэтому для просмотра скачивайте PDF-версию. А если нужно редактировать файл, то используйте оригинальный файл.

Файлы такого типа обычно разбиты на страницы, а текст может быть форматированным (жирный, курсив, выбор шрифта, таблицы и т.п.), а также в него можно добавлять изображения. Формат идеально подходит для рефератов, докладов и РПЗ курсовых проектов, которые необходимо распечатать. Кстати перед печатью также сохраняйте файл в PDF, так как принтер может начудить со шрифтами.

Список файлов лабораторной работы