FreePascal.ru

var a: array of array of real;
i,j,m,n:integer;
procedure TForm1.Button1Click(Sender: TObject);
begin
val(inputbox('','',''),n);
val(inputbox('','',''),m);
setlength(a,n,m);
stringgrid1.RowCount:=n;
stringgrid1.ColCount:=m+1;
for i:=0 to n-1 do
for j&#58 ...

Здравствуйте.
Я вывожу массив так:
stringgrid1.Cells[j+1,i]:=floattostr(a[i,j]);
Но в учебнике по lazarus написано:
stringgrid1.Cells[i,j]:=floattostr(a[i,j]);
Почему у меня не работает второй вариант?

Возможно, что дело в фрагменте

if ((x>=-1&#46;00000000000018) and (x<=-1&#46;00000000000016))or
((x<=1&#46;00000000000018) and (x>=1&#46;00000000000016))
then moveto(x0+trunc(x*m),y0-trunc(y*m))

который пропускает ровно эти места.

Ничего не изменилось, результат прежний.

Или поменяйте ...

if ((x>=-1&#46;00000000000018) and (x<=-1&#46;00000000000016)) xor
((x<=1&#46;00000000000018) and (x>=1&#46;00000000000016))
then moveto(x0+trunc(x*m),y0-trunc(y*m)) else lineto(x0+round(x*m),y0-round(y*m));

Там xor вместо or . Так будет нужный результат?

.
Ничего не изменилось, результат ...

Возможно, что дело в фрагменте

if ((x>=-1&#46;00000000000018) and (x<=-1&#46;00000000000016))or
((x<=1&#46;00000000000018) and (x>=1&#46;00000000000016))
then moveto(x0+trunc(x*m),y0-trunc(y*m))

который пропускает ровно эти места.
Как же сделать, чтобы он не пропускал ровно эти места?

Здравствуйте! При использовании первого графика, рисунок графика правильный(есть разрывы функции).
procedure TForm1&#46;Button2Click(Sender&#58; TObject);
const
x3=-1;
x4=1;
m=50;
var
x0,y0&#58;integer;
x,y&#58;single;
begin
Form1&#46;Image1&#46;Canvas&#46;Brush&#46;Color&#58;=clBtnFace ...

Спасибо за ответы.
Я думал , что есть метод, с помощью которого можно даже не выбирать в инспекторе объектов процедуру для других edit.

Здравствуйте.
Для edit1 написана процедура OnСhange , как сделать с помощью sender as ,чтобы эта процедура выполнялась для всех других edit?

resident писал(а):Вроде так:

Код: Выделить всё

a := ln(100)/ln(10);

Спасибо!

Подскажите ,пожалуйста, как переменной присвоить значение логарифма.
a:=log10(100); не работает.

Спасибо!

Можете, пожалуйста, написать как сделать форму невидимой?

Здравствуйте.
Моя программа состоит из двух форм.На первой форме находиться кнопка для перехода на вторую, после перехода первая форма закрывается.
На второй форме находится кнопка назад , которая возвращает на первую форму.Но так ка форма 1 закрыта команда unit1.form1.showmodal; не работает ...