Ari Usman Chaniago
Berbagi itu Indah
Category: Ari Usman
Category: Ari Usman
Pascal : 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
DetailsAssembly : Coding Faktorial
; this example gets the number from the user, ; and calculates factorial for it. ; supported input from 0 to 8 inclusive! name “fact” ; this macro prints a char in AL and advances ; the current cursor position: putc macro char push ax mov al, char mov ah, 0eh int 10h pop ax
DetailsAssembly : Program Calculator
name “calc2” ; command prompt based simple calculator (+,-,*,/) for 8086. ; example of calculation: ; input 1 <- number: 10 ; input 2 <- operator: – ; input 3 <- number: 5 ; ——————- ; 10 – 5 = 5 ; output -> number: 5 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; this maro is copied from emu8086.inc ;;;
Details
Aplikasi Processing untuk Grafika Komputer
ariusman.id | Banyak di kalangan akademisi berlomba-lomba membuat beberapa terobosan dalam ilmu komputer. Sebelumnya untuk mengenalkan komputer grafis kita selalu mengacu kepada pengalaman kita waktu belajar terdahulu. Misal selalu patokannya Bahasa C, OpenGL ataupun matlab. Sekarang untuk memudahkan pemahaman grafika komputer kepada mahasiswa saya sudah beralih ke aplikasi processing, dimana aplikasi ini bersifat open source
Details