contoh penggunaan const dalam pascal

contoh penggunaan IF-THEN dalam pascal

program perkiraan_gaji_dari_perkerjaannya;
uses crt;
var
    n:string;
    p,gol,ps,ju:integer;
    label ulang;
    label again;
    label mengulang;
    label lagi;
begin
clrscr;
 ulang:
 writeln('   perkiraan gaji dari pekerjaannya   ');
 writeln('   --------------------------------   ');
 write('nama        :');   readln(n);
 writeln('pekerjaan   :');
 writeln('   1.PNS         2.pegawai swasta');
 writeln('   3.pengusaha   4.lainnya');
 write('pekerjaan anda adalah:');readln(p);
 if p=1 then
  begin
  again:
  readln(gol);
  writeln('   golongan PNS   ');
  writeln('1.IA 2.IB 3.IC 4.ID 5.IE');
  writeln('6.IIA 7.IIB 8.IIC 9.IID 10.IIE');
  writeln('11.IIIA 12.IIIB 13.IIIC 14.IIID 15.IIIE');
  writeln('16.IVA 17.IVB 18.IVC 19.IVD 20.IVE');
  if gol in [1,6,11,16] then
  begin
   writeln('pekerjaan ',n,' adalah pegawai negeri golongan no',gol);
   writeln('maka gaji ',n,' adalah dua juta');
  end;
  if gol in [2,7,12,17] then
   begin
   writeln('pekerjaan ',n,' adalah pegawai negeri golongan no',gol);
   writeln('maka gaji ',n,' adalah empat juta');
  end;
  if gol in [3,8,13,18] then
   begin
   writeln('pekerjaan ',n,' adalah pegawai negeri golongan no',gol);
   writeln('maka gaji ',n,' adalah enam juta');
  end;
  if gol in [4,9,14,19] then
   begin
   writeln('pekerjaan ',n,' adalah pegawai negeri golongan no',gol);
   writeln('maka gaji',n,' adalah delapan juta');
  end else
  if gol in [5,10,15,20] then
   begin
   writeln('pekerjaan ',n,' adalah pegawai negeri golongan no',gol);
   writeln('maka gaji ',n,' adalah sepuluh juta');
  end;
  if gol>20 then goto again;
 end;
 if p=2 then
 begin
  mengulang:
  writeln('perkerjaan ',n,' adalah pegawai swasta');
  writeln(' daftar tempat pekerjaan pegawai swasta  ');
  writeln('1.sekolah      2.bank');
  writeln('3.perusahaan   4.lainnya');
  write('tempat bekerja:');  readln(ps);
  if ps=1 then writeln('maka gaji anda sebulan 3-5 juta');
  if ps=2 then writeln('maka gaji anda sebulan 5-10 juta');
  if ps=3 then writeln('maka gaji anda sebulan 8-16 juta');
  if ps=4 then writeln('pekerjaan anda tidak ada dalam daftar kami');
  if ps>4 then goto mengulang;
 end;
 if p=3 then
 begin
 lagi:
 writeln('pekerjaan ',n,' adalah pengusaha');
 writeln('  daftar usaha  ');
 writeln('1.makanan         2.kerajinan tangan');
 writeln('3.bahan bangunan  4.tekstil');
 writeln('5.lainnya');
 write('jenis usaha:'); readln(ju);
  if ju=1 then writeln('maka gaji anda adalah sekitar 5-10 juta');
  if ju=2 then writeln('maka gaji anda adalah sekitar 7-10 juta');
  if ju=3 then writeln('maka gaji anda adalah sekitar 8-12 juta');
  if ju=4 then writeln('maka gaji anda adalah sekitar 10-15 juta');
  if ju>4 then goto lagi;
 end;
 if p=4 then
 begin
  write('pekerjaan anda tidak ada dalam daftar kami');
  writeln(' TERIMA KASIH');
 end;
 if p>4 then goto ulang;
readln;
end.

setelah dicompile hasilnya

1.jika dimasukkan angka 1 dari jenis pekerjaan

2.jika yang dmasukan angka 2 adalah

3.jika yang dimasukan angka 3,maka hasilnya adalah

4.jika yang dipilih angka 4 maka hasilnya adalah

SEKIAN,SEMOGA MEMBANTU :):)

menghitung jumlah karakter kalimat dalam pascal

var
   kalimat:string;
   jumlah,vokal,a,b,i,konsonan:integer;
begin
   readln(kalimat);
   writeln('     MENGHITUNG KARAKTER DALAM KALIMAT      ');
   writeln('-------------------------------------------');
   jumlah:=length(kalimat);
   vokal:=0;
   a:=0;
   b:=0;
   konsonan:=0;
   writeln('kalimat:',kalimat);
   for i:=1 to jumlah do
      begin
         if upcase (kalimat[i]) in ['A','I','U','E','O'] then vokal:=vokal+1
         else konsonan:=konsonan+1;
         if upcase (kalimat[i]) in ['A'] THEN a:=a+1;
         if upcase (kalimat[i]) in ['B'] then b:=b+1;
         end;
   writeln('jumlah huruf         =',jumlah,'huruf');
   writeln('jumlah huruf vokal   =',vokal,'huruf');
   writeln('jumlah huruf a       =',a,'huruf');
   writeln('jumlah huruf b       =',b,'huruf');
   writeln('jumlah huruf konsonan=',konsonan,'huruf');
   readln;
end.


setelah dicompile,hasilnya adalah

surat cinta

arsip tugas bahasa indonesia,jadi jangan dianggap serius ya :) 

sungguh suatu keterkejutan yg aku rasakan ketika aku menerima surat darimu.tak pernah kubayangkan sebelumnya bahwa dirimu yg kukenal sempurna ternyata mencintai aku yang hanya biasa-biasa saja.

jujur,jauh dari lubuk hatiku yang terdalam,aku mempunyai perasaan yang  sama seperti yg kau rasakan.sejak pertama kali aku melihatmu,langsung terpikir olehku bahwa kamu adalah tipe yg cocok untuk menjadi pendampingku.sikap tenangmu membawa perasaan damai dalam  hatiku.sikap kesopananmu membuatku senang berada disampingmu.dan aku sangat takut jika kamu marah kepadaku,karena dengan  sikap marahmu kau akan  membenciku dan akan menjauh dariku sehingga aku tidak bisa berada didekatmu lagi..

jadi  jika kau tanyakan  sudikah aku menjadi pendampingmu?
maka aku dengan senang hati menerimanya.

membuat rumus luas segitiga dengan turbo pascal 7,1

1.jika kita belum memasukkan angkanya

lets start

program luas_segitiga;

var

       L,a,t :real;

begin

       write('a=');

       readln(a);

       write('t=');

       readln(t);

       L;1/2*a*t;

       writeln(L);

end.

setelah itu di compile untuk membuktikan apakah program yang kita buat tidak error.setelah itu klik run dan masukkan nilai ke dalam nilai a dan t yang ditanya.setelah itu klik debug->out put,maka akan keluar nilai luas segitiga nya berapa.

2.untuk angka yang sudah kita ketahui sebelumnya

lets start

program luas_segitiga;

var

       L,a,t :real;

begin

        a:=3;

        b:=6;

       writeln('a=',a);

       writeln('t=',t);

       L;1/2*a*t;

       writeln('L=',L);

end.

lanjutkan cara pada no 1 diatas.tp kekurangannya ini cuma bisa untuk angka yang telah kita tentukan sebelumnya..

semoga membantu!!!:):):)