Вниз  Pascal
- 27.09.2013 / 14:25
Askalite
  Пользователь

Askalite 
Сейчас: Offline
эм. каково фига delay(61010)=1 секунда?
- 27.09.2013 / 14:38
Helltar
  Пользователь

Helltar 
Сейчас: Offline
  1. Sleep(1000);
  2. Delay(1000);

- 27.09.2013 / 17:11
Bogdan-G
  Пользователь

Bogdan-G 
Сейчас: Offline
Helltar, т.е. засыпания не будет?
- 27.09.2013 / 17:46
Helltar
  Пользователь

Helltar 
Сейчас: Offline
Bogdan-G, эммм... ват?
- 28.09.2013 / 11:32
St@SyaN
  Пользователь

St@SyaN 
Сейчас: Offline
Askalite (27.09.2013/14:25)
эм. каково фига delay(61010)=1 секунда?
Баг турбопаскаля для процессоров, чья тактовая частота выше 200 мГц
- 7.10.2013 / 18:53
NIKO
  Пользователь

NIKO 
Сейчас: Offline
Вот столкнулся с маленькой проблемкой. Никак не пойду в чем проблема. Столкнулся с ней ещё в университете, но потом всё удалил и решил что напишу дома, на свежую голову, после сна :gg: Но что-то оно так и продолжает матюкатся, я уже хз в чём беда.


Прикрепленные файлы:
Screenshot_4.png (34.68 кб.) Скачано 144 раза
- 7.10.2013 / 19:05
Helltar
  Пользователь

Helltar 
Сейчас: Offline
NIKO, эммм...

  1. var
  2.   nameTrue, nameFalse: String;
  3.   years, myNumb: Integer;
  4.  
  5. begin
  6.   nameTrue:= 'Yarik';
  7.   nameFalse:= 'NeYarik';
  8.   years:= 19;
  9.   myNumb:= 17;
  10.  
  11.   if years >= myNumb then WriteLn('nameTrue')
  12.   else
  13.     WriteLn('nameFalse');
  14.  
  15.   ReadLn;
  16. end.

- 7.10.2013 / 19:09
NIKO
  Пользователь

NIKO 
Сейчас: Offline
Helltar, спасибо :)
- 7.10.2013 / 19:11
Helltar
  Пользователь

Helltar 
Сейчас: Offline
Или:

  1. var
  2.   nameTrue: String = 'Yarik';
  3.   nameFalse: String = 'NeYarik';
  4.   years: Integer = 19;
  5.   myNumb: Integer = 17;
  6.  
  7. begin
  8.   if years >= myNumb then WriteLn('nameTrue')
  9.   else
  10.     WriteLn('nameFalse');
  11.  
  12.   ReadLn;
  13. end.

- 7.10.2013 / 19:18
NIKO
  Пользователь

NIKO 
Сейчас: Offline
Зачем в конце ReadLn; ?
Наверх  Всего сообщений: 540
Фильтровать сообщения
Поиск по теме
Файлы топика (22)