Ваша первая программа

[MooNDeaR]

работают, просто надо сначало в "список" добавить.

Не нашел списка

[xwicked]

В 2004-ом году была первая программа. Одна из тех, которые нашёл(28.05.2006, до этого момента был папка с сорцами must die, восстанавливал вроде через Active Undelete ):

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Gauges, ComCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Button2: TButton;
    Button3: TButton;
    Gauge1: TGauge;
    RichEdit1: TRichEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
label l1, l2;
var a, b, c, d, i: integer;
    ar: array of integer;
begin
 Label1.Caption := '';
 a := 0;
 c := StrToInt(Edit1.text);
 b := c;
 l1:
 a := a + 1;
 SetLength(ar, a); 
 d := b mod 16;
  if b < 16 then
    begin
     ar[a - 1] := b;
      goto l2;
    end;
 b := b div 16;
 ar[a - 1] := d;
  goto l1;
 l2:
  for i := a - 1 downto 0 do
    case ar[i] of
      0 : Label1.Caption := Label1.Caption + '0';
      1 : Label1.Caption := Label1.Caption + '1';
      2 : Label1.Caption := Label1.Caption + '2';
      3 : Label1.Caption := Label1.Caption + '3';
      4 : Label1.Caption := Label1.Caption + '4';
      5 : Label1.Caption := Label1.Caption + '5';
      6 : Label1.Caption := Label1.Caption + '6';
      7 : Label1.Caption := Label1.Caption + '7';
      8 : Label1.Caption := Label1.Caption + '8';
      9 : Label1.Caption := Label1.Caption + '9';
     10 : Label1.Caption := Label1.Caption + 'A';
     11 : Label1.Caption := Label1.Caption + 'B';
     12 : Label1.Caption := Label1.Caption + 'C';
     13 : Label1.Caption := Label1.Caption + 'D';
     14 : Label1.Caption := Label1.Caption + 'E';
     15 : Label1.Caption := Label1.Caption + 'F';
    end;
end;



procedure TForm1.Button2Click(Sender: TObject);
var a: WideChar;
    i: integer;
    s: string;
begin
 Button2.Caption := TimeToStr(Now);
 a := #0;
  for i := 0 to 65534 do
    begin
     Gauge1.Progress := (100 * i) div 65534;
     a := succ(a);
     s := s + a;
    end;
 RichEdit1.Lines.Add(s);
 Button3.Caption := TimeToStr(Now);
end;

end.

Что делает не помню, ВМ загружать лень

[MooNDeaR]

Что делает не помню, ВМ загружать лень

Комментить надо

P.S.
Не знаю Delphi, посему гадал основываясь на знания паскаля Когда увидел строчки goto 12, и goto 11, решил дальше не читать

[Stilet]

Сейчас тема начнет медленно заполняться Hello World-ами на разных языках...

Да да ))
Я бы сюда свою QBasiс прогу хелло-ворлд скинул но уже не помню как она выглядит

[xwicked]

Сообщение от MooNDeaR

Комментить надо

P.S.
Не знаю Delphi, посему гадал основываясь на знания паскаля Когда увидел строчки goto 12, и goto 11, решил дальше не читать

Да, да, я согласен - есть за мной такое. Я просто всё время думаю, что если мозг иногда не напрягать, то он атрофируется. Как мышца, после небольшого перенапряжения - укрепляется

А когда взялся за большие проекты - то вижу, что это для меня хорошо, а остальные помочь без комментариев мне не могут

[MooNDeaR]

Я бы возможно разобрался, но всё-таки не хватает знания языка

Очень тяжко распознать вообще всю эту задумку Что-то связанное с переводом чего-то в шестнацатеричную систему счисления

[xwicked]

Сообщение от MooNDeaR

Я бы возможно разобрался, но всё-таки не хватает знания языка

Очень тяжко распознать вообще всю эту задумку Что-то связанное с переводом чего-то в шестнацатеричную систему счисления

Я тоже так предположил, но позже был модернизированный упрощённый код, но в первый он уже не попал

[misher]

Был типа бот на паскале. Код приводить не буду. А просто write('Сколько тебе лет');
read(a);
Около 20 вопросов было. На которые добавил 20 переменных. Получился такой Hello World на строчок 30-40, но был доволен

[Wicort]

а я свою первую программу писал девять лет )
Начал ещё аж 15 лет назад - во втором классе. За комп садился раз в неделю по вторникам и ваял ))
Прога была на бэйсике и занимала 5 или 6 дискет.
Не помню уже всего, что там было, но что-то обучающее о космосе. Там даже была простенькая игрушка встроена, где надо было управлять вертолетом, облетая препятствия...
эх... как вспомнил, сразу нахлынуло...