Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Программирование под Windows > Delphi
Перезагрузить страницу Братцы выручайте!
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
Pashkavip Pashkavip вне форума
Новичок
 
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 26.04.2018
По умолчанию Братцы выручайте! - 26.04.2018, 02:13

Братцы, помогите кто может, надо написать матрицу на дэлфи. Задача такая: разработать алгоритм, код и интерфейс электронного пакета осуществляющий ввод матрицы nxm случайными числами в диапазоне от 0 до 55 и нахождением минимального и максимального числа.
Писать надо в форме, сам разобраться пытался, видео на Ютубе, методичка, полный нуль. Пример из методички выложу чуть ниже.

Если кто-то может буду по гроб жизни благодарен

delphi Код:
Unit Rab_4;

Interface

Uses

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

  StdCtrls, ExtCtrls, Grids;

type

  TInputForm = class(TForm)

    StringGrid1: TStringGrid;

    StringGrid2: TStringGrid;

    StringGrid3: TStringGrid;

    Label1: TLabel;

    Edit1: TEdit;

    Button1: TButton;

    Button2: TButton;

    Procedure FormCreate(Sender: TObject);

    Procedure Button1Click(Sender: TObject);

    Procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

const

  Nmax = 10; // Максимальная размерность массива

type

  Mas1 = array[1..Nmax] of Extended; // Объявление типа одномерного массива

  Mas2 = array[1..Nmax, 1..Nmax] of Extended; // Объявление типа двумерного массива

var

  InputForm: TInputForm;

  A : Mas2;     // Объявление двумерного массива

  B, Y : Mas1;  // Объявление одномерных массивов

  N, i, j : integer;

Implementation

{$R *.DFM}

Procedure TInputForm.FormCreate(Sender: TObject);

begin

  N := 3; // Размерность массива

  Edit1.Text := FloatToStr(N);

// Задание числа строк и столбцов

  StringGrid1.ColCount := N + 1;

  StringGrid1.RowCount := N + 1;

  StringGrid2.RowCount := N + 1;

  StringGrid3.RowCount := N + 1;

// Ввод в левую верхнюю ячейку таблицы названия массива

  StringGrid1.Cells[0, 0] := 'Массив A';

  StringGrid2.Cells[0, 0] := 'Массив B';

  StringGrid3.Cells[0, 0] := 'Массив Y';

// Заполнение верхнего и левого столбцов поясняющими подписями

  for i:=1 to N do

  begin

    StringGrid1.Cells[0, i] := 'i='+ IntToStr(i);

    StringGrid1.Cells[i, 0] := 'j='+ IntToStr(i);

  end;

end;

Procedure TInputForm.Button1Click(Sender: TObject);

begin

  N := StrToInt(Edit1.Text);

// Задание числа строк и столбцов в таблицах

  StringGrid1.ColCount := N + 1;

  StringGrid1.RowCount := N + 1;

  StringGrid2.RowCount := N + 1;

  StringGrid3.RowCount := N + 1;

// Заполнение верхнего и левого столбцов поясняющими подписями

  for i:=1 to N do

  begin

    StringGrid1.Cells[0, i] := 'i=' + IntToStr(i);

    StringGrid1.Cells[i, 0] := 'j=' + IntToStr(i);

  end;

end;

 

Procedure TInputForm.Button2Click(Sender: TObject);

var

  s : extended;

begin

// Заполнение массива A элементами из тавлицы StringGrid1

  for i:=1 to N do

  for j:=1 to N do

    A[i, j] := StrToFloat(StringGrid1.Cells[j, i]);

// Заполнение массива B элементами из тавлицы StringGrid2

  for i:=1 to N do

    B[i] := StrToFloat(StringGrid2.Cells[0, i]);

// Умножение массива A на массив B

  for i:=1 to N do

  begin

    s := 0;

    for j:=1 to N do

    s := s + A[i, j]*B[j];

    Y[i] := s;

// Вывод результата в таблицу StringGrid3

    StringGrid3.Cells[0, i] := FloatToStrF(Y[i], ffFixed,6,2);

  end;

end;

end.

Последний раз редактировалось Rius; 26.04.2018 в 10:32 Причина: Теги языка
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
выручайте leshik Любые вопросы от новичков 3 01.03.2017 15:47
Выручайте.Не включается ПК(( Lenov Любые вопросы от новичков 23 13.01.2016 11:13
беда братцы Иван Александрович Любые вопросы от новичков 13 08.10.2015 16:10
Выручайте Tichiy Софт и программы 0 16.03.2014 16:24
Братцы помогите плиз описать алгоритм на псевдокоде! tolyanl1985 Pascal 6 09.01.2013 23:23
Выручайте братцы :( Radnk Разное 11 05.11.2012 18:53
Выручайте) rotmaister PHP 1 17.07.2012 09:18
Выручайте Astor1st Pascal 1 03.05.2011 14:09
Выручайте rwa12 Сетевые подключения 3 02.09.2010 22:37
Ребятки выручайте;) Dozent Материнские платы 24 21.12.2009 21:07
proxy выручайте! Krit Софт и программы 1 26.10.2008 09:52



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов