А какой у вас был НЕ первый Hello World?

← →
Real © (2007-05-21 23:48) [0]

На мысль натолкнула ветка про хело ворлд, а именно: какая у вас была первая программа, которая более-менее из себя что-то представляла? В качестве критерия можно взять например такой "не стыдно было показать другим со словами, "это я сам написал" :) Ну вообщем, кто что написал первое из неучебных практикумов? А если сохранилась эта программа, хватит ли самокритики ее показат? :)

о себе - первая программа, хорошо помню: GWBasic (z80, OS: CP/M), программа теста (психологического: вопрос два варианта ответа "да", "нет"). Писалась где то после нескольких месяцев изучения языка, основные операторы - INPUT и PRINT. Исходник к глубочайщему сожалению не сохранился. Помню только что я тогда даже не знал команды SAVE и после написания не выключал компьютер пару суток, проверяю работу программы :)

← →
turbouser © (2007-05-21 23:54) [1]

> Real © (21.05.07 23:48)

Первая - организация учета полисов по ДМС... Кривая была жутко...
Хелло ворлд, однако :)
Юзеры плевались, потом доработал и пошло, поехало...

← →
turbouser © (2007-05-21 23:55) [2]

Автор, а от тебя будут откровения? :)

← →
Knight © (2007-05-21 23:59) [3]

Справочник телефонный по районной АТС&#133 до сих пор пользуют по всем городам и деревням которые в него входят&#133 хоть и устарел давным давно :)

← →
Eraser © (2007-05-22 00:01) [4]

вот нашел а папке "антиквар" одни из первых тварений ))

uses crt; label a1; var a:file of string; s,t,n,d,c,g,x:string; num,p,q,v,z:integer; {$I testf.pas} procedure f1(o:string); begin writeln("Запись найдена."); writeln(o); writeln("Нажмите <Enter>."); readln; end; begin a1: clrscr; textcolor(10); gotoxy(15,1); writeln("Телефонная книжка Alex""a."); gotoxy(15,2); writeln("Alex company(a)."); delay(3000); if testf("name.dat") then begin textcolor(red); writeln("Отсутствует файл-компонент программы Name.dat!!!"); delay(5000); textcolor(15); writeln("Создать этот компонент ???"); writeln("1-Да, 2-Нет."); gotoxy(1,6); write("Ответ: "); readln(x); if x="1" then begin assign(a,"name.dat"); rewrite(a); close(a); goto a1; end; if x="2" then halt else begin gotoxy(1,6); write("Недопустимое значение !!!"); delay(5000); halt; end; end; gotoxy(1,4); textcolor(15); writeln("1.Новая запись."); writeln("2.Поиск номера по фамилии."); writeln("3.Поиск фамилии по номеру."); writeln("4.Редактирование записи."); writeln("5.Просмотр всех номеров и фамилий."); writeln("6.Удаление всех данных из книжки."); writeln("7.Выход из программы."); gotoxy(3,12); writeln("Введите номер действия: "); gotoxy(27,12); readln(n); if n="1" then begin assign(a,"name.dat"); reset(a); writeln("Введите фамилию:"); gotoxy(18,13); readln(s); writeln("Введите номер:"); gotoxy(16,14); readln(t); d:=concat(s,"_____",t); q:=filesize(a)+1; seek(a,q); write(a,d); close(a); writeln("Данные успешно внесены."); delay(3000); goto a1; end; if n="2" then begin writeln("Введите фамилию: "); gotoxy(18,13); readln(s); assign(a,"name.dat"); reset(a); p:=filesize(a); for q:=0 to p-1 do begin seek(a,q); read(a,t); num:=pos(s,t); if num=1 then begin f1(t); close(a); goto a1; end; end; close(a); textcolor(red); writeln("Запись не найдена!"); delay(3000); goto a1; end; if n="3" then begin writeln("Введите номер: "); gotoxy(16,13); readln(s); assign(a,"name.dat"); reset(a); p:=filesize(a); for q:=0 to p-1 do begin seek(a,q); read(a,t); num:=pos(s,t); if num<>0 then begin f1(t); close(a); goto a1; end; end; close(a); textcolor(red); writeln("Запись не найдена!"); delay(3000); goto a1; end; if n="4" then begin writeln("Введите фамилию: "); gotoxy(18,13); readln(s); assign(a,"name.dat"); reset(a); p:=filesize(a); for q:=0 to p-1 do begin seek(a,q); read(a,t); num:=pos(s,t); if num=1 then begin writeln("Запись найдена."); writeln(t); writeln("Введите новую фамилию: "); gotoxy(24,16); readln(g); writeln("Введите новый номер: "); gotoxy(22,17); readln(d); c:=concat(g,"_____",d); v:=length(t); delete(t,1,v); s:=c; seek(a,q); write(a,s); close(a); writeln("Данные изменены."); writeln("Нажмите <Enter>."); readln; goto a1; end; end; close(a); textcolor(red); writeln("Запись не найдена!"); delay(3000); goto a1; end; if n="5" then begin assign(a,"name.dat"); reset(a); writeln("Все фамилии и номера: "); textcolor(10); for z:=0 to filesize(a)-1 do begin read(a,s); writeln(s); delay(20); end; writeln("Нажмите <Enter>."); readln; close(a); goto a1; end; if n="6" then begin write("Введите пароль: "); gotoxy(17,13); readln(s); if s="6041985" then begin assign(a,"name.dat"); erase(a); assign(a,"name.dat"); rewrite(a); close(a); textcolor(15); writeln("Удаление завершено!"); delay(5000); goto a1; end else goto a1; end; if n="7" then begin clrscr; halt; end else begin textcolor(red); writeln("Недопустимое значение!!!"); delay(3000); goto a1; end; end.

← →
Eraser © (2007-05-22 00:03) [5]

Изменен: 26 июня 2000 г., 1:15:50
эх... ностальгия )

← →
Knight © (2007-05-22 00:19) [6]

Надо ж&#133 курсовой свой на асме нашёл&#133 думал, что он давно потерян :)

← →
Knight © (2007-05-22 00:21) [7]

[6] &#133 Даже работает, правда цвета какие-то не такие&#133 хотя, может версия не конечная %)

← →
antonn © (2007-05-22 00:23) [8]

плеер был первый...

← →
Knight © (2007-05-22 00:26) [9]

[7] Если кто будет смотреть&#133 чуть больше килобайта&#133

http://knight.webest.net/files/KURS.zip

← →
turbouser © (2007-05-22 00:26) [10]

:) Каждому своё )

← →
Knight © (2007-05-22 00:29) [11]

[9] Исходник нашёлся аж 98-го года&#133 %)

← →
Andy BitOff © (2007-05-22 00:39) [12]

13.05.2000 самое старое что нешел для PC
.model tiny .code .386 org 80h cmdleg db ? cmdstr db ? org 100h screenshir equ 640 endsymb equ screenshir/6 start: cld mov ax,4f01h mov cx,101h mov di,offset vb int 10h mov ax,4f02h mov bx,101h int 10h push 0a000h pop es call invline mov dx,offset messprogramm call printline mov dx,offset messprogramm1 call printline call printwindow call prprogress mov dx,offset nol call printline xor ax,ax mov al,byte ptr [cmdleg] ;Пустая строка cmp al,1 jg short yescmdstr mov dx,offset messnocmdstr jmp printline_exit ;Установить DTA yescmdstr: mov ah,1ah mov dx,offset dta int 21h ;разбор командной строки mov byte ptr [pach],0 xor ah,ah mov bx,offset cmdstr add bx,ax mov byte ptr [bx],ah mov word ptr [ht_+1],bx cmd1: dec bx cmp byte ptr [bx]," " je short cmd2 cmp byte ptr [bx],"\" jne short cmd1 inc ah push bx jmp short cmd1 cmd2: or ah,ah jnz short cmd3 inc byte ptr [pach] jmp short cmd4 cmd3: pop si dec ah jnz short cmd2 cmd4: inc bx ;найти файл mov dx,bx mov ah,4eh xor cx,cx int 21h jc nofile ;установить текущий каталог dec byte ptr [pach] jnz short setdir mov si,bx jmp short nosetdir setdir: mov ah,3bh mov byte ptr [si],cl int 21h jc nofile ;открыть файл inc si nosetdir: call setname mov dx,si mov ax,3d00h int 21h jc notopenfile push bx push si mov [handlefile],ax mov eax,dword ptr [dta+1ah] push eax mov di,offset razmerfile call hex mov dx,offset messrazfile call printline mov dx,offset messesc call printline pop eax shr eax,9 mov word ptr [step],ax mov dx,offset messnumprogress call printline pop si pop bx ;создать и открыть копию ht_: mov bx,0 dec bx mov byte ptr [bx],"_" call setnamecopy mov ah,5bh mov dx,si int 21h jc nocreatecopy mov [handlefilecopy],ax mov dx,offset messwork call printline ;===================================================================== ;прочитать байт из файла povtor: mov ah,3fh mov bx,[handlefile] mov cx,1 mov dx,offset buffer int 21h jc errorload ;===================================================================== aa9: cmp al,0 jz exitok xor bx,bx mov bl,buffer cmp bl,10 jne short aa91 inc dword ptr str1 mov byte ptr delo1,0 aa91: cmp byte ptr delo2,0 jne short aaa1 cmp bl,"#" jne short aa912 mov byte ptr delo2,1 jmp short aa912 aaa1: cmp byte ptr delo2,1 jne short aaa2 mov byte ptr delo2,2 jmp short aa912 aaa2: cmp byte ptr delo2,2 jne short aa912 cmp bl,13 jne short aaa3 mov byte ptr delo2,3 dec dword ptr delo jmp short aa912 aaa3: mov byte ptr delo2,0 aa912: cmp bl,"*" jne short aa911 inc byte ptr delo1 cmp byte ptr delo1,5 jne short aa911 inc dword ptr delo mov byte ptr delo2,0 ;?????????????????????? aa911: cmp bl,192 jl short pro1 cmp bl,223 jg short pro1 inc bh pro1: cmp bh,1 jne short pro41 ; call pechat notpech: cmp byte ptr pro,0 je short pro3 xor bl,32 pro3: inc byte ptr pro jmp short pro4 pro41: mov byte ptr pro,0 pro4: mov buffer,bl mov bx,[handlefilecopy] lea dx,buffer mov cx,1 mov ah,40h int 21h jc short errorsave mov eax,[numprogress] inc eax mov dword ptr [numprogress],eax mov di,offset messnumber call hex mov dx,offset messnumprogress call printline in al,60h cmp al,1 jz short exit_esc inc word ptr [step1] mov ax,[step1] step_: mov bx,0 step equ step_+1 cmp bx,ax jnz povtor ;ПОВТОР mov word ptr [step1],0 inc word ptr [progline] mov cx,[progline] cmp cx,512+65 jge povtor mov [prev_x],cx mov [prev_y],60 mov dx,77 mov bp,20h call prline jmp povtor exit_esc: mov dx,offset messexitesc jmp short errorexit1 ;====================================================== errorsave: mov dx,offset messerrorsave jmp short errorexit1 errorload: mov dx,offset messerrorload errorexit1: call printline_exit jmp short close nocreatecopy: mov dx,offset messnocreatecopy call printline_exit jmp short exitclose notopenfile: mov dx,offset messnotopenfile jmp short printline_exit nofile: mov dx,offset messnofile jmp short printline_exit exitok: mov dx,offset messexitok call printline_exit close: mov bx,[handlefilecopy] call exitandclose exitclose: mov bx,[handlefile] exitandclose: mov ah,3eh int 21h ret printline_exit: push dx call printwindow pop dx call printline exit_loop: mov dx,offset any_key call printline xor byte ptr [any_key+5],0fh mov cx,60000 exit_l1: in al,60h cmp al,1ch jz short exit_ loop exit_l1 jmp short exit_loop exit_: mov ax,3 int 10h ret printline: push bx push cx mov bx,dx print0: xor ax,ax mov al,[bx] ;первая буква inc bx or al,al jnz short print1 pop cx pop bx ret print1: cmp al,32 ;больше пробела jnl short print2 cmp al,1 jnz short cmp3 mov ax,screenshir mov cx,12 div cl mov dx,ax mov al,[bx] inc bx shr ax,1 sub dx,ax mov dh,byte ptr [bx] inc bx jmp short print0 cmp3: cmp al,3 jnz short cmp2 mov dl,byte ptr [bx] inc bx mov dh,byte ptr [bx] inc bx jmp short print0 cmp2: cmp al,2 jnz short cmp10 mov al,byte ptr [bx] mov byte ptr [backcolor],al inc bx mov al,byte ptr [bx] mov byte ptr [color],al inc bx jmp short print0 cmp10: cmp al,10 ;не перевод строки jnz short print3 xor dl,dl ;иначе обнулить колонку jmp short print0 print3: cmp al,13 ;невозврат коретки jnz short print2 inc dh ;иначе увел. строку jmp short print0 print2: cmp al,127 ;если больше 127, т.е. русские (кодировка cp1251 виндовая) ja short prbol128 ;то настроить адрес фонта mov si,offset font-256 ;либо как обычно print4: push dx ;сохраняем положение курсора push bx ;какой след. символ mov bx,si call printsymb ;печатаем символ pop bx pop dx inc dl ;увеличиваем колонку cmp dl,endsymb ;если не конец экрана jnz short print0 ;печатаем дальше inc dh ;иначе увел. строку xor dl,dl ;и обнуляем колонку jmp short print0 prbol128: mov si,offset font-256-(41h*8) ;адрес фонта для русских букв jmp short print4

← →
Andy BitOff © (2007-05-22 00:39) [13]

;вычисляем адрес буквы на экране printsymb: shl ax,3 ;буква*8 add bx,ax ;адрес в фонте xor cx,cx xchg cl,dl xchg dh,dl ;cx=колонка dx=строка mov ax,cx shl cx,3 ;cx*8 add ax,ax ;ax*2 sub cx,ax ;потому что каждая буква по 6 бит mov ax,dx shl ax,3 ;строка*8 - высота символа 8 линий cwde mov edx,eax imul edx,screenshir ;а теперь все это на ширину режима mov ax,cx cwde add edx,eax ;и + колонку mov di,dx ;в di смещение в банке (оно в пределах 0-65535) shr edx,16 ;а в dx номер банка (edx делим на 65536) cmp dl,bank ;если текущий банк такой же jz short num4 ;то печатаем call set_bank ;либо меняем ;выводим на экран т.е. пишем в видео память num4: mov cx,8 ;8 линий num3: push cx push bx mov al,byte ptr [bx] ;получить байт цифры mov cx,6 ;в байте 6 значимых бит num2: shl al,1 ;сдвиг jnc short num1 ; если бит не 1 то не печатать color1: mov byte ptr es:[di],0 ;иначе ставим точку с цветом 0F color equ color1+3 ;для втавки другово цвета jmp short num8 num1: mov byte ptr es:[di],0 backcolor equ num1+3 num8: inc di jnz short num7 mov dl,bank inc dl call set_bank num7: loop num2 ;цикл пока не проверим все 6 бит endnumb: add di,screenshir-6 ;переходим на след. линию jc short num5 ;проверим не перешли ли мы в след. банк num6: pop bx inc bx ;INC базу буквы т.е. след. линия pop cx loop num3 ;и цикл пока не 8 линий ret num5: mov dl,bank ;если перешли то увеличим только на время вывода одного символа inc dl ;не сохраняя изменений банка call set_bank jmp short num6 set_bank: push bx push ax xor bx,bx mov bank,dl call dword ptr [vb+0Ch] pop ax pop bx ret invline: xor dl,dl call set_bank xor di,di call invline1 mov dl,4 call set_bank mov di,39936 invline1: mov cx,2560 mov ax,3434h rep stosw ret printwindow: mov dx,1101h call set_bank mov di,65049 mov cx,210 mov bp,586 prwin1: push cx push di mov cx,bp next_byte: mov byte ptr es:[di],dh inc di mov ax,offset prwin2 jz short inc_bank prwin2: loop next_byte pop di add di,screenshir mov ax,offset prwin3 jc short inc_bank1 prwin3: pop cx loop prwin1 ret inc_bank: inc [bank] inc_bank1: mov dl,[bank] call set_bank jmp ax prprogress: mov dx,1c00h call set_bank mov di,30170-55 mov cx,100 mov bp,460+110 call prwin1 mov bx,offset baseline mov bp,19h call pline1 mov bp,1fh call pline1 mov bp,16h call pline1 mov bp,34h call pline jmp short pline ret pline1: mov cx,4 pr1: push cx call pline pop cx loop pr1 ret pline: mov ax,[bx] mov [prev_x],ax inc bx inc bx mov ax,[bx] mov [prev_y],ax inc bx inc bx mov cx,[bx] inc bx inc bx mov dx,[bx] inc bx inc bx ; Рисование прямой ; вход DX=y CX=x конечной точки ; prev_x, prev_y начальной точки prline: pusha mov ax,cx sub ax,prev_x jns short dx_pos neg ax mov byte ptr x_inc,41h mov byte ptr x_inc1,41h jmp short dx_neg dx_pos: mov byte ptr x_inc,49h mov byte ptr x_inc1,49h dx_neg: mov bx,dx sub bx,prev_y jns short dy_pos neg bx mov byte ptr y_inc,42h mov byte ptr y_inc1,42h jmp short dy_neg dy_pos: mov byte ptr y_inc,4ah mov byte ptr y_inc1,4ah dy_neg: shl ax,1 shl bx,1 call prpoint cmp ax,bx jna short dx_le_dy mov di,ax shr di,1 neg di add di,bx cyrcle: cmp cx,word ptr prev_x je short exitprline or di,di jl short x_inc y_inc: db 0 sub di,ax x_inc: db 0 add di,bx call prpoint jmp short cyrcle dx_le_dy: mov di,bx shr di,1 neg di add di,ax cyrcle1: cmp dx,word ptr prev_y je short exitprline or di,di jl short y_inc1 x_inc1: db 0 sub di,bx y_inc1: db 0 add di,ax call prpoint jmp short cyrcle1 exitprline: popa ret prpoint: pusha xor ax,ax push ax push dx pop edx imul edx,screenshir mov ax,cx cwde add edx,eax mov di,dx shr edx,16 cmp dl,bank jz short num41 call set_bank num41: mov ax,bp mov byte ptr es:[di],al popa ret hex: push es push cs pop es push di ; вход: di строка, bp 2409h, eax число mov ebx,10 xor cx,cx divlp: xor dx,dx div ebx add dl,"0" push dx inc cx test eax,eax jnz short divlp store: pop ax stosb loop store mov byte ptr cs:[di],0 pop bp mov dx,bp pop es ret setnamecopy: mov di,offset namefilecopy mov dx,offset messnamefilecopy jmp short setn setname: mov di,offset namefile mov dx,offset messnamefile setn: push si push bx push es push cs pop es mov cx,12 rep movsb pop es call printline pop bx pop si ret messnocmdstr db 1,31,30,2,11h,28h,"ОШИБКА! Командная строка пуста.",2,11h,30h,1,77,34,"Для правильного зупуска программы используйте командную строку с параметрами:",2,11h,33h,1,15,36,"Change.com файл",2,11h,2eh,1,26,39,"где файл - имя файла описи",2,11h,2ch,1,30,41,"например: Change.com 202_4.txt",2,11h,1eh,1,96,44,"Файл описи ОБЯЗАТЕЛЬНО должен иметь расширение .txt и быть набраным в кодировке Windows (cp1251)",0 messnofile db 1,11h,15,34,2,28h,"Файл не найден!",2,11h,0ah,1,75,38,"Возможно следует проверить правильнось имени файла или указать полный путь.",2,11h,0ah,1,45,40,"например: Change.com c:\elena\opisi\202_4.txt",0 messexitok db 1,39,37,2,11h,34h,"Измененная копия файла успешно создана.",0 messerrorsave db 1,23,37,2,11h,28h,"ОШИБКА ЗАПИСИ ФАЙЛА !!!",0 messerrorload db 1,23,37,2,11h,28h,"ОШИБКА ЧТЕНИЯ ФАЙЛА !!!",0 messnotopenfile db 1,41,37,2,11h,28h,"ОШИБКА! Невозможно открыть исходный файл.",0 messnocreatecopy db 1,39,35,2,11h,28h,"ОШИБКА! Невозможно создать копию файла.",1,73,39,2,11h,44h,"Возможно файл с таким именем (имя.tx_) уже есть, либо нет места на диске.",0 messnamefile db 1,35,34,2,11h,64h,"Создается копия файла: " namefile db " ",0 messnamefilecopy db 1,35,36,2,11h,67h,"Копия пишется в файл: " namefilecopy db " ",0 messwork db 1,21,40,2,11h,1fh,"Подождите пожалуйста.",0 any_key db 1,46,55,2,0,0fh,"Нажмите клавишу ENTER для выхода из программы.",0 messesc db 1,36,15,2,1ch,69h,"Нажмите ESC, чтобы отменить операцию",0 messexitesc db 1,53,37,2,11h,28h,"Процесс создания копии прекращен, нажата клавиша ESC.",0 nol db 3,10,10,2,1ch,0,"0",0 messnumprogress db 1,26,11,2,1ch,0,"скопировано: " messnumber db "0 байт",0 baseline dw 64,59,577,59, 64,59,64,78, 91-55,147,549+55,147, 550+55,48,550+55,147 dw 65,78,577,78, 577,60,577,78, 90-55,47,550+55,47, 90-55,47,90-55,147 dw 24,203,611,203, 24,203,24,414, 24,414,611,414, 611,203,611,414 dw 0,0,0,479,639,0,639,479 progline dw 64 delo dd 1 str1 dd 1 bank db 0 delo1 db 0 delo2 db 0 step1 dw 0 numprogress dd 0 font: include font.asm messrazfile db 3,93,10,2,1ch,0 razmerfile db 8 dup(?) prev_x dw ? prev_y dw ? pro db ? pach db ? handlefile dw ? handlefilecopy dw ? buffer db ? vb db 256 dup(?) dta: end start

← →
Riply © (2007-05-22 00:43) [14]

А у меня первая программа, это очень серьезная разработка - троянчик :)
Он был невидим, т.к. форма смещалась за пределы экрана,
умел себя прописывать в директорию StartUp,
определять, что завершается работа за компьютером и записывать в лог
время старта и выхода и из Windows :)

← →
Andy BitOff © (2007-05-22 00:46) [15]

> Riply © (22.05.07 00:43) [14]

=) Ну, через это, я думаю, многие прошли ;)

← →
Knight © (2007-05-22 00:49) [16]

> [15] Andy BitOff © (22.05.07 00:46)

Ну&#133 я вирусами никогда не страдал :)

← →
Riply © (2007-05-22 00:50) [17]

>[14] Riply © (22.05.07 00:43)
P.S. Только вот исходники "для потомков" не сохранила :)

← →
Andy BitOff © (2007-05-22 00:54) [18]

> Knight © (22.05.07 00:49) [16]

А ты внимательней описание прочти. Всего-то лог старта и завершения винды. Какой же это вирус.
Я такую приблуду лабал спецом, когда в отпуск уходил (давно это было) и были подозрения, что в мое отсутствие им воспользуются, что недопустимо. Но там еще лог процессов был, но это уже мелочи.

← →
turbouser © (2007-05-22 00:55) [19]

> Knight © (22.05.07 00:49) [16]

Аналогично :)

← →
Knight © (2007-05-22 00:57) [20]

> [18] Andy BitOff © (22.05.07 00:54)

Всё что само прописывается в стартап&#133 есть вирус :)
У меня такое было, но ставилось админом (мной) как сервис, может до сих пор на каких-то машинах работает&#133 спасибо, что напомнили, надо будет проверить, т.к. больше уже не нужно :)

← →
wp2 © (2007-05-22 01:08) [21]

На Бейсике узнал длину строки, которая вводилась из клавиатуры :-)

В этого я и начал программировать :-)

← →
{RASkov} © (2007-05-22 01:37) [22]

Взял как-то у знакомых ZX Spectrum поиграться(в то время даже он был редкость в нашем городе) в итоге намучился с кассетами и магнитофоном...
LOAD <NAME GAME>_
потом минут 15 наблюдаешь за цветными полосками и (как правило) в конце ERROR LOAD...
В итоге привлек встроенный язык Бэйсик.... Методом тыка(ни книг, ни вообще какого нибудь понятия о языках программирования не было) набирал листинги по десятку строк.... понравилось.... нашел (единственную наверное в нашем городе) книгу по 3D графике для ZX Spectrum"а "срисовал" оттуда пример рисования сферы с отсеканием невидимых линий.... RUN и минут 10 наблюдал как на экране появляется эта сфера :) затем появились первые писюки и один друг "познакомил меня с Delphi 1", Вообще програмить - это мое хобби и моя основная работа никоим образом не связана с программированием. Вирусов никогда не писал.... не, я так не могу говорить, один был написан мной... специально.... вообщем работал году в 2000 на одной работе :) по сменам - 3 чел(выходило сутки через двое). Вот был там комп на котором мы отправляли по электронке отчет раз в сутки вечером в областной центр... Стояла на нем 95Win убогая еле дышала. Я все уговаривал начальство на переустановку, а они все потом да потом, в итоге работать на нем(компе) нам, вот начальству и пофик было... не разрешали переустановку (типа время на это надо, да кто этим будет заниматься) Вот у меня и возникла мысль написать прогу. Написал... перед здачей смены запустил - она в автозагрузку, ну и все такое.... ушел... Цель ее была всего лишь одна - дождаться моей смены и буквально за час до моей смены удалить win.com. Вот так я решил проблему с переустановкой Винды.... почему ждал именно моей смены, да не люблю подставлять людей..... После переустановки в итоге были все довольны включая начальство, потому, что работать за компом стало на несколько порядков приятнее. Вот.

← →
Константинов © (2007-05-22 02:01) [23]

Первая программа, точнее набор программ обсчитывал данные по лабам по курсу "Статистическое моделирование и расчет надежности РЭС" + тест для студентов ( вопрос и 4 варианта ответов ).
Это была дипломная работа ( в купе еще с 3-мя студентами. Кто делал Web часть, кто организационно-экономическо-оформительную часть, один, зараза - сочковал )
За 3 месяца до диплома впервые услышал о Delphi на дипломе была рабочая, но жутко кривая прога.
Писал, обложившись самоучителяями по 12-16 часов в день. Когда не получалось, злился жутко, и нещадно ругал и дубасил не в чем не повинный ПК. сосед по комнате, когда ложился спать, давал ЦУ: "Громко по клавишам не стучать! С компьютером не разговаривать!" :)

← →
Real © (2007-05-22 02:19) [24]

> Автор, а от тебя будут откровения? :)

Дык, сразу же и покаялся :) Исходника жаль нет, но пмоню что был он дико жуткий на вид :)

> Методом тыка(ни книг, ни вообще какого нибудь понятия о
> языках программирования не было)

Аналогично. Книгу, которую чудом удалось найти в библиотеке - была по другому диалекту бейсика, и копи/пэст не прокатывал :) что пожалуй очень сильно простимулировало разобраться что и как. Учился по листингам программы которая шла в нагрузку на дискетках (5-дюймовых). Многие ключевые слова из бэйсика узнавал так: писал английские слова, которые как мне казалось могут быть операторами в качестве переменных. Если прокатывало - то ясно было нет такого оператора. Если васик ругался - значит напал на какое-то ключевое слово и методом тыка догонял для чего оно нужно. Помню что полгода промучался над разгадкой оператора OPTION и BASE, а в итоге оказалось что оператор составной и всего навсего определяет начальный индекс в массивах :)

← →
Virgo_Style © (2007-05-22 07:53) [25]

Вероятно struct - программа для форматирования исходных текстов. Форматировать их самостоятельно я начал относительно недавно, так что эта (серьезно переработанная, понятно) программа до сих пор лежит у меня на винте)

← →
@!!ex © (2007-05-22 08:13) [26]

Первая программа написанная полностью мной - игра в числа на паскале(комп загадывает число, вводим вариант, он оворит больше оно или меньше загаданного)
В тоде время из фаронова набрал игру НИМ и правил ее.
Перваый нормальный проект(еще без ООП, не представляю, как я его писал) - редактор графики под ДОС, с меню виндовс подобным, с возможностью копи пастов, зума отдельных участков, сохранения в растровом формате, сохранение как код бэйсика или паскаля и еще какие то фичи.
Я поражаюсь, как я смог тогда такое написать.. Учитывая, что писать не умел практически... И был очень расстроен, когда вирус обнаружили на отцовском ноуте и админы на работе не нашли ниче умнее, как все форматнуть.. Дали бы хоть возможность сорсы забрать. :((

← →
Александр Иванов © (2007-05-22 08:25) [27]

Первая, написанная в качестве дипломной - гипертестовый редактор и браузер под ДОС. Поддерживал текст, гиперссылки, ссылки на картинки, ссылки на исполняемые файлы. К сожалению код пропал. Тогда я даже не слышал про HTML и прочее.

← →
pavel_guzhanov © (2007-05-22 08:31) [28]

У меня была на Qbasic программа.... году примерно в 96-м. Составлялся список работников цеха, смены и ежедневники, потом программа выдавала на печать бланк графика работы с датами и фамилиями.

← →
начинающий © (2007-05-22 09:26) [29]

Она же первая, она же и последняя (возможно, только на сегодня -- забросил программирование). Хотя там было 3 програмки: клиент, сервер и редактор. Это мой диплом. А название: "Система тестирования на основе клиент-серверной технологии" (пер. с. укр. ;))
Можно было запускать несколько тестов на сервере; в каждом тесте были вопросы с возможностью добавления иллюстрации; файлы с вопросами шифровались (zip+XOR); вопросы делились по категориям, задавалось кол-во вопросов в тесте как в разрезе категорий так и в разрезе балов... Вот такое вот...

← →
Fredy314 © (2007-05-22 09:36) [30]

У меня тож был когдато досовский редактор, ещё недавно можно было найти в Интернете PCXMagic назывался.

← →
{RASkov} © (2007-05-22 09:42) [31]

> Многие ключевые слова из бэйсика узнавал так: писал английские
> слова, которые как мне казалось могут быть операторами в
> качестве переменных. Если прокатывало - то ясно было нет
> такого оператора.

Что проще было на сперктруме, операторы набирались одним нажатием кнопки, и все были написаны прям на кнопках :) Тормозило осутствие вообще понятия, что за слова написаны на кнопках, и незнанние англ языка....
Так вот на той же работе где решил проблему с переустановкой системы, и была написана первая "серьезная" прога.
Была у нас линуксовая машина, на ней спец прога в которую в течении смены мы забивали КУП и ЖУИ.
Прога потом формировала отчет(который мы и отправляли, предварительно его в ручки правя) в досовом формате(кодировке), файл отчета содержал много чего не нужного, что не нужно было включать и кое-что дописывали вруки в отчет, и мы по полчаса-часу правили его в ручки, вообщем поднадоела мне эта однообразная рутина. Написал прожку которая парсила этот отчет, все, что не надо удаляла, что надо дописывала и выводила копию на печать для мэра города. Сменщики-то мои как были рады :))

← →
Romkin © (2007-05-22 11:05) [32]

А я и не знаю, что считать первой серьезной программой :)
Наверно, опросник для тестов, для военной кафедры делал, один большой файл с вопросами и вариантами ответов, при этом каждый вопрос с ответами - просто экран, программа брала его и по указанным координатам перемешивала ответы, ну и считала баллы. По координатам - потому что ответы могли быть в псевдографике, в прямоугольниках ;)
Может, где-то исходник и есть, на пятидюймовой дискете, другие тогда не котировались :) TP5, 93 г. Тогда у студенческих компьютеров только харды появлялись. И СМ4 на кафедре разобрали.
Ну и до этой были по мелочи: лабораторная по статистике (критерии значимости) - вот это, пожалуй, единственная моя программа на бейсике, TurboBasic, что достал. 1990, я тогда еще и Паскаля не знал, было же время!
Лабораторная по исследованию устойчивости, по разным критериям, в том числе по Михайлову (кажется по нему, если память не изменяет...) - наверно, первая серьезная программа на TP, с графикой. В качестве побочного эффекта я там характеристический полином считал :)

← →
keymaster © (2007-05-22 11:10) [33]

Первой была программка для автоматизации пунктов обмена валют в банке.

Вторая - полная переделка БД общежитий МГУ.

← →
Игорь Шевченко © (2007-05-22 11:40) [34]

> какая у вас была первая программа, которая более-менее из
> себя что-то представляла? В качестве критерия можно взять
> например такой "не стыдно было показать другим со словами,
> "это я сам написал"

Аналог pkzip для VAX/VMS

← →
tesseract © (2007-05-22 11:45) [35]

модуль складского учёта использования весов - дозаторов какого-то цементного завода.

← →
Romkin © (2007-05-22 11:48) [36]

Игорь Шевченко © (22.05.07 11:40) [34] Э. А аналог pkunzip написал или так оставил? :)))

← →
Kolan © (2007-05-22 11:50) [37]

Программа для смены картинок на рабочем столе.
Искала картинки в папке, строила список + пред просмотр.

← →
Игорь Шевченко © (2007-05-22 12:06) [38]

Romkin © (22.05.07 11:48) [36]

> А аналог pkunzip написал

Конечно. Иначе было бы стыдно :)

← →
clickmaker © (2007-05-22 12:59) [39]

программа расчета шарикоподшипников на износ, на С++ с BGI-графикой

← →
tesseract © (2007-05-22 13:16) [40]

Забыл :
на 1-м курсе накатал прогу, которая выводила текущие время в заголовок окна :-)

← →
boriskb © (2007-05-22 13:29) [41]

Учет не завершенного строительства 1979 г. PL/1

← →
boriskb © (2007-05-22 14:06) [42]

Игорь Шевченко © (22.05.07 11:40) [34]
для VAX/VMS

Лет 10-15 назад, насколько я помню, эта ОС признавалась лучей из существующих.

Сейчас такие сравнения уместны?

← →
boriskb © (2007-05-22 14:08) [43]

boriskb © (22.05.07 14:06) [42]
лучей
лучшей
boriskb © (22.05.07 14:06) [42]
признавалась
специалистами

P.S.
И вроде не спешил?
:))

← →
ANTPro © (2007-05-22 14:49) [44]

Первой серьезной программой была телефонная книга (еще для ZX Spectrum"a) основная часть была написанна на бейсике, а функция поиска в ФИО по номеру была написанна на ZXасме, где-то 200 байт всего :)
Еще, даже, был введен в нее справочник моего села. Целых 1500 записей - 23000 байт.
Зх, как меня еще на ввод такого воличества данных хватило : )

← →
Sergey13 © (2007-05-22 15:13) [45]

На какой то версии васика для машины Оливетти (такая здоровая, размером с хорошую стиральную машину) писал (глядя на аналоги) 20 лет назад (с ума сойти!!!)программу обсчета длительности обработки на станке 6520Ф3 (с системой Н33) по ЧПУ-программе, записанной на перфоленте. Работало. Может и сейчас работает - не в курсе.

← →
Darvin © (2007-05-22 15:20) [46]

дизассемблер для электроники-60

← →
Брюнетка © (2007-05-22 15:25) [47]

> А какой у вас был НЕ первый Hello World?

Hello World v 2.0

-)

← →
jack128 © (2007-05-22 15:37) [48]

Real © (21.05.07 23:48)
В качестве критерия можно взять например такой "не стыдно было показать другим со словами, "это я сам написал" :)

Ну.. Была программка, общалась по ком порту с вычислителем, считывала с него данные, распечатку этих данных делала.. Пару месяцев назад звони, просили починить её, что то там поломалось.. А написал я её лет пять назад.. Собственно это первая моя программа, за которую я деньги получил..

← →
Игорь Шевченко © (2007-05-22 15:56) [49]

boriskb © (22.05.07 14:06) [42]

Сейчас она уже умерла, разумеется, но для того времени была очень и очень неплоха, и уступала только Unix. Впрочем, Unix"у тогда все уступали :)

← →
alien1769 © (2007-05-22 16:03) [50]

Автоматический контроль выхода проволки намотанного на бухту и проверкой начала/окончания работы работника за станком.
Использовался порт ЛПТ. /ДОС 6.0/

← →
boriskb © (2007-05-22 16:11) [51]

Игорь Шевченко © (22.05.07 15:56) [49]
и уступала только Unix

Всё таки уступала?
Я отчетливо помню - лучшая по признанию чуть ли не всех команд разработчиков других ОС (существующих в то время)
Хотя... я уже не раз убеждался в странных свойствах памяти - поэтому спорить не буду :)

← →
oldman © (2007-05-22 16:17) [52]

> А какой у вас был НЕ первый Hello World?

Загрузчик под "Электроника-60" в восмеричном коде на перфоленте...
А для РС - "АРМ руководителя".
Пакет, состоящий из электронных записной книжки, калькулятора, ежедневника и календаря для РС-ХТ-86.

← →
Vlad Oshin © (2007-05-22 17:43) [53]

у меня все такие :)

для друга какой-то щелкатель (sound(N); delay(M); nosound;) по какому-то хитрому алгоритму, которого не помню, конечно же. Ему надо было на гитаре струны дергать как-то в такт.

← →
Anatoly Podgoretsky © (2007-05-22 20:11) [54]

> Riply (22.05.2007 00:43:14) [14]

> и записывать в лог время старта и выхода и из Windows :)

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

← →
Anatoly Podgoretsky © (2007-05-22 20:14) [55]

> {RASkov} (22.05.2007 01:37:22) [22]

> затем появились первые писюки и один друг "познакомил меня с Delphi 1"

Между первой и второй, перерывчик небольшой, так 14 лет

← →
{RASkov} © (2007-05-22 22:55) [56]

> [55] Anatoly Podgoretsky © (22.05.07 20:14)
> > {RASkov} (22.05.2007 01:37:22) [22]
>
> > затем появились первые писюки и один друг "познакомил
> меня с Delphi 1"
>
> Между первой и второй, перерывчик небольшой, так 14 лет

"14 лет разницы" - это между появлением Delphi 1 и первым писюком, или между Delphi 1 и Delphi 2?))
1995, 24 апреля: Borland начинает продажи Delphi 1 C/S. Interbase 4.0C включена в дистрибутив..
1996, 4 марта: Borland аннонсирует Delphi 2. Interbase 4.1 в дистрибутиве.
ЗЫ 95-81=14 но я имел ввиду первые писюки в нашем городке :) Да, да... они вот у нас вот так вот поздно зародились.... как раз где-то к середине 90х :(

← →
isasa © (2007-05-23 00:04) [57]

{RASkov} © (22.05.07 22:55) [56]
Там еще было Turbo Pascal v 3, 4, 5, 5.5, 6, 7, Turbo Pascal for Windows v 1.5(в которой была зарезервирована буква "я" для служебных целей), дальше у меня провал ло D5(не писал на Pascal).

По сабжу.
Первая на PL/1 для серии IBM 360/370 (ЕС)
"Расчет теплофизических и термодинамических свойств газов и жидкостей".

← →
Anatoly Podgoretsky © (2007-05-23 00:39) [58]

> {RASkov} (22.05.2007 22:55:56) [56]

"писюки" в отдельно взятом государстве не интересуют.
Для информации, первый 16 битный "писюк" появился в 1981 году и назывался IBM PиCюк

← →
{RASkov} © (2007-05-23 01:31) [59]

> [58] Anatoly Podgoretsky © (23.05.07 00:39)
> "писюки" в отдельно взятом государстве не интересуют.

Виноват... исправлюсь :)

> появился в 1981 году и назывался IBM PиCюк

Именно... и именно "эту" цифру я отнял от (19)95 :) в [56]

У меня самая первая программа, которая действительно работала, была написана на ассемблере IBM 360. Она копировала привелегированую учетную запись в системе JEC под другим именем и как-то ее модифицировала. Было это более 20 лет назад.

Почему сразу первая программа такая сложная? Потому что когда деревья были большими, доступ к реальной машине был крайне ограничен и свои программы я писал карандашом в тетрадках и только некоторые из них были когда-либо запущены на компьютере. С тех пор я умею аккуратно писать печатными буквами и стараюсь думать прежде чем написать.

birtday reminder, это первое, чем реально пользовались.

> С тех пор я умею аккуратно писать печатными буквами и стараюсь
> думать прежде чем написать.

Я об этом как то пытался завести здесь речь.
Не поняли, сказали - а нафига? То, что ты камерально отладишь за день, я 20 прогонами транслятора отлажу за 1 час.

Странно как-то.
И они правы - быстрей же?
И я не могу от своих привычек/убеждений просто так отказаться.

Курсовая: транслятор с кастрированного паскаля на asm для Intel 8086

Первая, написанная уже не в порядке приобретения навыка в программировании с получением возможно полезного продукта, а действительно необходимая для решения конкретных задач - кластерный анализ (BP + TurboVision, с BGI графикой).

> кластерный анализ (BP + TurboVision, с BGI графикой

а, так DiskEditor - твое творение? :)

Игра "Питон", ну тама змейка из кружочков бегала по окошку и хавала "яблоки".

А между прочим, тема звучит так - "А какой у вас был НЕ первый Hello World?" И почему это все интерпретировали ее как "А какой у вас был первый НЕ Hello World?")))

У меня «калькулятор» был на паскале, который предлагал ввести два числа и складывал их.

> А между прочим, тема звучит так - "А какой у вас был НЕ
> первый Hello World?" И почему это все интерпретировали ее
> как "А какой у вас был первый НЕ Hello World?")))

Может потому что кроме темы еще и есть описание что именно спрашивается? ;)

А где Kerk? Может предложить ему открыть в кладовке раздел "ностальжи" для складирования старых исходников? Интересный музей может получиться :)

Ну, и я свои пять копеек впихну...

Собственно, первой программой при изучении любого нового для меня языка программирования (да и вообще компьютерного языка) была игра "Отгадай число". QBasic, Basic для Корветов, Express Pascal, Borland Pascal (он же Turbo), Visual Basic, Delphi, ИнтАл. Исключениями стали PHP и т.п. интернетные языки.

Кстати, идея с игрушкой далеко зашла: у меня на сайте три версии лежат на Delphi.

← →
CCili (2007-05-24 11:25) [72]

Помню написал игру "Аргониус 2" :)))))))) Соответственно был первый "Аргониус". Спрайтовский Орк из второго Warcrafta ходил и рубил топором все что плохо стояло. :) Первый "Аргониус" был стратегией на тему древней руси. 2 войска представляли 2 компонента shape в форме прямоугольника. Чье войско больше, того shape и больше. Соответственно во время "битвы" :) компоненты уменьшались демонстрируя типа потери. :) Алгоритм по трезвому сейчас и не вспомнишь....

ОЧЕНЬ жаль, что не сохранились исходники. Сейчас бы ностальгически всплакнул. :)

← →
guestfromwww (2007-05-24 11:31) [73]

Жизнь. Клеточные автоматы. На basic.

> Чье войско больше, того shape и больше. Соответственно во
> время "битвы" :) компоненты уменьшались демонстрируя типа
> потери.

а сама битва-то как выглядела?

Писал в конце 2000-го на Quick Basik космическую стратегию.
Что-то наподобие Master of Orion.
Идея была перетащить потом код на Turbo Basik (которого на моем PC тогда не было)
и скомпилировать.
Хотел сделать как можно больше возможностей игры, при абсолютно убогой графике.
Второе получилось %). Первое нет. ;)
Но была карта, навигация по ней, масштабирование, возможность входа в звезднуюю систему.
Конечно, игрушку я не закончил.

Писалась игрушка просо гениально: код просто писался и все. Вот влоб.
Потом смотрю. Че-то ерунда какая-то один и тот же код по 150 раз (не преувеличиваю)
повторяется. Так, нужно его в процедурку ! :)
Потом глядь. И те процедурки начинают еще больше повторяться.
Их тоже в процедурку ;). И т.д.

Более тупого примера восходящего проектирования мне видеть не доводилось,
правда тогда я еще не знал что это так называется.

Через месяц я познакомился с Turbo Pascal и работу над игрушкой бросил.
Год спустя лечил по F8.

Где-то на втором курсе снеся написать программку по статье "Что в имени тебе моем", вводиш фамилию и имя и прога по спец таблице рачитывает сумму числе (там разным букват равны разные числа) как-то результат до < 10 доводит и в зависимости от ентого реза выводила харакетристику человека. Эх, на паскале, и про case тогда еще ничего не знал... писал в универе, паскаль был с обрезаным хелпом, сам по образованию не программер...
таки фот пираги с катятами

← →
CCili (2007-05-24 13:50) [77]

> а сама битва-то как выглядела?

на самом деле все выглядело не так стремно как может показаться на первый момент :). Было 4 типа войск: легкая пехота, тяжелая, и соответсвенно легкая конница и тяжелая. Все эти войска представляли собой абстрактную картинку в виде 4 прямоугольников. У врага такая же тема. И в момент битвы, по полю перемещались прямоугольники, которые сталкиваясь начинали уменьшаться. Вот и все. Я изучал Делфи как любитель, после школы чисто для души, поэтому на тот момент я думал, что до славы мега программиста осталось совсем немного. :)))))))

← →
WondeRu at work (2007-05-24 15:03) [78]

http://elsystems.ru/works/bastion/distinction/
там где начинается "Модуль векторной графики..." вот этот модуль я и делал давным-давно. Но это commercy... Первая домашняя программка, от которой я "тащился", тут http://wonderu.com/index.php?pid=1&projid=8

Первая прога которую не стыдно было показать... хм... это тоже был Бэйсик на Правец 8А. Книгу по нему покупала, аж страшно сказать за скока... Но месяцев пять карманные деньги копила, от пирожных отказывалась )) И конечно это была графика, а точнее рисование курсором, выбор линий, "цветов" на сколько это вообще возможно на монохромном мониторе и всего такого... Потом была заставка на разные предметы, школьные в смысле. Это типа "динамическая" графика )) Да так на графике и застряла...

Паскаль узнала только в унике на втором курсе. А когда пришел бывший одноклассник мужа после колледжа и показал дельфи... так я и приземлилась на нем ))

А мы с друганом писали еще на Spectrump-е.
Программа назвалась "Военная война".
Рисовалась пещера, из нее выезжал танчик и останавливался по середине экрана.
Потом летел самолет. После этого танк стрелял по самолету. Пока летел снаряд, самолет стоял на месте :)
Подбив самолет танк уезжал.

А потом появлялся текст со смешными военными историями, которые мы сами сочинили или типа того..

Исходников, блин, не сохранилось.
Хотя, может быть на кассете какой-то и валяется..

Программки, перебором по рандомайзу решавшие уравнения, на Спектруме в 1998 году :-))

> Программа назвалась "Военная война".

Очень свеженькое название :)

← →
Иа (2007-05-26 06:22) [83]

Игра "Удав", Yamaha КУВТ, MSX Basic

← →
Иа (2007-05-26 06:26) [84]

Да, год это был 87, если мне не изменяет память. Мда.

первый "софт" был в 5 лет %) на аналоге БК, на интерпретаторе Васика. содрал у сестры из тетради по информатике программу, рисующую чебурашку :D думаю, в 5 лет сдирать было простительно :o) а на IBM-совместимой первой был жутко-кривой сокобан на VB 1.0, потом на 3.0, потом на 4.0, када появился 6.0 со смехом портировал на него, шутки ради :D

А какой у вас был НЕ первый Hello World? Найти похожие ветки