Senin, 30 Mei 2011

turbo pascal 1.5 - deret kelipatan x yang kurang dari y


program deretkelipatanxyangkurangdariy;
uses wincrt;

var
     x,y,i:integer;

begin
     write('X     = ');readln(x);
     write('Y     = ');readln(y);
     write('Deret = ');
     i:=x;
     while x<y do
     begin
          write(x,' ');
          x:=x+i;
     end;
end.

Rabu, 11 Mei 2011

turbo pascal 1.5 - larik 1

program larikduadimensi;
uses wincrt;
type
    tipenama=array[1..100] of string;
    tipenilai=array[1..100] of integer;

var
     i,n,maks,min,jum:integer;
     nama:tipenama;
     nilai:tipenilai;
     nama1,nama2:string;
     ratarata:real;
begin
     write('berapa jumlah data yang ingin diinputkan : ');readln(n);
     clrscr;
     writeln('======================================================');
     writeln('   no          nama                     nilai akhir   ');
     writeln('======================================================');

     for i:=1 to n do
     writeln('   ',i:2,'   ..........................         .....    ');

     writeln('======================================================');
     writeln('nilai terbesar  :          oleh ');
     writeln('nilai terendah  :          oleh ');
     writeln('nilai rata-rata : ');

     jum:=0;
     maks:=0;
     min:=100;
     for i:=1 to n do
     begin
          gotoxy(9,3+i);writeln('                          ');
          gotoxy(9,3+i);readln(nama[i]);
          gotoxy(44,3+i);writeln('     ');
          gotoxy(45,3+i);readln(nilai[i]);
          if maks             begin
             maks:=nilai[i];
             nama1:=nama[i];
             end;
          if min&gt;nilai[i] then
             begin
             min:=nilai[i];
             nama2:=nama[i];
             end;
          jum:=jum+nilai[i];
     end;
     ratarata:=jum/n;
     gotoxy(20,5+n);writeln(maks);
     gotoxy(33,5+n);writeln(nama1);
     gotoxy(20,6+n);writeln(min);
     gotoxy(33,6+n);writeln(nama2);
     gotoxy(20,7+n);writeln(ratarata:0:2);

end.


Sabtu, 07 Mei 2011

turbo pascal 1.5 - perulangan bersarang 5


program segitigabintang; {program menampilkan karakter bintang menjadi piramyd sebanyak N baris}
uses wincrt;

var
     i,j,N :integer;

begin
     write('berapa jumlah baris bintang : '); readln(N);
     writeln;

     for i:=1 to N do
     write(' ');
     write('*');
     writeln;


     for i:=N downto 2 do
     begin
          for j:=i downto 2 do
          begin
               write(' ');
          end;

          for j:=i to N do
          begin
               write('*');
          end;

          write('*');

          for j:=i to N do
          begin
               write('*');
          end;
          writeln;
     end;

end.

turbo pascal 1.5 - perulangan faktorial


program faktorial; {program menghitung nilai faktorial dari inputan N}
uses wincrt;

var
     i,N,jumlah :integer;

begin
jumlah:=1;
     write('inputkan suatu nilai    : '); readln(N);
     write('faktorial dari ',N,' adalah : ');
     write('1');
     for i:=2 to N do
     begin
          write(' x ',i);
          jumlah:=jumlah*i;
     end;
     write(' = ',jumlah);

end.

turbo pascal 1.5 - perulangan bersarang 4

program segitigabintang;  {program menampilkan karakter bintang sebanyak N baris}
uses wincrt;

var
     i,j,N :integer;

begin
     write(' berapa jumlah baris bintang : '); readln(N);
     writeln;

     for i:=n downto 1 do
     begin
          for j:=1 to i do
          begin
               write(' ');
          end;

          for j:=i to N do
          begin
               write('*');
          end;
          writeln;
     end;

end.

turbo pascal 1.5 - perulangan bersarang 3

program segitigabintang; {program menampilkan karakter bintang sebanyak N baris}
uses wincrt;

var
     i,j,N :integer;

begin
     write(' berapa jumlah baris bintang : '); readln(N);
     writeln;

     for i:=n downto 1 do
     begin
          for j:=i to n do
          begin
               write(' ');
          end;

          for j:=1 to i do
          begin
               write('*');
          end;
          writeln;
     end;

end.

turbo pascal 1.5 - perulangan bersarang 2


program segitigabintang; {program menampilkan karakter bintang sebanyak N baris}
uses wincrt;

var
     i,j,N :integer;

begin
     write('berapa jumlah baris bintang : '); readln(N);
     writeln;

     for i:=n downto 1 do
     begin
          for j:=1 to i do
          begin
               write('*');
          end;
          writeln;
     end;

end.

turbo pascal 1.5 - perulangan bersarang



program segitigabintang; {program menampilkan karakter bintang sebanyak N baris}
uses wincrt;

var
     i,j,N :integer;

begin
     write('berapa jumlah baris bintang : '); readln(N);
     writeln;

     for i:=1 to N do
     begin
          for j:=1 to i do
          begin
               write('*');
          end;
          writeln;
     end;

end.

Microprosesor AVR Studio 4 - Contoh Program 3

Operasi Logika dan Pergeseran



.include"8535def.inc"
.org 0x0000
rjmp utama

utama:

ldi r16,low(RAMEND)
out spl,r16
ldi r16,high(RAMEND)
out sph,r16

ldi r16,0xff
out ddra,r16
ldi r16,0x00
out ddrc,r16

ulang:
    in r16,pinc

    mov r17,r16
    swap r17
    lsl r17
    lsl r17
    lsl r17
    andi r17,0b10000000

    mov r18,r16
    swap r18
    lsl r18
    andi r18,0b01000000

    mov r19,r16
    swap r19
    lsr r19
    andi r19,0b00100000

    mov r20,r16
    lsl r20
    andi r20,0b00010000

    mov r21,r16
    lsr r21
    andi r21,0b00001000

    mov r22,r16
    swap r22
    lsl r22
    andi r22,0b00000100

    mov r23,r16
    swap r23
    lsr r23
    andi r23,0b00000010

    mov r24,r16
    swap r24
    lsr r24
    lsr r24
    lsr r24
    andi r24,0b00000001

    or r17,r18
    or r17,r19
    or r17,r20
    or r17,r21
    or r17,r22
    or r17,r23
    or r17,r24
    out porta,r17

rjmp ulang



KETERANGAN
Jika Saklar PinC0 ditekan maka Led di PortA7 menyala
Jika Saklar PinC1 ditekan maka Led di PortA6 menyala
Jika Saklar PinC2 ditekan maka Led di PortA5 menyala
Jika Saklar PinC3 ditekan maka Led di PortA4 menyala
Jika Saklar PinC4 ditekan maka Led di PortA3 menyala
Jika Saklar PinC5 ditekan maka Led di PortA2 menyala
Jika Saklar PinC6 ditekan maka Led di PortA1 menyala
Jika Saklar PinC7 ditekan maka Led di PortA0 menyala