Как вычислить значение функции
Оля85 © (2003-10-05 22:01:00)
Как вычислить значение функции 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:00) [1]
Для вывода в таблицу можно использовать компонент TStringGrid.
Его ячейки - строки. Чтобы перевести число в строку, нужно
использовать функцию FloatToStr (если число вещественное).
А так как шаг у вас равен единице, то можно использовать
простой цикл for (в противном случае необходимо использовать цикл
while):
var
I: Integer;
begin
for I := 1 to 10 do
begin
//...
end;
end;
Удачи!
Наверх 
ЧАТ |
Орешник |
|
