FAKULTAS TEKNOLOGI INFORMASI DAN KOMUNIKASI
Selamat Datang di Forum FTIKOM.

"Information & Communication Technology Faculty"
"UNIVERSITAS MULAWARMAN"


Daftarkan Diri Anda. Selamat Berposting.
Ramekan Forum kita guna memajukan Fakultas kita.

Best Regard

tugas pengganti UAS praktikum B-2

Topik sebelumnya Topik selanjutnya Go down

tugas pengganti UAS praktikum B-2

Post  Jaafaru on Thu Dec 23, 2010 3:16 am

hola... kembali lagi bersama sy Jaafaru atau yang dikenal di dunia persilatan sebagai DJ
hahahaha hahahaha hahahaha

Spoiler:

udah lama g posting neh,setelah lama larut di banjir wasior kemarin,akhirnya DJ mempersempatkan diri untuk posting...
nah,pada kesempatan kali ini DJ akan post tentang tugas pengganti UAS praktikum (khusus B-2) tugas nya berupa program pascal dengan syarat,harus ada syntax:
- if... then... else...
- for... do
- while... do
- repeat... until
- (tidak menggunakan syntax "case" karena belum di ajarkan)

setelah banyaknya permintaan untuk program ini post (prasaan cuma satu orang,yaitu om alvi haryadi) DJ proudly present....

lyat dulu~
Spoiler:










nah,untuk yang menanyakan berapa baris program itu,jujur sy malas sekali ngitungnya,silahkan menghitung sendiri bila anda berminat Senyum bah Senyum bah Senyum bah

hasilnya nih~
Spoiler:






nah,gimana? pusing? sy juga,karena sy mengerjakannya pada saat mabok,pas sadar tiba-tiba jadi,hahaha < gaje yak?


untuk scriptnya~
Spoiler:

{program??? dibuat oleh Djaffar pada 18 desember 2010}
uses crt;
var
name,pass,c:string;
a,b,d,e,f,g:integer;
code:char;

procedure introduction(add,school:string);
begin
writeln(name,' where do you come from?');
readln(add);
writeln('and where school are you?');
readln(school);writeln;
writeln('okay,you are...');
writeln('name: ',name);
writeln('add: ',add);
writeln('school: ',school);writeln;
writeln('welcome to my program... before that i am Djaffar alias DJ');
end;
procedure identifier(code:char);
begin
repeat
writeln(name,' do you know the password for this program?');
readln(pass);
if pass='katana' then
begin
writeln('gotcha! welcome to the program');
sound(1467);
delay(1000);
sound(4563);
delay(100);
nosound;
code:='t';
writeln('press ENTER to clear screen and next to the quiz');
end
else
begin
writeln('this is a little hint for you,japanese sword???');
sound(1004);
delay(1000);
sound(6666);
delay(100);
nosound;
code:='y';
end;
until(code='t');
end;
begin
clrscr;
writeln('hello! who are you?');
readln(name);
introduction('add','school');
identifier(code);
readln;
clrscr;
writeln('i have a little quiz for you ',name,' would you answer it?');
writeln('HOW THE SHAPE OF EARTH,round or what?');
writeln('the answer format is...');
write('round=1 or ');writeln('else=0');
readln(a);
if a=0 then
begin
a:=0;
while a<1 do
a:=a+1;
writeln;writeln('nice logical and knowledge you have there ^^b');writeln;
end
else
writeln;writeln('i do not think so... because of global warming our earth become more ELIPS shape');writeln;
writeln('however,that is just my opinion... okay ',name,' would you see something weird?');writeln;
writeln('what is your favorite number?');
readln(b);
writeln('what is your favorite symbol? (this mean anything symbol on your keyboard)');
readln(c);
writeln('okay,see this...');writeln;
writeln(c);
for d:=1 to b do
begin
for e:=1 to 1 do
write(c);
begin
for f:=2 to d do
write(' ');writeln(c);
if d=b then
begin
for g:=1 to b+2 do
write(c);
end;end;end;
writeln;
writeln;
writeln('hahaha... see you next time... btw,why i use english?');
writeln('karena saya tidak dapat menemukan kata-kata yang cocok untuk pemrograman');
writeln('silahkan tekan ENTER untuk keluar program');
readln;
end.

sy menggunakan program Turbo Pascal 7 untuk program diatas dan bagi yang menggunakan aplikasi Turbo Pascal for Windows alias TPW,jangan gundah gulana tapi hanya perlu sedikit merubah syntax pada:

- uses crt; --->uses wincrt;
- sound(1004); --->hapus
delay(1000); --->hapus
sound(6666); --->hapus
delay(100); --->hapus
nosound; --->hapus


selamat mencoba dan mengedit...
semoga bisa membantu

_________________________________________________
|...|##|...|##|...|...|##|...|##|...|##|...|
|...|##|...|##|...|...|##|...|##|...|##|...|
|...|##|...|##|...|...|##|...|##|...|##|...|
|......|........|......|......|........|........|......|
|......|........|......|......|........|........|......|
Gembira ni yePlay the Tune!!!
Gembira ni ye
"Orang-orang menertawakanku karena aku berbeda, sedangkan aku mengejek mereka karena mereka terlihat sama semua".


Play for the Rose...

Jaafaru
First Moderator Forum [Ace]
First Moderator Forum [Ace]

Posts : 83
Points : 129
Reputasi : 6
Age : 25
Location : Samarinda
Universitas : Universitas Mulawarman
Fakultas : Fakultas Teknologi Informasi & Komunikasi

Kembali Ke Atas Go down

Re: tugas pengganti UAS praktikum B-2

Post  Itha on Sun Dec 26, 2010 4:44 am

wduh?? haaaaaaaa
pnjg bgt . . ad yg ringkas gk???? lg sedih

Itha
Newbie
Newbie

Posts : 3
Points : 3
Reputasi : 0
Age : 24
Universitas : Universitas Mulawarman
Fakultas : Teknologi Informasi dan Komunikasi

Kembali Ke Atas Go down

Re: tugas pengganti UAS praktikum B-2

Post  Jaafaru on Sun Dec 26, 2010 11:43 pm

maaf tha... aku bisanya yang kyk di atas aja... soir ya...
emhhhh... emhhhh... emhhhh...

_________________________________________________
|...|##|...|##|...|...|##|...|##|...|##|...|
|...|##|...|##|...|...|##|...|##|...|##|...|
|...|##|...|##|...|...|##|...|##|...|##|...|
|......|........|......|......|........|........|......|
|......|........|......|......|........|........|......|
Gembira ni yePlay the Tune!!!
Gembira ni ye
"Orang-orang menertawakanku karena aku berbeda, sedangkan aku mengejek mereka karena mereka terlihat sama semua".


Play for the Rose...

Jaafaru
First Moderator Forum [Ace]
First Moderator Forum [Ace]

Posts : 83
Points : 129
Reputasi : 6
Age : 25
Location : Samarinda
Universitas : Universitas Mulawarman
Fakultas : Fakultas Teknologi Informasi & Komunikasi

Kembali Ke Atas Go down

Re: tugas pengganti UAS praktikum B-2

Post  novay on Tue Apr 19, 2011 5:50 pm

WEW.. NGERINYA SCRIPTNYA BRAY $&%$#% $&%$#%

_________________________________________________
_________________________________________________
"Use incredible thoughts to manifest an incredible life. Your life will follow your thoughts.
If you think it, and believe it, then you will see it."


Keep Posting BRAYY...

PHOTO PANAS:


Sexy Kannnn???....
Jgn Pikiran Kotor Dulu Brayy...

novay
Forum Founder [Joker]
Forum Founder [Joker]

Posts : 488
Points : 840
Reputasi : 12
Age : 25
Location : Berau City
Universitas : University Of Mulawarman
Fakultas : Faculty Of Information and Communication Technology

http://ftikom-unmul.nstars.org

Kembali Ke Atas Go down

Re: tugas pengganti UAS praktikum B-2

Post  Sponsored content Today at 5:21 pm


Sponsored content


Kembali Ke Atas Go down

Topik sebelumnya Topik selanjutnya Kembali Ke Atas

- Similar topics

 
Permissions in this forum:
Anda tidak dapat menjawab topik