Как вычислить значение функции

← →
Оля85 © (2003-10-05 22:01) [0]

Как вычислить значение функции z=sin(sqr(i)+1)/n при sin(sqr(i)+1)/n>0; z=cos(i+1)/n при sin sqr(i)+1)/n<0 при изменении аргумента i в диапазоне [1;10] с шагом 1 , и вывести значения i и z в виде таблицы? Я не знаю как сделать задание в виде таблицы и использовать шаг?

← →
Aldor © (2003-10-23 21:18) [1]

Для вывода в таблицу можно использовать компонент TStringGrid.
Его ячейки - строки. Чтобы перевести число в строку, нужно использовать функцию FloatToStr (если число вещественное).
А так как шаг у вас равен единице, то можно использовать простой цикл for (в противном случае необходимо использовать цикл while):
var I: Integer; begin for I := 1 to 10 do begin //... end; end;

Удачи!

Как вычислить значение функции Найти похожие ветки