Ari Usman Chaniago
Berbagi itu Indah
Category: Ari Usman
Category: Ari Usman
MENYUSUN VISI, MISI, TUJUAN, SASARAN DAN PROGRAM PERUSAHAAN
Setiap insan pasti tidak akan asing dengan kata visi dan misi, baik untuk kehidupan pribadi maupun organisasinya. Untuk itu dalam menyusun visi dan misi maka harus diketahui terlebih dahulu apa itu visi, misi, tujuan, sasaran dan program perusahaan. Tujuannya untuk berkelanjutan dan meningkatkan kestabilan perusahaan tersebut. Maka di sini saya berusaha berbagi agar tidak terjadi
Details
Pascal : Coding Konversi Biner to Desimal
Program konversi_Biner_to_Dec;uses crt;var bilBiner : String; function pangkat(a, b : integer): integer;var i, hasil : integer;beginhasil := 1;for i:=1 to b dobeginhasil := hasil * a;end;pangkat := hasil;end; function bin2Dec(biner : string) : integer;var n, sum, i : integer;beginn := length(biner);sum := 0;for i := n-1 downto 0 dobeginif (biner [n-1] = ‘0’) then sum
DetailsPascal : Coding Konversi Desimal to Biner
Program konversi_Desimal_to_Biner;uses crt;var bilangan:integer; function decToBin(desimal:integer):string;var hasilbagi, sisa:integer;bin:char;bilBiner:string;beginhasilBagi := desimal div 2;bilBiner := ”; while (hasilBagi >= 1) dobeginsisa := desimal mod 2;if (sisa = 0)then bin := ‘0’else if (sisa = 1) then bin := ‘1’; bilBiner:=bin + bilBiner; desimal := hasilBagi;hasilBagi := desimal div 2;end;decToBin:=’1′ + bilBiner;end; beginclrscr;writeln(‘KONVERSI BILANGAN DESIMAL KE BINER’);writeln;write(‘masukkan bilangan
DetailsPascal : Coding Penjumlahan Matriks
program Penjumlahan_Matrix;uses crt;const kolom=10;baris=10;type matrix=array[1..baris,1..kolom] of integer;var matrix_A,matrix_B:matrix;a,b:integer;procedure InputMatrix(var x:matrix);var i,j:integer;beginfor i := 1 to a dobeginfor j := 1 to b dobeginwrite(‘Masukkan Elemen[‘,i,’,’,j,’]:’);readln(x[i,j]);end;end;end;procedure CetakMatrix(var x:matrix);var i,j:integer;beginfor i := 1 to a dobeginfor j := 1 to b dobeginwrite(x[i,j]:4);end;writeln;end;end;procedure JumlahMatrix(var x,y:matrix);var z:matrix;i,j:integer;beginfor i:=1 to a dobeginfor j:=1 to b dobeginz[i,j]:=x[i,j] + y[i,j];write(z[i,j]:4);end;writeln;end;end;beginclrscr;write(‘Masukkan Jumlah Baris :
DetailsPascal : Coding Bintang Piramid
Program Bintang1;uses crt;var i,j,n:integer;beginclrscr;writeln(‘———————————————–‘);writeln(‘ PROGRAM BINTANG BERBENTUK PIRAMID ‘);writeln(‘———————————————–‘);write(‘masukkan nilai = ‘); readln (n);for i:=1 to n dobeginif (i mod 2 = 1) thenbeginfor j:=1 to ((n-i) div 2) do write(‘ ‘);for j:=1 to i do write(‘*’);writeln;end;end;readln;readkey;end.
DetailsPascal : Coding Hitung Jumlah Karakter dalam Kalimat
Program Hitung_Karakter_dalam_Kalimat;uses crt;var kalimat:string;i,p,karakter:integer;beginclrscr;writeln(‘ ———————————————— ‘);writeln(‘ PROGRAM MENGHITUNG JUMLAH KARAKTER DALAM KALIMAT ‘);writeln(‘ ———————————————— ‘);writeln;writeln(‘ Ketikkan sebuah kalimat : ‘);writeln;write(‘ ‘);readln(kalimat);p:=length(kalimat); karakter:= 0;for i:=1 to p dobeginif kalimat[i]in[‘a’..’z’,’ ‘] then karakter := karakter+1;end;writeln;writeln(‘ Jumlah karakter yang anda ketik ada : ‘,karakter,’ karakter ‘);readkey;end.
DetailsPascal : Coding Hitung Kata dalam Kalimat
Program Hitung_Kata_dalam_Kalimat;uses crt; var kalimat:string;jumlah:integer; procedure jumlah_kata(kata:String; var jumlah:integer);var i:integer;beginif(kata[1]=”) then jumlah:=0else jumlah:=1;for i:=1 to length(kata) dobeginif (kata[i]=”) and (kata[i+1]<>”) and (kata[i+2]<>”) then inc(jumlah)Else if (kata[i]=’ ‘) and (kata[i-1]<>”) and (kata[i+1]<>”) then inc(jumlah);end;end; beginclrscr;writeln(‘ ———————————————— ‘);writeln(‘ PROGRAM MENGHITUNG JUMLAH KATA DALAM KALIMAT ‘);writeln(‘ ———————————————— ‘);writeln;write(‘ Ketikkan sebuah kalimat : ‘);readln(kalimat);jumlah_kata(kalimat,jumlah);writeln(‘ Jumlah kata yang anda ketik
Details
Assembly : Coding Posisi Mouse
; mouse test name “mouse” org 100h print macro x, y, attrib, sdat LOCAL s_dcl, skip_dcl, s_dcl_end pusha mov dx, cs mov es, dx mov ah, 13h mov al, 1 mov bh, 0 mov bl, attrib mov cx, offset s_dcl_end – offset s_dcl mov dl, x mov dh, y mov bp, offset s_dcl int 10h
DetailsAssembly : Coding Convert to UPPERCASE
; this is a program in 8086 assembly language that ; accepts a character string from the keyboard and ; stores it in the string array. the program then converts ; all the lower case characters of the string to upper case. ; if the string is empty (null), it doesn’t do anything. name “upper”
DetailsAssembly : Coding Traffic Light
; controlling external device with 8086 microprocessor. ; realistic test for c:\emu8086\devices\Traffic_Lights.exe start=Traffic_Lights.exe name “traffic” mov ax, all_red out 4, ax mov si, offset situation next: mov ax, [si] out 4, ax ; wait 5 seconds (5 million microseconds) mov cx, 4Ch ; 004C4B40h = 5,000,000 mov dx, 4B40h mov ah, 86h int 15h add
Details