Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2006.06.04;
Скачать: [xml.tar.bz2];

Вниз

Help Pls!!!!!!!!!!!!!!!!!!!!!!!!!   Найти похожие ветки 

 
delta123 ©   (2006-05-18 22:58) [0]

Ya ne mogu ponyat" pochemu ne obrabatuvaetsya strochka d:=a-b+c;

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c,d:word;
begin
 for a := 0 to 10 do
 begin
   for b := 11 to 20 do
   begin
     for c := 21 to 30 do
         begin
         d:=a+b+c;
         end;
         d:=a-b+c;
   end;
 end;
end;


 
Джо ©   (2006-05-18 22:59) [1]

А какой смысл ей выполняться? Переменная d нигде дальше в коде не используется.


 
Desdechado ©   (2006-05-18 23:00) [2]

оптимизатор выкинул по причине [1]


 
delta123 ©   (2006-05-18 23:04) [3]

A kak zdelat" chtobi on obrabotal atu strochku?


 
Джо ©   (2006-05-18 23:12) [4]

> [3] delta123 ©   (18.05.06 23:04)
> A kak zdelat" chtobi on obrabotal atu strochku?

Отключить оптимизатор в опциях проекта. Только зачем?


 
Галинка ©   (2006-05-18 23:30) [5]

Где ты используешь значение переменной d, может ее надо вынести за процедуру? В глобальные переменные?


 
DevilDevil ©   (2006-05-18 23:46) [6]

> delta123 ©   (18.05.06 23:04) [3]

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c,d:word;
begin
for a := 0 to 10 do
begin
  for b := 11 to 20 do
  begin
    for c := 21 to 30 do
        begin
        d:=a+b+c;
        end;
        d:=a-b+c;
  end;
end;
Caption := IntToStr(d);
end;



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.06.04;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.046 c
15-1146814708
Ega23
2006-05-05 11:38
2006.06.04
С Днём рождения! 4 мая


15-1146992019
ArtemESC
2006-05-07 12:53
2006.06.04
Одним сравнением проверить корректность даты..


3-1144697998
dyd
2006-04-10 23:39
2006.06.04
Почему не обновляется база данных


2-1147720988
Firefly
2006-05-15 23:23
2006.06.04
web-страницы


2-1147807881
Mr tray
2006-05-16 23:31
2006.06.04
позиция каретки имея только хендл поля ввода





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский