Помощь начинающему

[saymonRK]

Здравствуйте нужна помошь
что делает программа ,а лучше напишите условия задачи.
заранее благодарен
Begin
c:=2;
s:=0;
for n:=1 to 50 do
begin
с:=6-с;
у:=n/(100+n);
s:=s+с*у;
end;
s:=s+0.5;
writeln(’I = ’, s/300.0);
readln;
End.

[Kitayets]

программа 50 раз вычисляет выражения в цикле, после чего добавляет к S ещё ноль-пять и выводит на экран одну трёхсотую этого значения.

[Leon]

Прошу знатоков подсказать как сделать.Есть 20 фигур,которы нужно перекрасить другим цветом.
Рутинным способом это довольно заморочливая процедура,прописывать каждому шейпу свой цвет.
В других языках я встречал возможность создания так называемых "подставных имен",т.е. имя объекта формируется динамически.Что я имею ввиду?
Ну вот посмотрим.Требуется всем 20 шейпам дать красный цвет.Пишем последовательно
Shape1.Canvas,Color:=clRed;
...
Shape20.Canvas,Color:=clRed;

А было бы неплохо если бы работала конструкция
for N:=1 to 20 do
ShapeN.Canvas.Color:=clRed;

ShapeN - то самое подставное имя,заменяющее Shape1,Shape2...

В Лазарусе что-то такое возможно или это абсурд?
Как выйти из положения? Или писать классически все команды подряд?
Спасибо.

[Mr.Smart]

Код: Выделить всё

var
  Shapes: array [0..X] of TShape;
...
  Shapes[0]:=Shape1;
...
  Shape[X]:=ShapeX;
...

  for N:=1 to X do
   Shapes[N].Canvas.Color:=clRed;


[Little_Roo]

А было бы неплохо если бы работала конструкция
for N:=1 to 20 do
ShapeN.Canvas.Color:=clRed;

У меня так в проекте (выдернул не изменяя, ну принцип, думаю, понятен )

Код: Выделить всё

var
  i: integer;
  Lab: TComponent; 
...........
  for i := 1 to 375 do
  begin
    Lab := FindComponent('DBO' + IntToStr(i)); // DBO1..DBO375 - это DBEdit`ы
    if (Lab as TDBedit).Text = '2' then
      (Lab as TDBedit).Color := $00d7d7d7
    else
      (Lab as TDBedit).Color := clWindow;
  end;


[Leon]

Добрый день.
Прошу знатоков откликнуться и прояснить ситуацию.
1.Мне в проге понадобилось сунуть календарь.Сунул.Ну а там названия месяцев русские.Можно ли как-то поменять их на национальные или это уже фатально?
2.То ли с моим Лазарусом что-то,то ли баги.В кнопках есть пунктик Сolor и там стоит Default.Меняй его на кой хош,всеравно кнопка серая.Зачем нужен этот самый Колор?
Кроме того надписи на кнопках постоянно черные и изменение цвета фонта ничего не дает.Может я что-то не так делаю?
Спасибо.

[nikolay61]

Доброго всем кто не спит! В проге Фри что-то нажал и курсор вместо черточки стал пульсирующий желтый прямоугольник, который при введении символов стирает ранее вводимые по ходу своего движения. Как вернуть его на черточку.

[Oleg_D]

Как вернуть его на черточку.

Нажать клавишу Insert - она переключает ввод между режимами вставки и замены.

[OberonAR]

[nikolay61]

ОК! Четко работает. Благодарю и будьте здоровы

[nikolay61]

Доброго! О чем говорит это сообщение об ошибке построчно http://img-fotki.yandex.ru/get/6410/104 ... c43_XL.jpg
На что нужно обращать особое внимание, чтобы найти место ошибки непосредственно в програме. И еще: как непосредсвенно у форум вставить рисунок, чтобы не через ссылку?
Спасибо!

[Vadim]

На что нужно обращать особое внимание, чтобы найти место ошибки непосредственно в програме.

У Вас там в нижнем (зелёном) окошке написано:
dua.pas(11,4)
это значит, что ошибка произошла в 11 строке, четвёртый символ слева. Если щёлкнуть мышкой по этой строчке в зелёном окошке, то в основном окне курсор перейдёт как раз на место ошибки и строка ошибки выделится красным цветом.
Чтобы исправить ошибку, нужно смотреть на описание ошибки, которое идёт после скобок (11,4):
Fatal: Syntax error, ";" expected but "ELSE" found.
Что переводится как:
Fatal - ошибка фатальная, дальнейшая компиляция невозможна,
Syntax error - синтаксическая ошибка, т.е. учительница по Вашему родному языку обязательно выделит это место красным цветом и зачеркнёт.
Далее, описано в чём именно заключается синтаксическая ошибка:
После ";" непонятно почему найдено слово "ELSE".

Исправляйте.

[nikolay61]

А у меня еще проблема. После нажатия ВЫПОЛНИТЬ, открывается окно результатов и длительное время (сек 10-15) приходится ждать пока появится введенное число. Ощущение торможения. А когда цифры появились, следующий ввод и вывод результата реагирует мгновенно. Что за проблема?

Добавлено спустя 2 минуты 58 секунд:
Вы пишете Если щёлкнуть мышкой по этой строчке в зелёном окошке, то в основном окне курсор перейдёт как раз на место ошибки и строка ошибки выделится красным цветом. А у меня это не работает.

Добавлено спустя 6 минут 57 секунд:
Как сохранить файл в .exe

[Paster Fob]

как непосредсвенно у форум вставить рисунок, чтобы не через ссылку?

Вот так:
1.Нажми сюда.
2.Вставь ссылку между тегов.

[Vadim]

Paster Fob
Только это не Vadim спрашивал.

Добавлено спустя 4 минуты 43 секунды:

Вы пишете Если щёлкнуть мышкой по этой строчке в зелёном окошке, то в основном окне курсор перейдёт как раз на место ошибки и строка ошибки выделится красным цветом. А у меня это не работает.

Тогда пользуйтесь клавишами со стрелками. На рисунке у Вас окно с ошибками активно, значит используя клавиши со стрелкой вверх(или вниз) переходите на то сообщение об ошибке, которое Вас категорически заинтересовало и нажимаете клавишу ENTER. После этого в основном окне с кодом курсор начинает мигать именно в этой позиции, где ошибка.

Добавлено спустя 3 минуты 55 секунд:

Как сохранить файл в .exe

Это называется не "сохранить", а "откомпилировать код программы".
С помощью нажатия клавиши F9.
Клавишы Ctrl+F9 запускает программу на выполнение.