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>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.
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
maks:=nilai[i];
nama1:=nama[i];
end;
if min>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.
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.
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
Langganan:
Postingan (Atom)