構造体の受け渡し

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

構造体の受け渡し

Delphi

program Project1;
{$APPTYPE CONSOLE}
uses

    SysUtils;
type

    TStudent = record

        name:   String;

        height: Integer;

        weight: Real;

end;
procedure hiroko(var std:TStudent);

begin

    std.height := 180;

    std.weight :=  80;

end;
procedure main();

var

    sanaka: TStudent;

begin

    sanaka.name   := 'Sanaka';

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

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

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

    Writeln('');
    hiroko(sanaka);
    Writeln(Format('氏名：%s', [sanaka.name]));

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

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

end;
begin

    main;

end.

実行結果

S:\>lesson092\project1.exe

氏名：Sanaka

身長：175

体重：0.00
氏名：Sanaka

身長：180

体重：80.00