Új hozzászólás Aktív témák

• #451 steveetm őstag _Petya_ #448

  Új Válasz 2004-10-30 23:34:10 #451

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  steveetm

  őstag

  válasz _Petya_ #448 üzenetére

  mien fordítóval? gcc fordít #10#13 as és #10 es sorvégjelü kódot. fpc is.
  
  Inkább azt tartom valószínübbnek hogy a wines fordító hülyül be linuxos forrástól. De ezt nem tudom kipróbálni...
  Üdv.: steveetm
  
  [Szerkesztve]
  
  [Szerkesztve]

• #450 Protezis őstag _Petya_ #449

  Új Válasz 2004-10-30 23:22:36 #450

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Protezis

  őstag

  válasz _Petya_ #449 üzenetére

  Ahogy vesszük
  Amúgy 2.

• #424 Protezis őstag _Petya_ #419

  Új Válasz 2004-10-30 19:04:39 #424

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Protezis

  őstag

  válasz _Petya_ #419 üzenetére

  Én még nem próbáltam lefordítani a kabinetben, ugyanis nincs mit
  Amúgy valszeg a putty átkonvertálta. Mondjuk én ConTEXT-et használok, az is el tudja menteni ''linuxos formátumban''

• #421 Cicalány csendes tag _Petya_ #419

  Új Válasz 2004-10-30 19:01:47 #421

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Cicalány

  csendes tag

  válasz _Petya_ #419 üzenetére

  Igen, Petya, nálam.... De nem értem...jah, amúgy a feladat szerint szóközzel kell elválasztani akiírt szavakat, nem új sorba íratni.

• #381 devast addikt _Petya_ #375

  Új Válasz 2004-10-30 15:40:49 #381

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  devast

  addikt

  válasz _Petya_ #375 üzenetére

  Mar bocs, de Katka nem emlitette hogy fajlbol kene kiolvasni.... Ami feladatot mondott en azt csinaltam meg... de minnya osszedobom fajlkezelessel par sor pluszba...

• #352 zenit tag _Petya_ #350

  Új Válasz 2004-10-22 19:50:41 #352

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  zenit

  tag

  válasz _Petya_ #350 üzenetére

  Íme:
  
  const
  Digits: string = '0123...XYZ'; <- számjegyek
  
  1. lépés: Str stringet számmá alakít Base számrendszerben.
  function StrToNum(Str: string; Base: Integer): LongInt;
  var
  . Digit: Integer;
  . Result: LongInt;
  begin
  . Result := 0;
  . while Str <> '' do
  . begin
  . . Digit := Pos(UpCase(Str[1]), Digits) - 1; Str := Copy(Str, 2, Length(Str) - 1);
  . . Result := Result * Base + Digit;
  . end;
  . StrToNum := Result;
  end;
  
  2. lépés: számot stringgé Base számrendszerben.
  function NumToStr(Num: LongInt; Base: Integer): string;
  var
  . Digit: Integer;
  . Result: string;
  begin
  . Result := '';
  . while Num > 0 do
  . begin
  . . Digit := Num mod Base; Num := Num div Base;
  . . Result := Digits[Digit + 1] + Result;
  . end;
  . if Result = '' then NumToStr := '0' else NumToStr := Result;
  end;
  
  Ennyi. Remélem, érthető.

Új hozzászólás Aktív témák