[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

неет, надо определить сколько раз сработал таймер. например я включил таймер, в нём код программы, каждый раз время выполнения её разное. если использовать цикл, то можно былобы не париться и использовать переменная:=переменная+1; но с таймером такое не прокатывает.
короче надо узнать сколько раз сработал код программы в таймере.

 

Нужно вывести произведение первых 5 чётных чисел
Паскаль =)

"Program 10;
var i,n,s: Integer;
begin
write ('n=');
readln (n);
for i:= 1 to 5 do
if i mod 2 =0 then s:= s+i;
writeln ('Сумма чётных чисел от 1 до ',5,' равна ',s);
end."

Где тут ошибки ? =)

 

for i:= 1 to 5 do
У тебя i идет от 1 до 5. В этом интервале только 2 четных числа - 2 и 4
И пишешь что надо произведение, а сам сумму считаешь

 

Да, и еще не понятно, для чего здесь:

Code:

write('n=');
readln(n);

Ты ведь n нигде не используешь.
Также нужно присвоить начальное значение переменной s.

 

Ага всем спасибо большое) что-то я затупил с изучением поскаля)
Первая моя задача по паскалю закончилась)

Вдруг кому нужно будет

 

как в Edit можно засунуть кнопку или картинку типа как в WebMoney??

 

это где у них такое?

 

Code:

  Image.Parent := Edit;
  Image.Left := 0;
  Image.Top := 0;

 

Что у тебя там не получилось? Кинь код, у меня все работает.

 

Code:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.tag:=Timer1.tag+1;
Form1.caption:=IntToStr(Timer1.tag);
end;

 

Мсье знает толк в извращениях

 

090808, большое спасибо! то что надо!

 

Delphi
Как называется такая штука и как её сделать



Я думал "Всплывающая подсказка" но нет

 

с помощью CoolTrayIcon можно наподобие этого сделать.

 

Это то что нужно, но....
Я открываю
CoolTray\demos\CoolTrayTest\CoolTrayTest.dpr



Жму игнор
Открывается форма, всё норм, хочу запустить



Ну жму No

Жму Yes, тоже самое

Где найти этот класс TCoolTrayIcon и куда его установить или пихнуть или прописать или чё с ним делать
===============
Нащёл install.txt пойду изучать
Вааааааааааа!11 Рабооотаееееттт111
Пляске пляске!11

 

Качаешь CoolTrayIcon. Открываешь CoolTrayIcon_D6plus.dpk и жмешь install. Ну и потом делаешь что хочешь

 

Это BalloonHint в cooltrayicon.

 

Да там я разобрался...
Другая трабла, у мя есть .ico иконка
Project - Options - Load Icon
Она загружается в прогу, всё норм
Но когда я хочу запустить прогу...

Как иконка может вызывать такие ошибки

 

Подскажите, пожалуйста, как на языке паскаля записать вот эти формулы:

y=корень квадратный(1-0,1sin^2 фи)

y=log(5снизу)х / корень квадратный(x) - 1

 

квадратный корень = sqrt(x)
синус = sin(x)
А вот фи это я хз чё такое