program nyatakan cinta

program katakancinta;
uses crt;
var
 x,z:char;

begin
 clrscr;
 writeln('        888888        8888888');
 writeln('      8888222222     8888888888');
 writeln('    8888822222222   8888888888888');
 writeln('  888822222222228888222288888888888');
 writeln(' 888882222222888__I__888222222288888');
 writeln('8888822222222888888888882222222888888');
 writeln(' 88888888888888__LOVE__2222288888888');
 writeln('  888888222222222222222222222228888');
 writeln('   8888222228888__YOU__88822222888');
 writeln('    88888822222222222222228888888');
 writeln('     888888822222222222228888888');
 writeln('      8888882222222222222288888');
 writeln('       88888822222222222888888');
 writeln('        888888882222228888888');
 writeln('         8888882222222888888');
 writeln('          88888222222288888');
 writeln('           888822222228888');
 writeln('            8882222222888');
 writeln('             88222222288');
 writeln('              882222288');
 writeln('               8222228');
 writeln('                82228');
 writeln('                 828');
 writeln('                  8');
 writeln('             I LOVE YOU');
 writeln('dek,selama ini aku sayang sama kamu');
 writeln('kamu mau gak dek jadi pacar aku ?');
 writeln('jawab dengan Y untuk Ya dan N untuk Tidak');
 writeln;
 writeln('=========================================');
 writeln;
 z:=readkey;
 case z of
  'Y':writeln('i love you :">');
  'N':writeln('i hate you')
 else
  writeln('Jawab ya dek dengan tekan Y untuk ya N untuk tidak.');
 end;
 z:=readkey;
 case z of
  'Y':writeln('i love you :">');
  'N':writeln('walau pun ditolak abang tetep suka sama adek  hikz...')
 else
 end;
 readln;
end.

Read More

matriks transpose

#include <stdio.h>
#include <conio.h>

main (void)
{
    int B[100][100],a,b,c,d;
    printf("masukan jumlah baris :");
    scanf ("%d",&c);
    printf ("masukan jumlah kolom :");
    scanf ("%d",&d);
    printf ("\n\n");
   
    for (a=0;a<c;a++)
    {
        for (b=0;b<d;b++)
        {
            printf ("masukan elemen ke [%d][%d] :",a,b);
            scanf ("%d",&B[a][b]);
            }
            }
           
        printf ("\n\n Hasil pada matriks : \n\n");
        for (a=0;a<c;a++)
        {
            for (b=0;b<d;b++)
            printf("%3i",B[a][b]);
            printf ("\n");
        }
        printf ("\n\n hasil matriks tranpose : \n\n");
        for (a=0;a<d;a++)
       {
            for (b=0;b<c;b++)
            printf ("%3i",B[b][a]);
            printf ("\n");
       }
       getche ();
       }    

Read More

Dasar Pemograman

Untuk membuat program anda harus terlebih dahulu tau dasarnya, anda bisa memulainya dengan belajar bahsa pasca atau bahasa C++ disana anda belajar memasukan kode-kode yanng kemudian muncul output yang anada ingginkan.


anda bisa download pascal dan C++ di link sebagai berikut :
pascal :http://www.4shared.com/file/b4vdQ3mV/fpc-244i386-win32.html
C++ : http://www.4shared.com/file/Y9-ETBZV/devcpp-4992_setup.html

Read More