Rabu, 08 Juni 2011

Jawaban Hal 62-Bhs. Pemrograman I

Nomor 1

PROGRAM LUNCUR_ROKET;
USES CRT;
BEGIN
CLRSCR;
textcolor(14);
gotoxy(15,24);
WRITELN('PELUCURAN ROKET AKAN SEGERA DIMULAI DARI HITUNGAN 10');
gotoxy(25,25);
WRITE('TEKAN ENTER UNTUK MULAI');READLN;
gotoxy(35,27);write('10');delay(1000);
gotoxy(35,27);write(' 9');delay(1000);
gotoxy(35,27);write(' 8');delay(1000);
gotoxy(35,27);write(' 7');delay(1000);
gotoxy(35,27);write(' 6');delay(1000);
gotoxy(35,27);write(' 5');delay(1000);
gotoxy(35,27);write(' 4');delay(1000);
gotoxy(35,27);write(' 3');delay(1000);
gotoxy(35,27);write(' 2');delay(1000);
gotoxy(35,27);write(' 1');delay(1000);
clrscr;
GOTOXY(35,25);
WRITE('DUARRRRRRR');
READLN;
END.



Nomor 2
PROGRAM COBA;
USES CRT;
VAR A,B:INTEGER;
FUNCTION P(X,Y:REAL):REAL;
BEGIN
P:=EXP(LN(X)*Y);
END;
BEGIN
CLRSCR;
GOTOXY(30,24);
WRITE('MASUKKAN SUATU NILAI: ');READLN(A);
GOTOXY(30,25);
WRITE('MASUKKAN PANGKAT : ');READLN(B);
GOTOXY(30,27);
WRITE('HASIL PANGKAT ADALAH: ');
WRITE(P(A,B):3:0);
READLN;
END.


Nomor 3
uses crt;
var i:integer;
begin
clrscr;
i:=1;
while i< 20 do
begin
write(i,' ');
i:=i+2;
end;
readln;
end.


Nomor 4
program Juml_bil_ganjil;
uses crt;
var k:byte;
Const a=1;b=3;c=5;
d=7;e=9;f=11;
g=13;h=15;i=17;j=19;
begin
clrscr;
k:=(a+b+c+d+e+f+g+h+i+j);
write('Jumlah bilangan ganjil antara 1-20 adalah: ',k);
readln;
end.


Nomor 5
Program Man_String;
Uses Crt;
Var s : String;
h,i,j,k,l : String;
Begin
ClrScr;
Write('Kalimat yang dimasukkan : ');readln(s);
h:=Copy (s,5,1);
i:=copy (s,4,1);
j:=Copy (s,3,1);
k:=copy (s,2,1);
l:=copy (s,1,1);
Writeln ('Kalimat yang dibalik : ',h,i,j,k,l);
readln;
END.


Nomor 6
uses crt;
var x,y:integer;
begin
clrscr;
write('Ketikkan angka 5: ');readln(x);
write('Ketikkan angka 10: ');readln(y);
if (x=5) and (y=10) then
clrscr;
GOTOXY(20,23);writeln('* * * * * * * * *');
GOTOXY(20,24);writeln('* *');
GOTOXY(20,25);writeln('* *');
GOTOXY(20,26);writeln('* *');
GOTOXY(20,27);writeln('* * * * * * * * *');
readln;
end.

0 komentar:

Posting Komentar

Twitter Delicious Facebook Digg Stumbleupon Favorites More