|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Проверка написания кода
Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Memo1: TMemo; Button1: TButton; Button2: TButton; Button3: TButton; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; procedure Button1Click(Sender: TObject); procedure Edit1Change(Sender: TObject); procedure Edit3Change(Sender: TObject); procedure Edit4Change(Sender: TObject); procedure Edit2Change(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var x1,x2,N,i : integer; m , a, h, y, x : real; result : array [1.. 10] of real; begin a:=StrToFloat(Edit4.Text); x:=x1; // Вычисление шага функции h:=(x2-x1)/N; begin Memo1.Lines.Add(FloatToStr(y)); x:=x+h; end; end; procedure TForm1.Button2Click(Sender: TObject); var y,i,a,x,h:real;begin begin y:= sqrt(3*x+4*a*x)/10/a; Memo1.Lines.Add(FloatToStr(y)); x:=x+h; end; end; procedure TForm1.Button3Click(Sender: TObject); begin close; end; procedure TForm1.Edit1Change(Sender: TObject); Var x1:real;begin x1:=StrToInt(Edit1.Text); end; procedure TForm1.Edit2Change(Sender: TObject); Var x2:real;begin x2:=StrToInt(Edit2.Text); end; procedure TForm1.Edit3Change(Sender: TObject); var h,N, x2,x1 :real;begin N:=StrToInt(Edit3.Text); h:=(x2-x1)/N; end; procedure TForm1.Edit4Change(Sender: TObject); var a:real;begin a:=StrToFloat(Edit4.Text); end; end. Посмотрите пожалуйста код по заданию, и исправьте если что не так, он вроде бы считает все но как мне кажется не правильно как то .. вот задание.... Выполнить табулирование функции на отрезке от хнач до хкон с шагом h=Хнач-Хкон/N. Величины хнач , хкон , число точек N и параметр a вводить из однострочных полей редактирования. При нажатии на кнопку «Вычислить» произвести вычисления в точках отрезка, отстоящих друг от друга на шаг h. Результаты вычислений занести в одномерный массив результатов. При нажатии на кнопку «Вывод f(x)» вывести значения массива результатов в многострочное редактируемое поле Memo. При нажатии на кнопку «Выход» завершить работу приложения. Произвести табулирование для фукции:Корень квадратный,в нем дробь(3x+4ax)\10a Последний раз редактировалось Admin, 13.10.2011 в 17:56. |