Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: RadioGroup. Методы вычисления определенных интегралов  (Прочитано 4440 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Стася
Постоялец

ru
Offline Offline

« : 16-03-2009 19:39 » 

Код:
unit Unit11;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm11 = class(TForm)
    RadioGroup1: TRadioGroup;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit6: TEdit;
    Edit7: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Edit8: TEdit;
    Label5: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form11: TForm11;

implementation

{$R *.dfm}


function MethodPR(x:real):real;
begin
  MethodPR:=x*x;
end;


procedure TForm11.Button1Click(Sender: TObject);
Var i,n:integer;
    s,dx,a,b:real;
begin
a:=strtofloat(edit6.Text);
b:=strtofloat(edit7.Text);
n:=strtofloat(edit8.text);
dx:=(b-a)/n;
case RadioGroup1.ItemIndex of

0:   
begin
  for i := 1 to n do
    s:=dx*(s+MethodPR(a+dx*(i-1)));
end;

1:
begin
  for i := 1 to n do
    s:=dx*(s+MethodPR(a+dx*i));
end;

2:
begin
  for i := 1 to n do
    s:=dx*(s+MethodPR(a+dx*(i-0.5)));
end;

3:
begin
 for i := 1 to n do
   s:=0.5*dx*(s+MethodPR(a+dx*(i-1))+MethodPR(a+dx*i));
end;

4:
begin
  for i := 1 to n do
  s:=(dx*(s+dx*(s+MethodPR(a+dx*(i-1))+4*MethodPR(a+dx*(i-0.5))+MethodPR(a+dx*i))))/6;
end;
end;

end;

end.

Мне надо чтобы значения s, полученные для каждого метода, были в эдитах. Как это сделать.
Записан
Sla
Команда клуба

ua
Offline Offline
Пол: Мужской

WWW
« Ответ #1 : 17-03-2009 09:43 » 

а массивы еще никто не отменял
Записан

Мы все учились понемногу... Чему-нибудь и как-нибудь.
Стася
Постоялец

ru
Offline Offline

« Ответ #2 : 17-03-2009 14:04 » 

А зачем сюда массив?
Записан
Tuborg
Команда клуба

ee
Offline Offline

« Ответ #3 : 17-03-2009 18:01 » 

Наверное что нибудь вроде

Код:
str: String;
s: float

fprintf(str,"%f",s);
edit1.text:=str;
Записан
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines