Вниз  Pascal
<< 1 ... 10 11 12 13 14 ... 54 >>
- 15.03.2012 / 22:09
#150941
miha-23d
  Пользователь
miha-23d 
Сейчас: Offline
bogdan-g, ага через label работает) только комп вешает) помню на паре написал прогу которая выводит бесконечные разноцветные смайлики и цп на 100 % грузит.. спасал ctrl+alt+delete :-D
- 16.03.2012 / 00:34
#150951
Maxxxl123
  Пользователь
Maxxxl123 
Сейчас: Offline
bogdan-g, В турбе все ок, но меня мидлет интересует
- 7.04.2012 / 17:19
#156224
bogdan-g
  Пользователь
bogdan-g 
Сейчас: Offline
miha-23d, ну есть пауза, и можно 10.5гб флудфайл за 5мин :-D
- 15.04.2012 / 20:07
#157465
FlyMove
  Пользователь
FlyMove 
Сейчас: Offline
Как можно через каждое значение 100 прибавлять +1.Например if a:=100 then y:=y+1; if a:=200 then y:=y+1;
- 15.04.2012 / 20:10
#157466
aNNiMON
  Супервизор
aNNiMON 
Сейчас: Offline
FlyMove, if a mod 100 = 0 then inc(y);
__________________
 let live
- 15.04.2012 / 20:14
#157468
FlyMove
  Пользователь
FlyMove 
Сейчас: Offline
aNNiMON (15.04.2012/20:10)FlyMove, if a mod 100 = 0 then inc(y);Спасибо чувак, ты герой!
- 19.04.2012 / 18:51
#158044
FlyMove
  Пользователь
FlyMove 
Сейчас: Offline
Вот написал по ИКТ программу для вычисления "Суммы всех четных чисел".
Такой вариант норм?
  1. var
  2. sum,timer,num: longint;
  3. begin
  4. write('Vvedite chetnoe chislo ');
  5. readln(num);
  6. timer:=2;
  7. while (timer<=num) do
  8. begin
  9. sum:=sum+timer;
  10. timer:=timer+2;
  11. end;
  12. writeln('Otvet: ',sum);
  13. end.
Или есть метод по проще?
- 19.04.2012 / 19:08
#158046
Freddy
  Пользователь
Freddy 
Сейчас: Offline
FlyMove, вообще - есть, задача решается без цикла: http://google.ru/search?q=сумма+арифметической+прогрессии
- 19.04.2012 / 19:19
#158047
XakepPRO
  Модератор форума
XakepPRO 
Сейчас: Offline
Freddy, :lol: :apl:
FlyMove, математикой в школе занимался? Девятый класс вторая четверть.
- 19.04.2012 / 19:25
#158049
Freddy
  Пользователь
Freddy 
Сейчас: Offline
XakepPRO, да, и сейчас занимаюсь в универе, на такую уж специальность попал, хоть и факультет компьютерных наук :)
<< 1 ... 10 11 12 13 14 ... 54 >>
Наверх  Всего сообщений: 540
Фильтровать сообщения
Поиск по теме
Файлы топика (22)