LOOPING GOTO

                              {SPAP1006077TUGAS5}
PROGRAM menentukan_genap_gajil_dengan_batas_max;

uses crt;
var
{
i,x:word;
label 1;

begin
clrscr;
writeln('Tulis batas nilai maksimal yang di tampilkan: '); readln(x);
i:=0;
1:i:=i+1;
write(i,' ');
if (i mod 2=0) then writeln('adalah bilangan genap')
else writeln ('adalah bilangan ganjil');
if  i < x then
goto  1;

readln;
end.

LINK DOWNOAD :

FILE PDF

FILE PAS

uzzumaki_naruto Senin, 15 Agustus 2011

SELECTION (IF)

program selection;
uses crt;


const phi = 3.14;

var l,sisi,jari,panjang,lebar: real;
    nama : string;
    pilih: word;


    begin
    clrscr;


    write('Tuliskan nama :'); readln(nama);

    writeln('pilih menu:');
    writeln('1 Hitung luas persegi');
    writeln('2 Hitung luas lingkaran');
    writeln('3 Hitung luas persegi panjang');
    writeln('4 Hitung luas permukaan bola');
    writeln('5 Keluar program ');

    write('Masukan no menu:');
    readln(pilih);
    clrscr;
    if (pilih = 1) then

    begin
    clrscr;
    write('Masukan nilai sisi :'); readln(sisi);
    l:=sisi*sisi;
    end else

    if (pilih = 2) then

    begin
    clrscr;

    write('Masukan nilai jari-jari :') ;readln(jari);
    l:= phi*jari*jari;
    end else
    if (pilih = 3) then
    begin
    clrscr;

    write ('Masukan nilai panjang:'); readln(panjang);
    write ('Masukan nilai lebar :');readln(lebar);
    l:=panjang*lebar;
    end else

    if (pilih = 4) then
    begin
    clrscr;

    write('Masukan nilai jari-jari:'); readln(jari);
    l:=4*phi*jari*jari;
    end else

    if (pilih =5) then
    begin
    clrscr;

    writeln ('Keluar program ....sampai jumpa lagi');
    end;

    writeln(l:0:2);
    readln;
    end.

link download:
file docx
file pdf
file pas

uzzumaki_naruto

MENHITUNG LUAS PERSEGI PANJANG

                          {SPAP1006077TUGAS2}

{Header}

program luas_persegi_panjang;

{Deklaration}

uses crt;

var

 p,l,luas : integer ;

{Body}

 begin

 clrscr;

 write('masukan nilai panjang ='); readln(p);

 write('masukan nilai lebar =') ; readln(l);

 luas := p*l;

 writeln ('luas=',luas);

 readln;

 end.

 link download:

file docx

file pdf

file pas

uzzumaki_naruto

TIPE DATA REAL

program


{SPAP1006077TUGAS3}

{HEADER}
program luas_permukaan_bola;
uses crt;

{DEKLARATION}
const phi = 3.14;
var

 l, r : real;


 {BODY}
begin
clrscr;
write ('masukkan nilai jari-jari= '); readln (r);
l:=4*phi*sqr(r);
writeln ('luas permukaan bola adalah = ',l:0:2);
readln;
end.

link download complite:

FILE PDF

FILE DOCX

FILE PAS

uzzumaki_naruto

MENGHITUNG LUAS PERMUKAAN BOLA

                           {SPAP1006077TUGAS3}

{HEADER}
program luas_permukaan_bola;
uses crt;

{DEKLARATION}
const phi = 3.14;
var

 l, r : real;


 {BODY}
begin
clrscr;
write ('masukkan nilai jari-jari= '); readln (r);
l:=4*phi*sqr(r);
writeln ('luas permukaan bola adalah = ',l:0:2);
readln;
end.


lengkapnya

link download :
SPAP1006077TUGAS3.DOCX

SPAP1006077TUGAS3.PDF

SPAP1006077TUGAS3.rar

uzzumaki_naruto Rabu, 10 Agustus 2011

TUGAS PERTAMA SA

PROGRAM PASCAL 

ket : {...}=/*...*/    komentar

{ Tugas pertama menampilkan kata }

uses crt;

begin                              { memulai program(reserved word )}

clrscr;                             { membersihkan layar }

        write(" hello ");        {isi program}

readln;                            { berpungsi untuk menampilkan hasil }

end.                               { akhir program (reserved word) }

PROGRAM C

/* Tugas pertama menampilkan kata */

#include "stdio.h"

main ()

{                                     /* dalam pascal sama dengan begin */

      printf("hello");           /* isi program */

}                                   /* dalam pascal sama dengan end */

uzzumaki_naruto Kamis, 04 Agustus 2011

Bilangan Ganjil dan Genap

bagan tubuh program

printf ("ketikan sembarang bilangan :"); scanf("%i",&bil);

if (bil % 2 ==0)

intruksi  % (mod)  membagi 2 bilangan dan yang diambil adalah hasil sisa  ..

download link

Menetukanbilanganganjil(if)

Menentukanbilanganbulat(if)

uzzumaki_naruto Senin, 25 Juli 2011