Форум: "Начинающим";
Текущий архив: 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.044 c