[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

пусть дана вещественная матрица размером 18*n. найдите значение наибольшего по модулю элемента матрицы и укажите его местоположение в матрице.(в delfi)

 

пусть дана вещественная матрица размером 18*n. найдите значение наибольшего по модулю элемента матрицы и укажите его местоположение в матрице.(в delfi)
Type
Matrix=array[1..Nmax,1..Nmax] of integer; // новый тип матрица
var num,x,y,i,j,n:integer;
mat : Matrix;
begin
n:= // вводишь количество строк в матрице как тебе удобно...
SetLength(multiArray, 18, n);
num:=0;
x:=0;
y:=0;
// Заполняем массив случайными числами в промежутке от -500 до 500
for j=1 to 18
for i=1 to n
begin
A[j,i]:=random(1000)-500;
end;
// Ищем большее по модулю число в матрице
for j=1 to 18
for i=1 to n
begin
if ABS(A[j,i])>num then begin
num:=A[j,i];
x:=j;
y:=i;
end;
label1.caption:=inttostr(num)+inttostr(x)+inttostr(y); // сам вывод сформируешь
end;
end;

да и заполнить массив не забудь!
Написал на коленке без использования делфэ, так что немного деббагинга тебе придется провести. удачи)

 

при обновлении indy на последнем шагу вылазит ошибка

точка входа в процедуру @idheadercoderindy@initialization$qqrv не найдена в библиотеке dll indyprotocols

как быть? indy 10.5.7, delphi 2009

 

buket плохо удалил старые инди
еще раз сделай внимательно по статье

 

делал все также, делал несколько попыток, результат один: указанная выше ошибка

 

Не факт =)
Дело в том, что я также делал все по статье и не раз, и у меня была ошибка наподобие твоей
Там даже мой коммент есть, и ответ мне дали такой как я тебе
В итоге я все же обновил, сделав все тщательней

 

может кто-то объяснить как вводить и выводить данные массива в Memo?

 

Code:

A:Array of string
i:integer;
begin
//array -> memo
  for i :=0 to High(A) do
    memo1.lines.add(a[i]);

//memo ->array
  setLength(a,Memo1.Lines.Count)
  for i := 0 to memo1.lines.count-1 do
    a[i]:=Memo1.Lines.Strings[i];    
end;

 

как узнать мгновенную скорость инету (не максимальную а ту которая исполюзуетса!) на винде и на линуксе?
как ограничить скорость инету на винде и на линуксе?

ПС на винде D2010 на Linux Lazarus

 

Code:

A:Array of string
i:integer;
begin
//array -> memo
  for i :=0 to High(A) do
    memo1.add(a[i]);

//memo ->array
  setLength(a,Memo1.Lines.Count)
  for i := 0 to memo1.lines.count-1 do
    a[i]:=Memo1.Lines.Items[i];    
end; 

Выводится нулевой элемент массива?

Вот у меня:

Code:

//вводится
n:=StrtoInt(Edit1.text);
for i:=0 to n do
a[i+1]:=StrToInt(Memo1.Lines[i]);

//выводится
 for i:=0 to k do
   Memo2.Lines.Add(IntToStr(b[i+1]));

Не работает почему-то.

 

нет. выводятся все элементы

Code:

  for i :=0 to High(A) do
    memo1.[B]lines[/B].add(a[i]); //упустил Lines=)

High(A) - возвращает верхнюю границу массива
метод Lines.Add - добавляет новую строку

 

Code:

//вводится
for i:=0 to [B]High(a)[/B]-1 do      //замеч вручную вводить размер? если ’a[i[B]+1[/B]]’ значет ’High(a) [B]-1[/B]’
a[i+1]:=StrToInt(Memo1.[B]Lines.Strings[i][/B]); //зечем i[B]+1[/B]??

//выводится
 for i:=0 to [B]High(b)[/B]-1 do    //также
   Memo2.Lines.Add(IntToStr(b[i+1]));

 

Только с div и mod?
не используя вообще ничего больше?
ограничение на n есть? Может всегда трёхзначное или ещё что-нибудь?

 

Каким образом можно проємулировать переход по ссылке?? С юзер агентом и прочими заголовками.

 

Isaev да, только див и мод, вроде обычная задачка, просто я не умею решать на делфи, а подруге надо помочь

 

Code:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleCtrls, SHDocVw, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdDayTime, IdHTTP;

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    IdHTTP1: TIdHTTP;
    procedure Label1Click(Sender: TObject);
    procedure IdHTTP1Authorization(Sender: TObject;
       var Handled: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  mStream: TMemoryStream;

implementation

{$R *.dfm}

procedure TForm1.Label1Click(Sender: TObject);
begin
label1.caption:='true';
end;

procedure TForm1.IdHTTP1Authorization(Sender: TObject;
  [B][COLOR=Red]Authentication: TIdAuthentication;[/COLOR][/B] var Handled: Boolean);
begin
mStream:= TMemoryStream.Create;
try
  idHttp:= TIdHTTP.Create(nil);
     useragent:="opera nax";
  try
    idHttp.Get('http://http.ru', mStream);
  finally
    idHttp.Free;
  end;
finally
  mStream.Free;
end;
end;

end.

Краснім віделена строка где компиль відает ошибку. Подскажите чем візвана?

 

disCoverall сомневиюсь, что это возможно... нужно как минимум ещё +
ну или or

 

Code:

uses 
IdAuthentication,   IdAuthenticationNTLM; 

 

2 Hellow, спасибо, но я уже сам разобрался. Подскажите, кто работал с компонентом idHttp, почему при:

запускается программа, но когда доходит очередь до єтого действия, відается ошибка. в чем тут ошибка? может я неправильно использую компонент?

 

главное, напишите программу, что бы в ней это было.заранее спасибо