Табулирование функции на заданном отрезке

31.10.2012, 19:29. **Показов** 1303. **Ответов** 4

Author24 — интернет-сервис помощи студентам

Задание звучит так: Табулирование функции y=sin(lnx)-cos(lnx)+2lnx
на отрезке [1;3] с шагом 0,2
Сделала так

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var a,b,h,x,y: real;
begin
   a:=strtofloat(edit1.text);
   b:=strtofloat(edit2.text);
   h:=strtofloat(edit3.text);
   memo1.clear;
   memo1.lines[0]:='   x   |   y   ';
   memo1.lines.add('-------------');
   x:=a;
   while (x<=b) do
   begin
     y:=sin(ln(x))-cos(ln(x))+2*ln(x);
     memo1.lines.add(floattostrf(x,fffixed,10,2)+'  |  '
     +floattostrf(y,fffixed,10,2));
     x:=x+h;
     end;
end;
end.

Но почему то, работает некорректно (((. Выдает всего три значения х (0,20;1,20;2,20) вместо 11 нужных значений, причем начинаться должно с 1 и заканчиваться 3. Что не так???

@taras atavin · 31.10.2012, 19:36

Пользуйся языкастыми тегами.

Одиночка · 31.10.2012, 20:31

Colibri: У меня ваш код нормально работает. Либо данные ввели не правильно, либо в другом месте проблема.

Добавлено через 6 минут
Выкладывайте проект в архиве - посмотрим, что там не так.

Модераторы, а чего через 6 минут я уже не мог редактировать сообщение?

Памирыч · 01.11.2012, 08:50

Не по теме:

Сообщение от Одиночка

Модераторы, а чего через 6 минут я уже не мог редактировать сообщение?

Интервал снижен до 5 минут

01.11.2012, 14:27

Всем спс, нашла ошибку. Ячейки ввода Edit1 Edit3 не там стояли. Получалось, что я в шаг функции вписывала значение а и наоборот

)))

@taras atavin 4226 / 1795 / 211 Регистрация: 24.11.2009 Сообщений: 27,562
	31.10.2012, 19:36	2
	Пользуйся языкастыми тегами. 0

Одиночка 3944 / 1869 / 337 Регистрация: 16.03.2012 Сообщений: 3,880
	31.10.2012, 20:31	3
	Colibri: У меня ваш код нормально работает. Либо данные ввели не правильно, либо в другом месте проблема. Добавлено через 6 минут Выкладывайте проект в архиве - посмотрим, что там не так. Модераторы, а чего через 6 минут я уже не мог редактировать сообщение? 0

Памирыч
	01.11.2012, 08:50 #4
	Не по теме: Сообщение от Одиночка Модераторы, а чего через 6 минут я уже не мог редактировать сообщение? Интервал снижен до 5 минут 1

Colibri
	01.11.2012, 14:27	5
	Всем спс, нашла ошибку. Ячейки ввода Edit1 Edit3 не там стояли. Получалось, что я в шаг функции вписывала значение а и наоборот )))