|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
23.05.2013, 17:04 | #1 |
Новичок
Джуниор
Регистрация: 23.05.2013
Сообщений: 2
|
Проблема с переменной в Делфи
1) Была задана тестирующая программа.
2) Выдает ошибку: [Error] Unit1.pas(47): Undeclared identifier: 'i' 3) код: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Edit1: TEdit; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; Button1: TButton; procedure Button1Click(sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(sender: TObject); var a,b,c,d,verno, zapor, i:Integer; sms1, sms2, sms3, sms4:string; begin verno:=0; zapor:=0; end; begin for i:=0 to 26 do begin a:=RandomRange(-1000,1000); b:=RandomRange(-1000,1000); c:=a+b; if (a<0) then sms1:= '('+ FloatToStr(a) + ')' + '+' + FloatToStr(b)+'='; if (b<0) then sms1:= FloatToStr(a) + '+' + '(' + FloatToStr(b) + ')' + '='; if (a<0) and (b<0) then sms1:= '(' + FloatToStr(a)+ ')' + '+' + '('+ FloatToStr(b)+')' + '='; if (a>=0) and (b>=0) then sms1:= FloatToStr(a)+ '+' + FloatToStr(b)+ '='; Form1.Label2.Caption:=sms1; d:= strToFloat(Form1.Edit1.Text); if (d=c) then verno:=verno+1; if (d<>c) then begin zapor:=zapor+1; sms2:='Âíèìàíèå! Îøèáêà! Ó âàñ óæå' + FloatToStr(zapor) + 'îø.'; Form1.Label3.Caption:=sms2; end; end; |
23.05.2013, 17:16 | #2 |
Старожил
Регистрация: 20.04.2008
Сообщений: 5,528
|
Код:
программа — запись алгоритма на языке понятном транслятору
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Проблема с переменной | BAH--zer | Общие вопросы по Java, Java SE, Kotlin | 0 | 31.10.2011 09:22 |
Проблема с переменной | Adblock | PHP | 8 | 16.01.2011 20:02 |
Проблема с глобальной переменной | HollyPaladin | Общие вопросы C/C++ | 4 | 08.10.2010 12:06 |
проблема с переменной | PUSHkiN | Общие вопросы .NET | 1 | 13.08.2010 14:50 |
Необходимо вытыщить значение переменной из Ява скрипта формируемого в Делфи | Ekushenko | Помощь студентам | 2 | 12.03.2010 04:32 |