Latest comments for language 'Pascal' on doukaku.org

lunlumo's comment on 倍数になる13進数

program Multiple13;

var
    base10    :Integer;

function ToBaseN(base,number:Integer):Integer;
begin
    if number = 0 then
        ToBaseN := 0
    else
        ToBaseN := ToBaseN(base,number div 10) * base + number mod 10
end;

begin
    base10 := 10;
    while ToBaseN(13,base10) mod base10 <> 0 do
        base10 := base10 + 1;
    WriteLn(base10)
end.

[ Pascal ] [ download code ] ]

lunlumo's comment on ピラミッドを作る

ピラミッドを作る (Nested Flatten)

program Pyramid;
var
    i        :Integer;
    height    :Integer;
    error    :Word;

procedure WriteStep(step:Integer);
var
    j    :Integer;
begin
    for j := -height + 1 to height - 1 do
        if Abs(j) <= height - step then
            Write('*')
        else
            Write(' ');
    WriteLn
end;

begin
    Val(ParamStr(1),height,error);
    if error <> 0 then
        WriteLn('invalid arguments')
    else
        for i := height downto 1 do
            WriteStep(i)
end.

[ Pascal ] [ download code ] ]

mjy's comment on n人中m人が当選するくじ

n人中m人が当選するくじ (Nested Flatten)

{ Free Pascal + Run-Time Library (rtl)
  2 args
  kuji n m
}
program kuji;
uses
  SysUtils;
Var
  n, m : Cardinal; 

begin
  if ParamCount <> 2 then Exit;
  n := StrToInt(paramstr(1));
  m := StrToInt(paramstr(2));
  if n < m then Exit; 

  Writeln('# n=', IntToStr(n), ' m=', IntToStr(m));
  Randomize;

  for n := n downto 1 do
  begin
    if Random(n)+1 <= m then
    begin
      WriteLn(IntToStr(n));
      Dec(m);
    end;
  end;
end.

[ Pascal ] [ download code ] ]

mjy's comment on Hello, world!

Hello, world! (Nested Flatten)

program Hello;
begin
  writeln ('Hello, world!');
end.

[ Pascal ] [ download code ] ]