как сделать переменные локальными

alena4227 · #1 24.09.2011, 17:41

Код:

unit lena42277777;

interface

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

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    StringGrid3: TStringGrid;
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;a1,a2,a3,max:real;
c,r,max1,c1,r1:integer;
  a4,a5:real;


implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
StringGrid1.Cells[0,0]:='Prognoz firmi';
StringGrid1.Cells[1,0]:='Blagopriyatnij';
StringGrid1.Cells[2,0]:='NeBlagopriyatnij';
StringGrid1.Cells[0,1]:='Blagopriyatnij';
StringGrid1.Cells[0,2]:='NeBlagopriyatnij';
StringGrid1.Cells[3,0]:='Veroyatnoct';

StringGrid1.Cells[1,1]:='0,78';
StringGrid1.Cells[2,1]:='0,22';
StringGrid1.Cells[3,1]:='0,45';
StringGrid1.Cells[1,2]:='0,27';
StringGrid1.Cells[2,2]:='0,73';
StringGrid1.Cells[3,2]:='0,55';

StringGrid2.Cells[0,0]:='a1';
StringGrid2.Cells[1,0]:='a2';
StringGrid2.Cells[2,0]:='a3';
StringGrid3.Cells[1,0]:='Blagopriyatnij';
StringGrid3.Cells[2,0]:='NeBlagopriyatnij';
StringGrid3.Cells[0,1]:='a1';
StringGrid3.Cells[0,2]:='a2';
StringGrid3.Cells[0,3]:='a3';

Edit7.Text:='25000';

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
a1:=0.5*StrToInt(Edit1.text)+0.5* StrToInt(Edit4.text);
StringGrid2.Cells[1,1]:=FloatToStr(a1);
a2:=0.5*StrToInt(Edit2.text)+0.5* StrToInt(Edit5.text);
StringGrid2.Cells[2,1]:=FloatToStr(a2);
a3:=0.5*StrToInt(Edit3.text)+0.5* StrToInt(Edit6.text);
StringGrid2.Cells[3,1]:=FloatToStr(a3);

StringGrid3.Cells[1,1]:=FloatToStr(StrToInt(Edit1.text)*
 StrToFloat(StringGrid1.Cells[1,1])+StrToInt(Edit4.text)*
  StrToFloat(StringGrid1.Cells[2,1]));
StringGrid3.Cells[1,2]:=FloatToStr(StrToInt(Edit2.text)*
 StrToFloat(StringGrid1.Cells[1,1])+StrToInt(Edit5.text)*
  StrToFloat(StringGrid1.Cells[2,1]));
StringGrid3.Cells[1,3]:=FloatToStr(StrToInt(Edit3.text)*
 StrToFloat(StringGrid1.Cells[1,1])+StrToInt(Edit6.text)*
  StrToFloat(StringGrid1.Cells[2,1]));

StringGrid3.Cells[2,1]:=FloatToStr(StrToInt(Edit1.text)*
 StrToFloat(StringGrid1.Cells[1,2])+StrToInt(Edit4.text)*
 StrToFloat(StringGrid1.Cells[2,2]));
StringGrid3.Cells[2,2]:=FloatToStr(StrToInt(Edit2.text)*
 StrToFloat(StringGrid1.Cells[1,2])+StrToInt(Edit5.text)*
 StrToFloat(StringGrid1.Cells[2,2]));
StringGrid3.Cells[2,3]:=FloatToStr(StrToInt(Edit3.text)*
 StrToFloat(StringGrid1.Cells[1,2])+StrToInt(Edit6.text)*
  StrToFloat(StringGrid1.Cells[2,2]));

  end;
procedure TForm1.Button3Click(Sender: TObject);

begin
max:=0;
for c:=1 to StringGrid2.ColCount-1 do
for r:=1 to StringGrid2.RowCount-1 do
if StrToInt(StringGrid2.Cells[c,r])>max then max:=StrToInt(StringGrid2.Cells[c,r]);
Edit8.Text:=FloatToStr(max);
max1:=0;
for r1:=1 to StringGrid3.RowCount-1 do
if StrToInt(StringGrid3.Cells[1,r1])>max1 then max1:=StrToInt(StringGrid3.Cells[1,r1]);
a4:=max1;
Edit9.Text:=FloatToStr(a4);
max1:=0;
for r1:=1 to StringGrid3.RowCount-1 do
if StrToInt(StringGrid3.Cells[2,r1])>max1 then max1:=StrToInt(StringGrid3.Cells[2,r1]);
a5:=max1;
Edit10.Text:=FloatToStr(a5);
Edit11.Text:=FloatToStr(a4*StrToFloat(StringGrid1.Cells[3,1])+a5*StrToFloat(StringGrid1.Cells[3,2])-StrToInt(Edit7.Text));
if StrToFloat(Edit8.Text)> StrToFloat(Edit11.Text){max=StrToFloat(Edit8.Text)} then Memo1.Lines[0]:='Не стоит проводить дополнительные исследования,прибыль='+ Edit8.text
else Memo1.Lines[0]:='Стоит проводить дополнительные исследования,прибыль='+ Edit11.text;
end;

end.

Почему не работает программа???как сделать переменные локальными?

ChinYan · #2 24.09.2011, 18:01

А по-русски?
Что понимается под "не работает"? Как она должна работать?
Какие переменный нужно сделать локальными и где их нужно локализовать?

Delphist · #3 24.09.2011, 19:48

Подучите типы данных на досуге!!! (Помогает).
переменные в том же месте только вот так:

Код:

var
  Form1: TForm1;
  a1,a2,a3,max,max1:real;
c,r,c1,r1:integer;
a4,a5:real;

ииииии по button3

Код:

max:=0;
for c:=1 to StringGrid2.ColCount-1 do
for r:=1 to StringGrid2.RowCount-1 do
if StrToFloat(StringGrid2.Cells[c,r])>max then max:=StrToFloat(StringGrid2.Cells[c,r]);
Edit8.Text:=FloatToStr(max);
max1:=0;
for r1:=1 to StringGrid3.RowCount-1 do
if StrToFloat(StringGrid3.Cells[1,r1])>max1 then max1:=StrToFloat(StringGrid3.Cells[1,r1]);
a4:=max1;
Edit9.Text:=FloatToStr(a4);
max1:=0;
for r1:=1 to StringGrid3.RowCount-1 do
if StrToFloat(StringGrid3.Cells[2,r1])>max1 then max1:=StrToFloat(StringGrid3.Cells[2,r1]);
a5:=max1;
Edit10.Text:=FloatToStr(a5);
Edit11.Text:=FloatToStr(a4*StrToFloat(StringGrid1. Cells[3,1])+a5*StrToFloat(StringGrid1.Cells[3,2])-StrToInt(Edit7.Text));
if StrToFloat(Edit8.Text)> StrToFloat(Edit11.Text){max=StrToFloat(Edit8.Text) } then Memo1.Lines[0]:='Íå ñòîèò ïðîâîäèòü äîïîëíèòåëüíûå èññëåäîâàíèÿ,ïðèáûëü='+ Edit8.text
else Memo1.Lines[0]:='Ñòîèò ïðîâîäèòü äîïîëíèòåëüíûå èññëåäîâàíèÿ,ïðèáûëü='+ Edit11.text;

ОК???

M.A.D.M.A.N. · #4 24.09.2011, 19:48

Какой ужасный и непонятный код. Присоединяюсь к предыдущему сообщению, что все же должна делать софтина?
Ошибка в этой строчке:

Код:

unit lena42277777;

chainik · #5 24.09.2011, 19:51

рад помоь.
только не знаю чем
пожалуйста подробнее о своих трудностях

Delphist · #6 24.09.2011, 19:54

А вот ребята и не угадали!!!!)))) Она пытается к Real'овским значением прикрепить Integer'овские

Код:

max:=StrToInt(StringGrid2.Cells[c,r])

ChinYan · #7 24.09.2011, 20:31

И? Real нормально относится когда в него Integer пишут. Короче, пока не будет ясно как работает сейчас и как должно, помочь не удастся
Меня терзают жуткие сомнения. Курсовая?

chainik · #8 24.09.2011, 20:39

Думаю что сообща поможем.
Пожалуйста подробнее что должна делать прога

chainik · #9 24.09.2011, 20:41

для курсовой жидковато.....
Или сейчас это норма?

ChinYan · #10 24.09.2011, 20:43

Это может быть не единственное задание. В тех, что нам дали в прошлом году - задача простая, но в 6и вариантах. Делфи был одним из них. Вот меня и терзают сомнения

Delphist · #11 24.09.2011, 21:24

Цитата:

Сообщение от ChinYan

И? Real нормально относится когда в него Integer пишут. Короче, пока не будет ясно как работает сейчас и как должно, помочь не удастся
Меня терзают жуткие сомнения. Курсовая?

Так то оно так, но есть одно НО Real это вещественное значение и его перевод из строки осуществляется по StrToFloat, а StrToInt он для целочисленных.
Вот и из за этого у нее и ошибочка вышла! А так все робит!

angvelem · #12 24.09.2011, 21:37

Тяжеловато Дельфи понять, что хочет программист, когда в одном месте для вещественных чисел в качестве десятичного разделителя применяется точка, а в другом запятая.

Код:

  StringGrid1.Cells[1,1]:='0,78';

Код:

a1:=0.5*StrToInt(Edit1.text)+0.5* StrToInt(Edit4.text);

Опции темы	Поиск в этой теме
Версия для печати Отправить на Email	Поиск в этой теме: Расширенный поиск
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

	Сайт	Форум	FAQ	Соглашения	Прочее
	Новости Исходники Компоненты Статьи Добавить исходник Поиск	Правила Поиск Сообщения за сегодня Пользователи Кто на форуме?	Delphi FAQ - 5000 статей DRKB - 4500 статей (ZIP-архив) Справочник функций и процедур Delphi Delphi Programming Guide Indy in Depth. Глубины Indy	Конфиденциальность Соглашение пользователя Правила обработки cookie	О сайте Donate Контакты