構造体

Delphi

明解Ｃ言語 入門編 > 12. 構造体 >

構造体

Delphi



program Project1;
{$APPTYPE CONSOLE}
uses

    SysUtils;
type

    TStudent = record

        name:   String;

        height: Integer;

        weight: Real;

end;
procedure main();

var

    sanaka: TStudent;

begin

    sanaka.name   := 'Sanaka';

    sanaka.height := 175;

    sanaka.weight := 60.5;
    Writeln(Format('氏名：%s', [sanaka.name]));

    Writeln(Format('身長：%d', [sanaka.height]));

    Writeln(Format('体重：%f', [sanaka.weight]));

end;
begin

    main;

end.
実行結果


S:\>lesson090\project1.exe

氏名：Sanaka

身長：175

体重：60.50