Just Trying: Pemrograman Dasar

Tampilkan postingan dengan label Pemrograman Dasar. Tampilkan semua postingan

Program Segitiga Pascal

Berikut adalah Source Code untuk membuat Segitiga dalam Pascal :

uses wincrt;
var i,j,n,z : integer;
function sgtg(baris,posisi:integer):longint;
var output:integer;
begin
   if(posisi= 1) or (posisi =baris) then
   begin
      sgtg:= 1;
   end
   else
      sgtg:= Sgtg(baris-1,posisi)+ Sgtg(baris-1,posisi-1);
end;
begin
   write (' Masukan Tingkat ==> ');readln(z);
   writeln;
   for i:=1 to z do
   begin
      for n:=z downto i do
      write(' ');
      for j:=1 to i do
      write(sgtg(i,j):2);
      writeln;
      writeln;
   end;
   readln;
end.

Hasil Keluaran :

Read User's Comments(0)

Tugas Mandiri 2 Pemrograman Dasar

6:07:00 PM | Label: Pemrograman Dasar

Source Code :
uses wincrt;
label menu;
type handphone=record
     kodehp,namahp:string[20];
     hargahp:real;
     stokhp:byte;
     end;
     a=array [byte] of handphone;
var hp:a;
    pil,n,i:byte;
    namahp2:string;
    stokhp2,jml:byte;
    byr,tot,kmbl:real;
    b:char;
begin menu:
      clrscr;
      writeln('..:: Menu Pilihan ::..');
      writeln;
      writeln('1. Input Data HandPhone ');
      writeln('2. Cek Data HandPhone ');
      writeln('3. Membeli HandPhone ');
      writeln;
      pil:=5;
      while (pil<0) or (pil>4) do
      begin
        Write('Masukkan Pilihan Anda ? ');readln(pil);
      end;

case pil of
1: begin clrscr;
       b:='y';
       repeat
         inc(n);
         write ('Kode Handphone = ');readln(hp[n].kodehp);
         write ('Nama Handphone = ');readln(hp[n].namahp);
         write ('Harga Handphone = ');readln(hp[n].hargahp);
         write ('Stok Handphone = ');readln(hp[n].stokhp);
         writeln;
         write ('Ingin Memasukkan Data Handphone Lagi [y/t] ? ');readln(b);
         writeln;
       until b='t';
       goto menu;
     end;
2: begin clrscr;
        writeln('===================================================');
        writeln('No   Kode      Nama          Harga           Stok ');
        writeln('===================================================');
        for i:=1 to n do with hp[i] do
        begin
           writeln(i,'    ',kodehp:3,'     ',namahp:8,'        ',hargahp:6:2,'        ',stokhp:3);
        end;
        {cek daftar HandPhone}
        begin
           write('Masukkan Nama HandPhone = ');readln(namahp2);
           for i:=1 to n do with hp[i] do
           begin
              if namahp2=namahp then
              writeln('HandPhone ',namahp,' berada pada No ',i,' dengan Harga Rp. ',hargahp:6:2);
           end;
           writeln;
           write('Kembali ke Menu [y/t] ? ');readln(b);
           if b='y' then goto menu
           else
           writeln;
           write('               ..*" Matur Nuwun "*..    ');
        end;
     end;

3: begin clrscr;
        writeln('===================================================');
        writeln('No   Kode      Nama          Harga           Stok ');
        writeln('===================================================');
        for i:=1 to n do with hp[i] do
        begin
           writeln(i,'    ',kodehp:3,'     ',namahp:8,'        ',hargahp:6:2,'        ',stokhp:3);
        end;
        {Membeli HandPhone}
        begin
           writeln;
           write('Nama HandPhone yang dibeli   = ');readln(namahp2);
           write('Jumlah HandPhone yang dibeli = ');readln(stokhp2);
           write('Uang yang Dibayarkan         = ');readln(byr);
           begin
             for i:=1 to n do with hp[i] do
             begin
              if namahp2=namahp then
               begin
                 jml:=stokhp-stokhp2;
                 tot:=stokhp2*hargahp;
                 kmbl:=byr-tot;
                 writeln;
                 writeln('"Anda membeli HandPhone ',namahp2,' dengan jumlah ',stokhp2,' Barang".');
                 writeln('Total Bayar           = ',tot:6:2);
                 writeln('Uang yang Dibayarkan = ',byr:6:2);
                 writeln('Uang Kembali          = ',kmbl:6:2);
                 writeln;
               end;
             end;
           end;
           write('Kembali ke Menu [y/t] ? ');readln(b);
           if b='y' then goto menu;
        end;
     end;
end;
end.

Read User's Comments(0)

Program Mencari IPK dan Letak Kuadran

7:14:00 PM | Label: Pemrograman Dasar

Syntax Program IPK dan Kuadran :

uses wincrt;
label lagi;
var a:real;
b:char;
x,y:integer;
pil:byte;
begin lagi:
clrscr;
writeln(‘ ================================= ‘);
writeln(‘ ==> M E N U P I L I H A N <== ‘);
writeln(‘ ================================= ‘);
writeln;
writeln(‘ 1. Menentukan Keterangan Nilai dari IPK.’);
writeln(‘ 2. Menentukan Letak Kuadran.’);
writeln;
{pil:=4;}
write(‘Masukkan Pilihan Anda ? ‘);
readln(pil);
case pil of
1: begin clrscr;
write(‘Masukkan Nilai IPK Anda = ‘);readln(a);
if (a>=3.0) and (a<=4.0) then writeln(‘Keterangan : IPK ‘,a:2:2,’ Sempurna’)
else if (a>=2.0) and (a<3.0) then writeln(‘Keterangan : IPK ‘,a:2:2,’ Baik’)
else if (a<2.0) then writeln(‘Keterangan : IPK ‘,a:2:2,’ Kurang’)
else write (‘”Maaf, Data yang Anda Masukkan Salah”.’);
writeln;
write(‘Apakah Anda Ingin Melakukan Pengecekan Lagi [y/n]? ‘);readln(b);
if b=’y’ then goto lagi;
end;
2: begin clrscr;
write(‘Masukkan Nilai x = ‘);readln(x);
write(‘ Nilai y = ‘);readln(y);
if (x>0) and (y>0) then writeln(‘Titik (‘,x,’,',y,’) Terletak pada Kuadran I’)
else if (x<0) and (y>0) then writeln(‘Titik (‘,x,’,',y,’) Terletak pada Kuadran II’)
else if (x<0) and (y<0) then writeln(‘Titik (‘,x,’,',y,’) Terletak pada Kuadran III’)
else if (x>0) and (y<0) then writeln(‘Titik (‘,x,’,',y,’) Terletak pada Kuadran IV’);
writeln;
write(‘Apakah Anda Ingin Melakukan Pengecekan Lagi[y/n]? ‘);readln(b);
if b=’y’ then goto lagi;
end;
end;
end.

Gambar Menu Utama :