Teknik Informatika

program array dalam delphi , sebagai contoh nih scriptnya


procedure TForm1.Button1DoubleClick(Sender: TObject);
var a,b:integer;
    nama    :array [1..90]of string;
    kelas   :array [1..90]of string;
    jurusan :array [1..90]of string;

begin
if Edit1.Text<>'' then
begin
b:=StrToInt(Edit1.Text);
for a:=1 to b do
  begin
    nama[a]   :=InputBox('Nama','Nama','');
    kelas[a]  :=InputBox('Kelas','Kelas','');
    Jurusan[a]:=InputBox('Jurusan','Jurusan','');
  end;

StringGrid1.RowCount:=b+1;
for a:=1 to b do
  begin
    StringGrid1.Cells[1,a]:=nama[a];
    StringGrid1.Cells[2,a]:=kelas[a];
    StringGrid1.Cells[3,a]:=jurusan[a];
  end;


end
  else
    Application.MessageBox('Masukkan Data','Error');
    Edit1.SetFocus;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
StringGrid1.cells[0,0]:= 'No'     ;
StringGrid1.cells[1,0]:= 'Nama'   ;
StringGrid1.cells[2,0]:= 'Kelas'  ;
StringGrid1.cells[3,0]:= 'Jurusan';

end;

end.


Nih ss design program nya

 












Silahkan mencoba semoga bermanfaat bagi bagi cendol juga ya jangan lupa :p

kali ini saya akan memberikan penerangan buat agan agan n sista yang mendapatkan tugas yang sama kek saya tentang menjumlah 2 buah matrik menggunakan pascal

langsung aja ke TKP ya gan nih scriptnya :

Uses Crt;
Var B,K,Br,Kl,C,L : Byte;
M1,M2,M3  : Array[1..10,1..10] of Byte;
Begin
Clrscr;
Gotoxy(10,5);Write(‘***** Menjumlahkan Dua Buah Matriks*****’);
Gotoxy(10,7);Write(‘Jumlah Ordo Matriksnya =   x   ‘);
Gotoxy(35,7);Readln(B);
Gotoxy(39,7);Readln(K);
Gotoxy(10,9);write(‘Masukkan Matriks Ke Satu’);
L:=10;
For br := 1 to b do
Begin
c := 15;
For kl :=1 to k do
Begin
gotoxy(c,l);readln(m1[br,kl]);
c := c + 2;
end;
l := l + 1;
end;
Gotoxy(10,14);write(‘Masukkan Matriks Ke Dua’);
l:=15;
For br := 1 to b do
Begin
C := 15;
For kl := 1 to k do
Begin
Gotoxy(c,l);readln(m2[br,kl]);
C := c + 2;
end;
L := L + 1;
end;
Gotoxy(10,18);write(‘Maka Hasil Penjumlahan Matriks’);
L:=20;
For br := 1 to b do
Begin
C:=15;
For kl := 1 to k do
Begin
M3[br,kl] := M1[br,kl] + M2[br,kl];
Gotoxy(c,l);Write(m3[br,kl]);
C := c + 2;
end;
L := L + 1;
end;
Readln;
End.


 nih ss nya gw kasih juga :




ok semoga artikel ini membantu kalian semua ya 
terima kasih
 

guys gw kali ini mau share tentang konversi bilangan
nah dulu kita di kenalkan berbagai macam bilangan kan
sekarang di TI kita di kenalkan bilangan baru nih namanya bilangan binner dimana bilangan tersebut hanya berisi bilangan '0' dan '1' yang berarti 'TRUE' or 'FALSE' nah konversi dari desimal ke binner cukup ribet makanya di sini gw mau share sedikit tentang pembuatan program konversi desimal ke binner
nih script nya ada di bawah ini :

Uses crt;

Var     Des     : Integer;
        ulang   : char;
        Bin     : String;

begin
ulang:='y';
while ulang='y' do
Begin
Write ('Masukan Bilangan Desimal : ');
ReadLn (Des);
Bin := ' ';
Repeat
Begin
{Menghitung Biner Dari Sisa Hasil Bagi}
If Des mod 2 = 0 Then Bin := '0' + Bin
Else Bin := '1' + Bin;
{Membagi Bulat Bil Desimal}
Des := Des div 2;
End;
Until Des = 0;
WriteLn ('Bilangan Biner : ',Bin);
write ('Ulang Lagi [y/n] =');
readln(ulang);
clrscr;
End;
End.

simple kan nih output nya gw kasih juga

 pict : output
 












Ok ini hasil dari  kerja iseng dari saya terimakasih
jangan lupa puja kerang ajaib LoL