Selasa, 31 Mei 2011

Struct & Record

Kali ini, admin akan memberi contoh program mengenai STRUCT dalam bahasa pemrograman C dan juga pascal.. Dimana struct adalah sekumpulan variabel yang masing-masing dapat berbeda tipe, dan dikelompokkan ke dalam satu nama. Di pascal dikenal dengan nama record.


Contoh program sederhana menggunakan struct:
#include
#include

struct movies
{
char title [50],year[10];
}
films [10];
int main()
{

int n,b; clrscr();
gotoxy(23,1);printf("Program Sederhana Array Dalam Struct\n\n");
printf("Jumlah film yang akan dimasukkan: ");scanf("%i",&b);
for (n=1;n<=b;n++)

{
printf ("\nMasukkan judul film: "); scanf ("%s",films[n].title); 
printf ("Masukkan tahun : "); scanf ("%s",films[n].year); 
}
printf ("\n\nFilm yang menjadi favourite kamu: \n\n"); 
for (n=1;n<=b;n++) 
{
printf ("%s ",films[n].title); 
printf ("(%s",films[n].year);printf(")\n"); 
} getch();
}
 
Kalau di-convert ke pascal, akan menjadi seperti ini:

uses crt;
type
movies=record
title,year:array [1..10] of string;
end;

var
films:array [1..10] of movies;
n,b:integer;
begin
clrscr;
n:=0;
gotoxy(23,1);writeln('Programm Sederhana Arrayy Dalam Recordd');writeln;
write('Jumlah film yang akan dimasukkan: ');readln(b); writeln;
for n:=1 to b do
begin
write ('Masukkan judul film ke-',n,': ');readln(films[n].title[n]);
write ('Masukkan tahun : ');readln(films[n].year[n]);writeln;
end;
writeln('Film yang menjadi favourite kamu: ');writeln;
for n:=1 to b do
begin;
write(films[n].title[n]);
writeln(' (',films[n].year[n],')');
writeln;
end;readln;end.
Baca Selengkapnya