Name: Задание: Составить программу для подсчета значений функции:
Item: Задание: Составить программу для подсчета значений функции:
Author: NetSoftWare

Меню сайта

Поиск по сайту

Контакты

как написать программу заказ работы на Pascal Заказ работы на Delphi пишите вопросы по Delphi / Pascal ICQ 368-254-335

on-line Консультация Pascal/Delphi

Вконтакте

МТС Уфа +7 917 74 25 326 мой сайт //netsoftware.ucoz.ru

Наш опрос

Добавить

Календарь

Полезные ссылки

Автор динамически создаваемые Примеры работ публикатор Alpha. draw Обрисовка n-угольника рисуем квадрат рисуем треугольник рисуем шестиугольник Dlina Ugol векторное изображение Угол наклона Pascal ABC PascalABC. Firebird sql программа выполнения скриптов по ра delphi пересечение Одномерный массив Формирование массива в заданных диа Целочисленные массивы Элементы кратные числу Горячие клавиши в Delphi получаем IP адрес Получение слова из строки Процедура выравнивания регистров Спискок знаков препинания Преобразовать строку пример работы со строками cosh sinh tanh delphi заготовки delphi примеры работ Proxy прокси Combobox myInputbox Pascal Mod pascal mod операторы pascalб стандартные опера CSV CSV файл StringGrid TStringGrid задачи матрицы

Статистика

Архив записей

Число on-line

Поддержка сайта

Хотите помочь сайту (работой) пишите в аську или контакт

50 руб.

yandex 410011013695809
qiwi 9177425326
R132677785853

Главная » 2011 » Июль » 18 » Задание: Составить программу для подсчета значений функции:

21:56

Задание: Составить программу для подсчета значений функции:

процедура расчета функции

procedure TForm1.Button2Click(Sender: TObject);
   var a,y,dx,Xn,Xk,x:Extended;
   trow:integer;
begin
dx:=00;
    if trystrtofloat(edit1.text,xn) and trystrtofloat(edit2.text,xk) and trystrtofloat(edit3.text,dx) and (dx>0) and trystrtofloat(edit4.text,a) then begin // проверяем условие
    x:=xn;
    form1.StringGrid1.Cells[0,0]:='Значения X';
    form1.StringGrid1.Cells[1,0]:='Значения Y';
    form1.StringGrid1.RowCount:=round((xk-xn)/dx)+1;
    form1.Series1.Clear;
    form1.Series2.Clear;
    trow:=1;
       while x<Xk do begin
             x:=x+dx;
             if x<=0 then begin Y:=exp(x+a);
             form1.Series1.Addxy(x,y);
             end
              else begin Y:=ln(x*a);
              form1.Series2.Addxy(x,y);
              end;
             form1.StringGrid1.cells[0,trow]:=formatfloat('0.0000000000000',x);
             form1.StringGrid1.cells[1,trow]:=formatfloat('0.0000000000000',y);
             trow:=trow+1;

       end;
    end;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if ((key>'0') and (key<'9')) or (key=#8) or (key=',') or (key='-') then
else key:=#0;

end;


пример работы программы

программы можно загрузить по ссылки

Просмотров: 1241 | Добавил: NetSoftWare | Рейтинг: 5.0/1

Всего комментариев: 1

Порядок вывода комментариев:

1 NetSoftWare (12.04.2012 14:23)

http://netsoftware.ucoz.ru/download/grafik_funkcii.rar
правильная ссылка на проект

Delphi заготовки