Penulis Topik: Belajar Pascal  (Dibaca 108410 kali)

Offline Desperados

  • Pro100
  • ****
  • Tulisan: 175
  • Reputation: +1299/-958
  • Jenis kelamin: Pria
    • Lihat Profil
    • http://www.positiveinaja.blogspot.com
Re: Belajar Pascal
« Jawab #40 pada: Februari 27, 2011, 12:12:22 PM »
program antrian1;
uses wincrt;
const
     max=3;
type
     A= array[1..max]of string;
var
   antrian   :A;
   no_antri  :0..max;
   tanya     :char;
   
begin
clrscr;
writeln('        PROGRAM ANTRIAN SEDERHANA        ');
writeln('=========================================');

tanya:='Y';
while tanya in['Y','y'] do
begin
   
     write('Elemen ke-1 =');readln(antrian[1]);
     no_antri:=no_antri+1;
     write('Elemen ke-2 =');readln(antrian[2]);
     no_antri:=no_antri+1;
     write('Elemen ke-3 =');readln(antrian[3]);
     no_antri:=no_antri+1;
     writeln;
     writeln('Tampilan = ',antrian[1],' ',antrian[2],' ',antrian[3]);
     writeln('Jumlah antrian =',no_antri);
     writeln('--------------------------------------------');
     readln;

     
write('Akan tambah data?[Y/T]');readln(tanya);
end;
writeln('Jumlah elemen dalam antrian =',no_antri);
readln;
donewincrt;
end.
Mengapa Kita Bisa Terjatuh...  Karena Dari Situ Qt Belajar Berdiri

Offline Desperados

  • Pro100
  • ****
  • Tulisan: 175
  • Reputation: +1299/-958
  • Jenis kelamin: Pria
    • Lihat Profil
    • http://www.positiveinaja.blogspot.com
Re: Belajar Pascal
« Jawab #41 pada: Februari 27, 2011, 12:13:08 PM »
Program Desperados;
Uses Wincrt;

Var nm:string[30];
    nim:string[10];
    kls:string[10];
    com:string[100];
Begin
Writeln('--------------------DATA DIRI------------------------');
Write('Siapa nama Anda      ?'); Readln(nm);
Write('Berapa nomor NIM Anda?'); Readln(nim);
Write('Dari Kelas apa       ?');Readln(kls);
Writeln('Bagaimana Pendapat Anda Tentang praktikum Struktur Data:');Readln(com);
Writeln;
Writeln;
Writeln('-----------------------------------------------------');
Writeln('=====================================================');
Writeln('nama Anda    :',nm);
Writeln('NIM Anda     :',nim);
Writeln('Kelas Anda   :',kls);
Writeln('Komentar Anda:',com);
End.
Mengapa Kita Bisa Terjatuh...  Karena Dari Situ Qt Belajar Berdiri

Offline Desperados

  • Pro100
  • ****
  • Tulisan: 175
  • Reputation: +1299/-958
  • Jenis kelamin: Pria
    • Lihat Profil
    • http://www.positiveinaja.blogspot.com
Re: Belajar Pascal
« Jawab #42 pada: Februari 27, 2011, 12:15:47 PM »
program kosentrasi;
uses wincrt;
var pemrog_internet,jarkom,
komp_grafis,multimedia1:string[5];
begin
writeln('jawab lulus atau tidak');
writeln('apakah anda lulus pemrograman internet=');
readln(pemrog_internet);
writeln('apakah anda lulus jaringan komputer=');
readln(jarkom);
writeln('apakah anda lulus komputer grafis=');
readln(komp_grafis);
writeln('apakah anda lulus multimedia 1=');
readln(multimedia1);
if (pemrog_internet='lulus') and (jarkom='lulus') then
writeln('anda ikut kosentrasi e-commerce')
else if (komp_grafis='lulus') and (multimedia1='lulus') then
writeln('anda ikut kosentrasi multimedia')
else
writeln('anda ikut kosentrasi sistem info akutansi');
end.
Mengapa Kita Bisa Terjatuh...  Karena Dari Situ Qt Belajar Berdiri

Offline Desperados

  • Pro100
  • ****
  • Tulisan: 175
  • Reputation: +1299/-958
  • Jenis kelamin: Pria
    • Lihat Profil
    • http://www.positiveinaja.blogspot.com
Re: Belajar Pascal
« Jawab #43 pada: Februari 27, 2011, 12:17:03 PM »
ini yg lebih lengkap lagi...

program RESPONSI;
uses wincrt;
{const  
     max=10;}
type      
    data=array [1..100]of char;
    recqueue=record  
         info        : data;  
         depan,blkg  : 0..100;
    end;

var          
   antri       : recqueue;
   n,i         : integer;  
   pilih,tanya : char;
                        

procedure inisialisasi;
begin                  
     antri.depan:=0;  
     antri.blkg:=0;
end;

procedure input;
begin  
     writeln('MEMASUKKAN ELEMEN KE DALAM ANTRIAN');
     writeln('==================================');
     write('Banyaknya elemen = ');readln(n);  
     for i:=1 to n do
     begin        
          write('Elemen ke ',i,' = ');  
          readln(antri.info);    
          Inc(antri.blkg);      
     end;  
end;    

procedure Baca;
begin      
     writeln('MENAMPILKAN ELEMEN DALAM ANTRIAN');
     writeln('================================');
     for i:=1 to n do        
     begin          
          writeln('Elemen ke ',i,' = ',antri.info);
          inc(antri.depan);                      
     end;  
end;    

procedure Hapus;
begin          
     writeln('MENGHAPUS ELEMEN DALAM ANTRIAN');  
     writeln('==============================');  
     for i:=1 to n do            
     begin
               antri.blkg:=antri.depan;
      antri.depan:= antri.depan - 1;
               writeln(antri.info);
                              
          {dec(antri.depan);
          dec(antri.blkg);
          writeln(antri.info); }
     end;
end;

procedure menu;
begin
tanya:='Y';
while tanya in ['Y','y'] do
begin
clrscr;        
     writeln('         MENU PILIHAN ANTRIAN          ');  
     writeln('=======================================');  
     writeln('[1].INPUT ELEMEN');                        
     writeln('[2].BACA ELEMEN');                        
     writeln('[3].HAPUS ELEMEN');                    
     writeln('[4].KELUAR');                        
     writeln('---------------------------------------');    
     write('PILIHAN ANDA = ');readln(pilih);  
     writeln;
end;end;




procedure mulai;
begin
clrscr;
     writeln('------------------------------------------------');
     writeln('  CONTOH PROGRAM ANTRIAN DISERTAI MENU PILIHAN  ');
     writeln('        TEKAN ENTER UNTUK MEMULAINYA            ');
     writeln('------------------------------------------------');  
     readln;
     clrscr;
end;
begin  
clrscr;
mulai;  
repeat  
menu;

case pilih of  
'1':begin  
         input;
         writeln;
    end;

'2':begin
         baca;
         writeln;
    end;

'3':begin
         hapus;
         writeln;
    end;

'4':begin
   gotoxy(20,18);
   write('Ingin keluar dari aplikasi ini [Y/T]:');readln(tanya);
   donewincrt;
   end;
  end;
end.
« Edit Terakhir: Februari 27, 2011, 12:18:46 PM oleh Desperados »
Mengapa Kita Bisa Terjatuh...  Karena Dari Situ Qt Belajar Berdiri

Offline nova_edp

  • Pro500
  • ******
  • Tulisan: 819
  • Reputation: +26823/-0
    • Lihat Profil
Re: Belajar Pascal
« Jawab #44 pada: Maret 10, 2011, 02:57:53 PM »
ni ak upload contoh2 script sederhana bwt yg baru blajar pascal
semoga bermanfaat...

Offline Jastis

  • Trusted Advisor
  • Pro500
  • *****
  • Tulisan: 3.558
  • Reputation: +61865/-241
  • Jenis kelamin: Pria
  • https://cariakibatsebab.blogspot.co.id/
    • Lihat Profil
    • REY COMPUTER
Re: Belajar Pascal
« Jawab #45 pada: Maret 18, 2011, 10:21:28 AM »

ini contoh L1 sisisp ke L2 dari tapi sisip depan/belakang.
Kode: [Pilih]
program Linked_List;
uses wincrt;
type list =^node;
     node = record
            isi   : char;
            kanan : list;
     end;
procedure sisipdepan (var L : list;  Data : char);
var
   baru,bantu : list;
begin
      new(baru);
      baru^.isi := Data;
      baru^.kanan :=Nil;
       if L = Nil then  L := baru
       else
           begin
                bantu := L;
                while bantu^.kanan <>  Nil do
                bantu := bantu^.kanan;
           bantu^.kanan := baru;
       end;
end;

procedure sambung (L2 : list; var L1 : list);
var
   bantu1 : list;
begin
     bantu1 := L2;
     while  bantu1^.kanan <> nil do
            bantu1 := bantu1^.kanan;
            bantu1^.kanan := L1;
end;

procedure cetak (L : list);
var
   bantu : list;
   begin
        bantu := L;
        while bantu <> Nil do
        begin
             write (bantu^.isi,'');
              bantu := bantu^.kanan;
        end;
end;

var
   karakter     : char;
   L1,L2        : list;
   i            : integer;

begin
     writeln ('Masukkan 5 buah karakter untuk L1');
             for i := 1 to 5 do
             begin
                  write ('Masukkan karakter ke ',i, ' = ');
                  readln (karakter);
                  sisipdepan (L1,karakter);
             end; writeln;
             write('Isi linked List1 adalah : ');
             cetak (L1); writeln;

     writeln ('Masukkan 3 buah karakter untuk L2');
             for i := 1 to 3 do
             begin
                  write ('Masukkan karakter ke ',i, ' = ');
                  readln (karakter);
                  sisipdepan (L2,karakter);
             end; writeln;
             write('Isi linked List2 adalah :');
             cetak (L2); writeln;
     sambung (L1,L2);
     write ('Isi Linked List1 adalah :');
     cetak(L1); writeln;
end.
« Edit Terakhir: Maret 20, 2011, 02:53:30 PM oleh Jastis »

Offline dojoe

  • Pro500
  • ******
  • Tulisan: 528
  • Reputation: +1001/-68
  • Jenis kelamin: Pria
  • Bukan Moderator, Bukan Administrator Juga
    • Lihat Profil
    • My Kaskus ID
Re: Belajar Pascal
« Jawab #46 pada: Agustus 27, 2011, 04:36:57 PM »
gw mau belajar pascal dari pertama
kira-kira enakan pake turbo pascal apa free pascal ?
gw baru coba permulaan gan yg helloworld !

btw ini reputation gw kok jadi melonjak gini ya ? :))

Offline Ryan BeKaBe

  • Admin
  • Pro500
  • *******
  • Tulisan: 2.004
  • Reputation: +65535/-1
  • ToS (Team of SmadAV)
    • Lihat Profil
    • BeKaBe
Re: Belajar Pascal
« Jawab #47 pada: Agustus 27, 2011, 06:26:49 PM »
gw mau belajar pascal dari pertama
kira-kira enakan pake turbo pascal apa free pascal ?
gw baru coba permulaan gan yg helloworld !

btw ini reputation gw kok jadi melonjak gini ya ? :))
Lebih baik pakai TPW (Turbo Pascal for Windows) saja, lebih mudah, soalnya waktu semester yang ada pelajaran Pascal itu selama menggunakan TPW nilai saya lanjar jaya saja tuh. :D :-bd
Referral VPS (mulai dari $5 /bulan, 25GB) untuk dapatkan bonus saldo:
1) UpCloud: https://upcloud.com/signup/?promo=76RH93
2) Vultr: https://www.vultr.com/?ref=8082682
3) AlibabaCloud: https://www.alibabacloud.com/referral?referralCode=a6qmol
--
Cek ID Ransomware: https://id-ransomware.hanyajasa.com

Offline Desperados

  • Pro100
  • ****
  • Tulisan: 175
  • Reputation: +1299/-958
  • Jenis kelamin: Pria
    • Lihat Profil
    • http://www.positiveinaja.blogspot.com
Re: Belajar Pascal
« Jawab #48 pada: September 22, 2011, 02:39:18 PM »
iya betul apa kata bro bekabe.. pake turbo pascal lebih mudah kok
Mengapa Kita Bisa Terjatuh...  Karena Dari Situ Qt Belajar Berdiri

Offline arjunasupriyadi

  • Pro500
  • ******
  • Tulisan: 600
  • Reputation: +493/-0
  • Jenis kelamin: Pria
  • ojo dumeh yen wis pinter lan sugeh
    • Lihat Profil
Re: Belajar Pascal
« Jawab #49 pada: April 23, 2012, 01:56:15 PM »
Lebih baik pakai TPW (Turbo Pascal for Windows) saja, lebih mudah, soalnya waktu semester yang ada pelajaran Pascal itu selama menggunakan TPW nilai saya lanjar jaya saja tuh. :D :-bd
bedanya apa bro,antara keduanya?
gw cuma pengen nambah teman dan saudara