[woc131]

Нужно сделать / доделать программу : решает не сложное уравнение с одним параметром и пишет при каком параметре это решение находится . примерно так.

П.С. Есть код, на 90% (на мой взгляд) готовый . - 10% из-за не знания синтаксиса.

П.П.С. Моя идея такая: есть массив 1,2,3,4..100, каждый элемент массива подставляется в уравнение и смотрим решается оно или нет. Решается - значит end. Но алгоритм решения задачи не столь важен

Вот в принципе и всё

[Страдалецъ]

Если нужен принцип, то будет примерно так:

Код:

function Calc(Param: Integer): String;
begin
 if // Проводим вычисления подставляя переменную Param в вашу формулу
 then Result := 'Решается'
 else Result := 'Не решается';
end;
Var
 Arr: Array[1..100] of integer;
begin
 //Перед циклом массив уже должен быть заполнен значениями
 for i := 1 to 100
 do ShowMessage(Calc(Arr[i]));
end.

[woc131]

Можно ли так заполнить массив ? есть файл - оттуда массив переводится в stringgrid - потом из таблицы в массив. Как делать напрямую ? чтоб из файла сразу в массив, никак не разберу

PHP код:

procedure TForm1.Button2Click(Sender: TObject);
begin
  assignfile(f, 'angles.txt');
  reset(f);
  readln(f, temp);
  for y := 0 to stringgrid1.rowcount - 1 do
    begin
     readln(F, tempstr);
      stringgrid1.cells[0, y] := tempstr;
    end;
   closefile(f);
a[i]:= StrToFloatDef(StringGrid1.Cells[0,y],1);

end; 


[Страдалецъ]

У меня сразу 3 непонятки по вашему коду:

Код:

  readln(f, temp);

- зачем?

Код:

a[i]:= StrToFloatDef(StringGrid1.Cells[0,y],1);

i откуда возьмется? Так использовать y после цикла не рекомендуется. Есть шанс получить в y ахинею.

[woc131]

Сообщение от Страдалецъ

Код:

  readln(f, temp);

- зачем?

да это забыл убрать. лишняя строка.просто строка, никакого смысла

Код:

a[i]:= StrToFloatDef(StringGrid1.Cells[0,y],1);

Заполняет массив из stringgrid.

i откуда возьмется?

i задана выше.не стал весь текст выкладывать, думал много будет.

Так использовать y после цикла не рекомендуется. Есть шанс получить в y ахинею.

Этот прием заполнения взял на заметку на форуме, кто-то так делал. Не думал, что могут быть нюансы.
А как заполнить массив напрямую. Прошелся по форуму и не понял. Как например заполнить массив a[i] значениями 0..100 с шагом 0,01 ? без всяких string grid ? скажите пожалуйста )

[Asinkrit]

Можно так:

Код:

var
  i:integer;
  a:array of double; //real
begin
  setlength(a, 10001);
  for i:=0 to 10000 do a[i]:=(i/100);
end;

Но этот алгоритм довольно медленный из-за деления (хотя для 10000 операций, на глаз это не заметно), но можно и быстрее:

Код:

var
  x:double;
  i:integer;
  a:array of double; //real
begin
  setlength(a, 10001);
  i:=0;
  x:=0;
  while i < 10001 do
    begin
    a[i]:=Real(x);
    inc(i);
    x:=x+0.01;
    end;
end;

либо

var
  i:integer;
  x:double;
  a:array of double; //real
begin
  setlength(a, 10001);
  x:=0;
  for i:=0 to 10000 do
    begin
    a[i]:=x;
    x:=x+0.01;
    end;
end;

Этот код, работает в сотни раз быстрее, но! почему-то (соответственно вопрос профессионалам) увеличение сбивается со временем на бесконечно малые величины, результат исполнения:

Код:

  ..
  2,27
  2,28
  2,29
  2,29999999999999
  2,30999999999999
  2,31999999999999
  ..
  2,75999999999999
  2,76999999999998
  2,77999999999998
  ..
  3,22999999999998
  3,23999999999997
  ..
  ..
  99,9900000000142
  100,000000000014

Того, кто ответит мне на этот вопрос, одарю малым призом

[woc131]

Спасибо, все ок, массив заполнен, но возникла следующая загвоздка - при операциях с массивом чтото не сходится. При подсчете значений син и кос - ошибка :

PHP код:

procedure TForm1.Button6Click(Sender: TObject);
 var a1,a2,a3,a4,a5:extended;
begin
  i:=1     ;
  found:=false;
   a1:=123456.111; // постоянная extended 
    repeat
    a2:=no2*no2*sin(a[i])*sin(a[i]); //вот здесь ошибка invalid floating point operation
    a3:=ne2*ne2*cos(a[i])*cos(a[i]);
    obr:=Round((a1+(ne2*no2/sqrt(a2+a3))/l2)*10000 / 10000) ;
 if g=obr        // g:=1.1175
 then
      found := TRUE
    else
      i := i + 1;


  until found=true; 


Ошибка скорее всего из-за a[i], но как тогда посчитать синусы при всех значениях a[i] ? Как это оформить ?