Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АрхитектураБиологияГеографияДругоеИностранные языки
ИнформатикаИсторияКультураЛитератураМатематика
МедицинаМеханикаОбразованиеОхрана трудаПедагогика
ПолитикаПравоПрограммированиеПсихологияРелигия
СоциологияСпортСтроительствоФизикаФилософия
ФинансыХимияЭкологияЭкономикаЭлектроника

Алгоритма на языке программирования.

Читайте также:
  1. VII. В 4-5 предложениях расскажите о новой европейской валюте на французском языке.
  2. VII. В 4-5 предложениях сообщите на французском языке о пользе леса для человека и для окружающей среды.
  3. VII. В 4-5 предложениях сообщите на французском языке о проблеме климата.
  4. Алгоритмы на языке Паскаль
  5. Анализ разницы в алгоритмах для разных поисковых движков и разных типов поиска
  6. Блок-схема алгоритма

Алгоритм решения задачи.

 
 

 


 


Скриншот с результатами работы программы.

 

Алгоритма на языке программирования.

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, Grids;

type

TForm1 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

StringGrid1: TStringGrid;

Button1: TButton;

Button2: TButton;

Label4: TLabel;

Memo1: TMemo;

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);

begin

close;

end;

 

procedure TForm1.Button1Click(Sender: TObject);

Var a:array [1..100,1..100] of integer;

k,m,i,j,n,max:integer;

 

begin

k:=StrToInt(Edit1.Text); // количество строк

m:=StrToInt(Edit2.Text); // количество столбцов

n:=StrToInt(Edit3.Text); // номер столбца

StringGrid1.RowCount:=k;

StringGrid1.ColCount:=m;

randomize;

 

// заполнение массива случайными числами

for i:=1 to k do

for j:=1 to m do

begin

a[i,j]:=random(10)-random(10);

StringGrid1.Cells[j-1,i-1]:=IntToStr(a[i,j]);

end;

 

// поиск максимального элемента в столбце n

max:=a[1,n];

for i:=1 to k do

if a[i,n]>max then max:=a[i,n];

 

Label4.Caption:='Max='+IntToStr(max);

end;

end.

 

Таблица результатов

k m A[i,j] n Результат
      -1 -2 3 7 -1 -3    
      8 3 -1 -2 5 3 4 5 3    

 

Вывод

В данной лабораторной работе мы использовали цикл с параметром для ввода массива и работы с ним.

 


Дата добавления: 2015-07-11; просмотров: 153 | Нарушение авторских прав


<== предыдущая страница | следующая страница ==>
Горно-алтайский государственный университет| Исследование промежуточных реле

mybiblioteka.su - 2015-2024 год. (0.006 сек.)