GAME TEBAK KATA SEPUTAR KAMPUS POLITEKNIK NEGRI TALA

uses crt;
const
havetry=10;
s: array[0..18] of string=
('fizah', 'nurul', 'pak hendrik', 'buyung', 'puput', 'politeknik', 'jurnalis',
'zakaria', 'mesin otomotif', 'tip', 'informatika', 'bu nita', 'masruroh', 'partai imm',
'tugas', 'bem poltek', 'presma', 'pak hendrik ganteng', 'ruang lab kom');
var ch: char;
gue,b,nowwrd,trynow: byte;
s1,wrs,alr: string;
r: boolean;
win: integer;
begin
win:=0;
clrscr;
writeln(' Game Tebak Kata seputar kampus politeknik negri tala');
writeln('******************************************************');
Writeln('Ketikkan huruf apa saja untuk menjawab! ESC for exit');
writeln;
randomize;
repeat
writeln;
nowwrd:=random(18);
s1:=s[nowwrd];
gue:=0;
wrs:='';
alr:='';
trynow:=havetry;
for b:=1 to length(s[nowwrd]) do write('_');
repeat
gotoxy(20,wherey);
write('You have ',trynow,' tries ');
ch:=readkey;
r:=false;
if ch<>#0 then
repeat
b:=pos(ch,s1);
if (b<>0) and (s1[b]<>#0) then
begin
gotoxy(b,wherey);
write(s1[b]);
alr:=alr+ch;
s1[b]:=#0;
gue:=gue+1;
gotoxy(40,wherey);
write(' ');
r:=true;
end else
if (pos(ch,alr)<>0) and (r=false) then
begin
gotoxy(40,wherey);
write('Already tried!');
end else
if (b=0) and (r=false) then
begin
trynow:=trynow-1;
alr:=alr+ch;
wrs:=wrs+ch;
gotoxy(57,wherey);
write('Wrong: ',wrs);
gotoxy(40,wherey);
write(' ');
end;
until (b=0) or (trynow=0);
until (ch=#27) or (gue=length(s1)) or (trynow=0);
if (trynow=0) then
begin
win:=win-1;
delline;
gotoxy(1,wherey);
write(s[nowwrd]);
gotoxy(20,wherey);
write('You lost! Your scores is ',win);
end else
if (gue=length(s1)) then
begin
win:=win+1;
delline;
gotoxy(1,wherey);
write(s[nowwrd]);
gotoxy(20,wherey);
write('You win! Your scores is ',win);
end;
until ch=#27;
end.

pointer dalam pascal

program pr;
uses crt;
type
Dmhs = ^Rmhs;
Rmhs = record
nm,npm,kls: string;
end;
var
mhs: array [1..5] of Rmhs;
n, i : integer;
begin
textcolor (lightblue+blink);
textbackground (lightgray);
clrscr;
write ('masukkan banyak data : ');
readln (n);
writeln;
for i:= 1 to n do
begin
write('masukkan nama ke-',i,' : ');
readln(mhs[i].nm);
write('masukkan nilai ke-',i,' : ');
readln(mhs[i].npm);
write('masukkan kelas ke-',i,' : ');
readln(mhs[i].kls);
writeln;
end;
clrscr;
for i := 1 to n do
begin
writeln('Nama ke-',i,' : ',mhs[i].nm);
writeln('nilai ke-',i,' : ',mhs[i].npm);
writeln('Kelas ke-',i,' : ',mhs[i].kls);
writeln;
end;
readkey;
end.

pointer dalam c++

#include "iostream.h"
int main()
{
int num[10];
int *start, *end;
start = num;
end = &num[9];
while(start != end) {
cout << "Masukkan bilangan sebanyak 9 data : ";
cin >> *start;
start++;
}
return 0;
}

uses crt;
var
a:array [1..3] of integer;
k,l:integer;
begin
clrscr;
for k:=1 to 3 do
begin
writeln('Masukkan Angka:'); readln (a[k]);
end;
for k:= 1 to 3 do
begin
l:= l + a[k];
end;
writeln('Jumlah dari Semua Angka: ',l);
readln;

end.

penggunaan string pada pascal

uses crt ;
var
        NilaiString : string [10];
        NilaiReal : real;
        PosisiSalah : integer;
begin
        clrscr;
        NilaiString :='300.45';
        val(NilaiString,NilaiReal,PosisiSalah);
        writeln('Nilai String : ',NilaiString);
        writeln('NIlai Real : ',NilaiReal);
        writeln('Posisi Salah : ',PosisiSalah);
        readkey;

end.

penggunaan array pada c++

#include<iostream.h>
#include<conio.h>
void main()
{
clrscr();
char nama[20][10];
char npm[8][10];
char kelas[5][10];
int jml;
cout<<"Masukkan jumlah record:";
cin>>jml;
clrscr();
for(int i=0;i<=jml;i++)
{
cout<<"\n input data ke-"<< i <<":";
cout<<"\n nama ke-"<<i<<":";
cin>>nama[i];
cout<<"\n npm ke-"<<i<<":";
cin>>npm[i];
cout<<"\n kelas ke-"<<i<<":";
cin>>kelas[i];
}
for(int j=0;j<=jml;j++)
{
cout<<"\n input data ke-"<< j;
cout<<"\n nama    :    "<< nama [j];
cout<<"\n npm    :    "<< npm [j];
cout<<"\n kelas    :    "<< kelas [j];
cout<<"\n================================\n";
}
getch();

}

penggunaan procedure pada c++

#include<iostream.h>

void volume_limas()
{
double p, l, t;
cout<<"Volume limas segi empat"<<endl;
cout<<"Masukkan panjang: ";
cin>>p;
cout<<"Masukkan lebar: ";
cin>>l;
cout<<"Masukkan tinggi: ";
cin>>t;
cout<<"Volume limas segi empat: "<<p*l*t/3<<endl;
}

void volume_kerucut()
{
double r, t;
cout<<"Volume kerucut"<<endl;
cout<<"Masukkan jari2: ";
cin>>r;
cout<<"Masukkan t: ";
cin>>t;
cout<<"Volume kerucut: "<<3.14*r*r*t/3<<endl;
}

void volume_bola()
{
double r;
cout<<"Volume bola"<<endl;
cout<<"Masukkan nilai r= ";
cin>>r;
cout<<"Volume bola= "<<4*3.14*r*r*r/3<<endl;
}

int main()
{
volume_limas();
volume_kerucut();
volume_bola();

return 0;
}