PROGRAM TURBO PASCAL DI ANDROID

-

   Ini adalah latihan awal saya di bangku kulia S1 Teknik Informatika, di UNIVERSITAS SAINS DAN TEKNOLOGI JAYAPURA. di sini saya belajar membuat input data melalui program turbo pascal versi android. Di sini saya akan memberikan sintaxnya atau coding yang bisah kita pakai buat belajar, latihan dan cobah bersama. Dan ini ada beberapa sintax/ coding program yang sudah buat silakan di ikuti dan simak.

1. Program BIODATA MAHASISWA.

program BIODATA_MAHASISWA;

uses crt;

var i, a, b, c, d, e, f, g: string;

v, w : integer;

u :real;

begin

clrscr;

  TextColor(yellow);
  
Write(' UNIVERSITAS SAINS DAN TEKNOLOGI AYAPURA'); ReadLn();
textcolor(red);
Write('______________________________'); ReadLn();
TextColor(white);
write('No :');readln(i);

write(' MASUKAN NAMA LENGKAP :');read(a); write(' MASUKAN NPM                       :'); readln(b);

write(' MASUKAN FAKULTAS             :'); readln(c);

write(' PROGRAM STUDI                   :'); ReadLn(d);

write(' KELAS                                        :'); readln(e);

write(' TEMPAT TANGGAL LAHIR :'); readln(f);

write(' ALAMAT                                    :'); readln(g);
readln();
textcolor(red);
write('  INI ADALAH HASIL DATA YANG DI INPUT'); Readln();
textcolor(yellow);
write(' UNIVERSITAS SAINS DAN TEKNOLOGI JAYAPURA'); readln();
write('______________________________'); ReadLn();
textcolor(white);
writeln(' NAMA                :',a);
writeln(' NPM                 :',b);
writeln(' FAKULTAS            :',c);
WriteLn(' PROGRAM STUDI       :',d);
WriteLn(' KELAS               :',e);
writeln(' TEMPAT TANGGAL LAHIR:',f);
writeln(' ALAMAT              :',g);

writeln('----------------------------------------------');

readln;

textcolor(blue);
write('MASUKAN TAHUN SEKARANG  :'); readln(v);

write('MASUKAN TAHUN KELAHIRAN :'); readln(w);

u :=(v-w);

writeln('UMUR ANDA SEKARANG   :' ,u:0:0);

writeln('---------------------------------------------');

readln;

end

2. Ini Hasil dari sintax atau coding program  di atas. Dan ada juga videonya.




3. Ini VIDEONYA


4. Input Program Menghitung luas persegi panjang. Ada Sintax dan Hasil dari input sintaxnya.

    program Luas_Persegi_Panjang;

uses crt;

var
panjang : real;
lebar : real;
luas : real;

begin
clrscr;
textColor(Yellow);
writeln('=================================================');
writeln('| Program untuk Menghitung Luas Persegi Panjang |');
writeln('| Rumus : Panjang x Lebar (p x l)               |');
writeln('=================================================');
writeln(' ');
write('   Nilai Panjang : '); readln(panjang);
write('   Nilai Lebar   : '); readln(lebar);
Writeln(' Rumus Luas    : Panjang x Lebar (p x l)');
luas :=panjang*lebar;
writeln('');
writeln('==================================================');
writeln('|Jadi Panjang x Lebar = Panjang:0:1 x Lebar :0:1 |');
writeln('==================================================');
WriteLn(' Luas Persegi Panjang adalah :' ,luas:0:1); readln();

Write('                          Terimah Kasih'); readln();
write('                            Hormat Saya ');readln();

Write('');readln();

write('                            Yotam Oktovianus Dantru');ReadLn();
writeln (' '); readln();

end.

            


5. HASIL INPUT Program Marketing.. 


6.  Sintax Program Penjualan dan Hasil inputnya.

program_penjualan_barang;

uses crt;
var
kode : Char;
nama : string;
jumlah : integer;
harga,total : real;
begin

writeln('Daftar Nama Barang '); readln();
Writeln(' 1. Laptop'); //readln();
writeln(' 2. Printer'); //readln();
writeln(' 3. Notebook');// readln();
writeln(' 4. Speaker'); //readln();
writeln(' 5. Hand Phone'); //readln();

writeln(' Hitung Hasil Penjualan Barang');
writeln;
write('Ketik Nama Barang   : ');
readln(kode);
write('Ketik Jumlah Barang : ');
readln(jumlah);
If (kode = 'L') or (kode = 'l')then
begin
nama:= 'LAPTOP';
harga:= 8000000
end
else
If (kode = 'P') or (kode = 'p')then
begin
nama:= 'PRINTER';
harga:= 2000000
end
else
If (kode = 'N') or (kode = 'n')then
begin
nama:= 'NOTEBOOK';
harga:= 2500000
end
else
If (kode = 'S') or (kode = 's')then
begin
nama:= 'SPEAKER';
harga:= 700000
end
else
IF (kode = 'H') or (kode ='h')then
begin
nama:='HAND PHONE';
harga:= 2500000
end
else
begin
end;
Total:= (harga*jumlah);
writeln('__________________________________________');
writeln;
WriteLn;
writeln('Harga barang = Rp.',harga:3:2);
writeln('Total        = Rp.',total:3:2);
WriteLn;
Writeln('=========================================');
Writeln('* Program By. Yotam O Dantru*');
ReadLn;
end.

          Hasil iput.


Selamat mencobah Tuhan Memberkati dan sukses selalu. Semangat✊✊✊

7. Sintax program kalkulator dan hasil inputnya.    

program kalkulator;
uses crt;
var
i, j,hasilbagi, hasiltamba, hasilkali, hasilkurang, hasildiv, hasilmod :Integer;

begin
clrscr;
write(' Nilai i :'); ReadLn(i);
write(' Nilai j :'); readln(j);
WriteLn('___________________________________________________');
hasilbagi:= i div j;
hasiltamba:= i + j;
hasilkali:=i*j;
hasilkurang:= i-j;
hasildiv:=i div j;
hasilmod:=i mod j;
writeln('  Operasi              Hasil Operasi  ');
writeln(' 1 + 2                    ',hasiltamba );
writeln(' 1 - 2                    ',hasilkurang);
writeln(' 1 × 2                    ',hasilkali);
writeln(' 1 div 2                  ',hasildiv );
writeln(' 1 mod 2                  ',hasilmod);
writeln('___________________________________________________');

readln;
 
end.

              Hasil input

8. Contoh program matrik menggunakan pascal

program penjumlahanmatrik;
uses crt;
var
   a,b : array[1..3,1..2] of integer;
   i,j,m,n : integer;
   c : array[1..20,1..20] of integer;

   begin
        clrscr;
               write('Masukan Jumlah Baris : ');readln(m);
               write('MAsukan Jumlah Kolom : ');readln(n);
               writeln;
               writeln('Elemen Matrik Satu');
               for i := 1 to m do
               begin
                    for j := 1 to n do
                    begin
                    write('Masukan Elemen Baris-',i,' Kolom -',j,' : ');
                    readln(a[i,j]);
                    end;
               end;

               writeln('Elemen Matrik Dua');
               for i := 1 to m do
               begin
                    for j := 1 to n do
                    begin
                    write('Masukan Elemen Baris-',i,' Kolom -',j,' : ');
                    readln(b[i,j]);
                    end;
               end;

               for i := 1 to m do
               begin
                    for j :=1 to n do
                    begin
                         c[i,j]:= a[i,j]+b[i,j];
                    end;
               end;

               writeln;

               for i := 1 to m do
               begin
                    for j:= 1 to n do
                    begin
                    write(a[i,j]:4);
                    end;
                    writeln;
               end;
               writeln('+');

               for i := 1 to m do
               begin
                    for j := 1 to n do
                    begin
                    write(b[i,j]:4);
                    end;
                    writeln;
               end;
               writeln('=');
               for i := 1 to m do
               begin
                    for j:= 1 to n do
                    begin
                    write(c[i,j]:4);
                    end;
                    writeln;
               end;
        readln;
   end.
download pascalnya ==>  Disini

2.program perkalian_matrix;
uses crt;

var
a,b,c : array [1..50,1..50] of integer;
i,j,k,x,y,z : integer;

begin
clrscr;
writeln('Matriks A');
       write('Baris : ');readln(x);
       write('Kolom : ');readln(y);
writeln;
writeln;
writeln('Ukuran matriks B');
writeln('Baris : ',y);
write('Kolom : ');readln(z);

for i:=1 to x do
    for j:=1 to y do
    begin
    write('Elemen A[',i,',',j,'] : ');readln(a[i,j]);
    end;
writeln;
for i:=1 to y do
    for j:=1 to z do
    begin
    write('Elemen B[',i,',',j,'] : ');
    readln(b[i,j]);
    end;

for i:=1 to x do
    for j:=1 to z do
        for k:=1 to y do
        c[i,j] := c[i,j] + a[i,k]*b[k,j];
        writeln;
        writeln;
        writeln('Hasil dari perkalian Matriks A dengan Matriks B adalah : ');
    writeln;
            for i:=1 to x do
            begin
                   for j:=1 to z do
                    write(c[i,j],' ');
                    writeln;
            end;

writeln;
readln;
end.
download pascalnya ==> disini

3. program transpose_matrix;
uses crt;
var
a : array [0..100,0..100] of integer;
b : array [0..100,0..100] of integer;
c : array [0..10,0..10] of integer;
ba,ka,bb,kb,i,h,j,k,x,y: integer;
procedure input;
begin
clrscr;
writeln (' Masukan inputan matrix ') ; writeln;
write ('Masukan jumlah baris matriks A: '); readln (ba);
write ('Masukan jumlah kolom matriks A: '); readln (ka);writeln;
write ('Masukan jumlah baris matriks B: '); readln (bb);
write ('Masukan jumlah kolom matriks B: '); readln (kb);
writeln;
writeln ('Masukan komponen data Matriks A');
for h:=1 to ba do
begin
for i:=1 to ka do
begin
write ('Data ke-(',h,',',i,')= ');
readln (a[h,i]);
end;
end;
writeln;
writeln ('Masukan komponen data matriks B');
for j:=1 to bb do
begin
for k:=1 to kb do
begin
write ('Data ke-(',j,',',k,')= ');
readln (b[j,k]);
end;
end;
end;
Procedure cetak;
begin
clrscr; writeln ('Transpose Matrix') ; writeln;
writeln ('Data yang anda masukan adalah :');writeln;
writeln ('Matriks a');
for h:=1 to ba do
begin
for i:=1 to ka do
write (' ',a[h,i],' ');
writeln;
end;
writeln;
gotoxy (27,5);writeln ('Matriks b');
y:=6;
for j:=1 to bb do
begin
x:=27;
for k:=1 to kb do begin
gotoxy(x,y);write (' ',b[j,k],' '); x:=x+3;end; y:=y+1;
end;writeln;
end;
procedure transpose;
begin
writeln ('Transpose matriks a');
for i:=1 to ka do
begin
for h:=1 to ba do
write (' ',a[h,i],' ');
writeln;
end;
writeln;
gotoxy(27,y+2);writeln ('Transpose matriks b');
y:=y+3;
for k:=1 to kb do
begin
x:=27;
for j:=1 to bb do begin
gotoxy(x,y);write (' ',b[j,k],' ');x:=x+3; end;y:=y+1;
writeln;
end;writeln;
end;
begin
clrscr;
input;
cetak;
writeln;
writeln;
transpose;
readln;
end.


Komentar

Posting Komentar

Terimah kasih atas partisipasinya dalam menjelajahi web saya.

Postingan populer dari blog ini

Dampak Positif dan Negatif Penggunaan Teknologi

-
Gambar
  Dampak Positif dan Negatif Penggunaan Teknologi Informasi dan Komunikasi                 Oleh :   Sutiono S.Kom., M.Kom., M.T.I Saat ini, teknologi informasi dan komunikasi merupakan salah satu jenis dari bentuk teknologi yang berkembang dengan sangat pesat. Melalui fitur andalannya yaitu internet, saat ini teknologi komunikasi dan informasi seperti merupakan salah satu jenis teknologi yang menduduki peringkat teratas, baik dari sisi positif, negatif, hingga penggunaannya. Memang sebagai sebuah teknologi yang berkembang pesat, pastilah teknologi informasi dan komunikasi memiliki beberapa kelebihan dan juga kelemahan. Ada yang disadari, dan ada juga yang mungkin tidak disadari, karena sudah menjadi bagian dari kepribadian individu tertentu. Berikut ini adalah dampak positif dan juga dampak negative yang bisa dirasakan di dalam kehidupan sehari-hari. Dampak Positif Mempercepat arus informasi Arus informasi saat ini menjadi sangat cepat, ...
Baca selengkapnya