Diktat_ProgKecilBhsC

Pawalx 0 grspakhirx 0 grspakhirx 0 grspakhiry

Info iconThis preview shows page 1. Sign up to view the full content.

View Full Document Right Arrow Icon
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: ef struct { float x; float y; } Point; typedef struct { Point P1; Point P2; } Garis; typedef struct { Point TopLeft; Point BottomRight; } BS; typedef union { Garis G; BS S4; } Gambar; typedef struct { int jenis; Gambar Gb; } Geometrik; /* Definisi variabel */ Point P; Garis G; BS MyBS; Geometrik MyGGrs1, MyGBS1; /* Algoritma */ printf("hello\n "); /* Cara mengacu komponen */ /* Mengisi Titik P */ P.x = 0.0; P.y = 0.5; /* Mengisi Garis G */ G.P1.x = 0.5; G.P1.y = 1.5; G.P2 = P; /* Mengisi Bujur sangkar MyBS */ MyBS.TopLeft = P; MyBS.BottomRight.x = 5.0; MyBS.BottomRight.y = 5.0; /* mengisi Geometrik MyG */ MyGGrs1.jenis = 1; /* Garis */ MyGGrs1.Gb.G = G; MyGBS1.jenis = 2; /* Bujur sangkar */ MyGBS1.Gb.S4 = MyBS; return 0; } /* File : RecVar.c */ /* Record Varian */ int main() /* Kamus */ /* Cell adalah sebuah sel spread sheet, yang mungkin isinya :*/ /* Formula : string; integer atau real */ { /* KAMUS */ typedef enum { rumus, integer, riil } Trec; typedef union { char * form ; int nili ; float nilf ; } IsiSel; typedef struct { char adrbrs ; int adrkol ; Trec Tsel; IsiSel Isel ; } Cell; /* variabel */ Cell FCell, ICell, RCell; /* Algoritma */ /* Cara mengisi nilai */ /* Type cell adalah formula */ FCell.adrbrs = 'A'; FCell.adrkol = 1; FCell.Tsel = rumus; FCell.Isel.form = (char *) malloc(15*sizeof(char)); strcpy (FCell.Isel.form, "XYZ12"); /* Type cell adalah integer */ ICell.adrbrs = 'A'; ICell.adrkol = 2; ICell.Tsel = integer; ICell.Isel.nili = 10; /* Type cell adalah bilangan */ RCell.adrbrs = 'A'; RCell.adrkol = 3; RCell.Tsel = riil; RCell.Isel.nilf = 10.55; return 0; } /* File : RecVarx.c */ int main() { /* Record Varian dengan type bentukan*/ /* Kamus */ /* Gambar adalah bentuk yang dapat berupa garis, segi empat */ typedef enum typedef struct int int typedef {garis, segi4} trec ; { x; y ; } Point; struct { Point Pawal ; /* titik awal */ Point Pakhir ; /* titik akhir*/ } TGrs; typedef struct { /* Segi empat */ Point TopLeft ; /* Kiri atas */ Point BottRight ; /* Kanan bawah */ } TS4; typedef union { TGrs G; TS4 S4 ; } Geo; typedef struct { int id ; /* identitas gambar */ trec TBentuk; /* penentu bentuk gambar */ Geo G; } Gambar ; /* Variabel */ G...
View Full Document

Ask a homework question - tutors are online