Langkah-Langkah Magang (Kerja Praktek Lapangan) IT di Instansi

Saat kita kuliah, terutama Jurusan Teknik Informatika, teman-teman pasti akan dihadapkan dengan kerja praktek. PKL di instansi akan terasa berbeda dengan mengerjakan proyek yang diberikan oleh Dosen kita. Disamping mencari pengalaman kerja kita, juga dengan PKL dapat melatih soft-skills  kita dengan orang lain.

Berikut adalah langkah-langkah untuk magang / PKL di suatu instansi :

• Cari informasi dari kampus, kapan kita magang. (bulan, tanggal berapa sampai berapa, dst). *usahakan mengambil waktu liburan, akan lebih longgar
• Kalau sudah, segera cari referensi tempat, instansi, ataupun perusahaan di sekitar teman-teman yang mempunyai prospek yang bagus, baik manajemen, baik prospek kerja ataupun birokasi yang baik.
• Kemudian cari informasi-informasu yang diperlukan, misalkan disana ada bagian yang kita maksud tidak, sesuai dengan bidang ilmu kita atau tidak. *Jangan lupa cari informasi alamat instansi yang kita tuju.
• Jangan lupa minta surat pengantar dari kampus dengan menyertakan nama, NIM, alamat instansi tujuan teman-teman. *untuk kontent tergantung dari kampus masing-masing.
• Juga proposal magang yang diajukan ke instansi itu.
• kalau sudah, teman-teman tinggal ke instansi yang dituju.
  

Sekian postingan, semoga bermanfaat. 

Source Code Pascal Triplet Phytagoras dan Metode Biseksi

1. Trilet Phytagoras flowchart diubah dalam pascal.

JAWAB:

Var :    i,j,k : integer;

            Jalan : boolean ;

Begin jalan = true;

            i:=

            while jalan do

            j:= I+1

            jalan = false;

            k:= sqr(i*i+j*j)

            k1= integer k

                        if k1=k

                                    then

                                                writeln (“i,j,k adalah =’,’,’,i,j,k,0:4”)

                                    else

                                                begin

                                                            j:=j+1

                                                            if j<100

                                                                        then

                                                                                    begin

                                                                                                i:=i+1

                                                                                                if 1<100

                                                                                                            then return ja;an = true;

                                                                                                else

                                                                                    end;

                                                end;

end. //end do atau end while do

           

2. Selesaikan persamaan x*E^(-2)+1=0. Dengan menggunakan range x=[-1,0] dengan metode biseksi:

JAWAB:

program biseksi;

uses crt;
label ulang;
var
x1,x2,x3,y1,y2,y3 : real;
i : integer;
ab : char;
begin
            ulang :
            clrscr;
            writeln('Silakan masukkan nilai akar dari persamaan f(x)=x*E^(-2)+1=0 dengan Metode                           Biseksi');
            write( 'Silakan masukan nilai x1 = -1);
            readln( x1 );
            y1 := x1 *E^(-2)+1;
            writeln(' Nilai f(x1)= ',y1:0:4);
            repeat
            begin
                        write( 'Silakan masukkan nilai x2 = 0);
                        readln(x2);
                        y2 := x2 *E^(-2)+1;
                        write(' Nilai f(x2)= ',y2:0:4);
            end;
            if (y1*y2)<0 then
                        Writeln(' Syarat Nilai Ok')
            else
                        Writeln(' Nilai X2 Belum Sesuai');
            until ( y1 * y2 ) < 0;
            I :=2;
            Writeln;
            writeln('Penyelesaian Persamaan Dengan Metode Biseksi , Nilai x1= ',x1:0:2,' & x2=         ',x2:0:2);
            writeln('--------------------------------------------------------------------------');
            writeln('n x f(x) error ');
            writeln('--------------------------------------------------------------------------');
            repeat
                        begin
                                    i :=i + 1 ; x3 := ( x1 + x2) / 2;
                                    y3 := x3 *E^(-2)+1;
                                    if (i mod 10)=0 then readln;
                                    if i<10 then
                                    writeln(' ',i,' :: ',x3,' :: ',y3,' :: ',abs( y3 ),' ::')
                                    else writeln(i,' :: ',x3,' :: ',y3,' :: ',abs( y3 ),' ::');
                                    if ( y1* y3) <0 then
                                                begin
                                                            x2 :=x3;
                                                end else
                                                            begin
                                                                        x1 := x3;
                                                            end;
                        end;
                        until abs( y3 )<1E-07;
                                    writeln('-------------------------------------------------------------------------');
                                    writeln('akar persamaanya = ',x3);
                                    writeln('errornya =',abs( y3 ));
                                    writeln('-------------------------------------------------------------------------');
                                    write('Apakah anda ingin mengulanginya (y/t): ');
                                    readln(ab);
                        if (ab='y') or (ab='Y') then
                                    begin
                                                goto ulang;
                                    end
end.

Referensi : Google