Program pascal Menentukan Bilangan Terbesar dan terkecil

Bilangan Terbesar dan terkecil

ini gan cekidot..ane punya ilmu program TPW  (Pascal) sekedar hanya ingin memberi ilmu aja gan
hehe...

uses wincrt;
var
dafbil:array[1..100] of integer;
terbesar :integer;
terkecil :integer;
i,n :integer;
begin

Read more »

Pengantar Manajemen Dan Bisnis|Griffin Manajemen|

LINGKUNGAN GLOBAL

1.    Deskripsikan sifat tujuan organisasi. Pastikan untuk memasukan baik maksud dan jenis tujuan tersebut ?

    AnswersSifat tujuan organisasi ini memiliki empat maksud dasar yaitu untuk menyadiakan petunjuk dan arah,untuk memfasilitasi perencanaan,untuk mendorong motivasidan komitmen,dan untuk mempromosikan evaluasi dan pengendalian. Tujuan dapat dibedakan menurut tingkat,bidang dan kerangka waktu.

Maksud dari tujuan organisasi

1.     Tujuan memberikan petunjuk dan kesatuan arah untuk orang-orang dalam organisasi. Tujuan dapat membantu setiap orang memahami arah yang akan ditempuh oleh suatu organisasi dan mengapamenuju kesana adalah penting

Read more »

Program Pascal Pengurutan Angka

penggurutan angka (looping)

Pernahkah kalian dikasih nilai ulangan siswa lalu disuruh ngurutin dari yang kecil ke gede? Kalo jumlahnya dibawah 10 sih gak masalah, lah kalo ada 100 biji kan berabe... Ini solusinya:

  1: Program Pengurutan;

  2: var i, j: integer;

  3:   k : longint;

  4:   a: array[1..5] of longint;

  5: begin

  6:   writeln('PROGRAM MENGGURUTKAN ANGKA');

  7:   writeln('--------------------------');

  8:   for i:=1 to 4 do

  9:     begin

Read more »

Program Pascal Menentukan Bilangan Terbesar Menggunakan IF

menentukan bilangan terbesar (dengan if)

Ini adalah program terakhir untuk mematangkan penggunaan kondisi if. Pernah kah kalian membuat program dengan susah payah tetapi setelah ditunjukkan dengan orang lain, mereka bilang "Hanya gitu doank kerjanya?". He he he... sakit hati emang :-(, kalo bisa rasanya pengen nimpuk tu orang dengan hardisk SEAGATE BARACUDA 80 giga lima biji :)). Ini salah satu program yang panjang, tapi fungsinya... yaa... gitulah :D

  1: Program BilanganTerbesar;

  2: Var bil1, bil2, bil3 :real;

  3: Begin

  4:   Write('Masukkan Bilangan Pertama : ');Readln(bil1);

  5:   Write('Masukkan Bilangan Kedua : ');Readln(bil2);

  6:   Write('Masukkan Bilangan Ketiga : ');Readln(bil3);

  7:   If (bil1=bil2) and (bil2=bil3) then

  8:     Writeln('Semua bilangan yang anda masukkan sama

Read more »

Menentukan Bilangan Ganjil, Genap dan Prima Dengan Program Pascal

Program Pascal: menentukan bilangan ganjil, genap dan prima

Pernah kan pas di SD kita disuruh nentuin bilangan ini ganjil apa genap, prima apa bukan. Sekarang kita jadiin program.

  1: Program JenisBilangan;

  2: var bil: longint;

  3: begin

  4:   writeln('MENENTUKAN JENIS BILANGAN');

  5:   writeln('-------------------------');

Read more »

Program Pascal: menghitung luas/keliling bangunan

Yup... sekarang kita buat program yang pertama, menghitung luas dan keliling bangunan. Bangunan yang dijadikan contoh adalah segitiga. Perhatikan contoh di bawah ini:

  1: Program Menghitung_Luas_dan_Keliling;

  2: var alas, tinggi, sisimiring, luas, keliling: real;

  3: Begin

Read more »

Contoh Program Turbo Pascal

      Assalamulaikum...
Langsung saja ke topik pembicaraan saya ingin berbagi ilmu yang saya da[at dari sekolah saya..hanya sekedar inginmembantu temen-temen sekalian..
ini saya punya beberapa Program Turbo Pascal..di jamin program ini jalan gan.. Langsung aja deh...>>

1.    program cari suku fibonacci

program cari_suku_fibonacci;

uses wincrt;

var

x:array[1..50] of integer;

i,n:integer;

Read more »