KONSEP PEMOGRAMAN

latihan pratikum 11

konsep pemograman

program pascal dengan menggunakan string

LIST :
     program ubah;
    uses crt;
    var pil:char;
        i:byte;
        kalimat:string;
        awal,huruf:boolean;

    begin
     repeat
      clrscr;
      writeln('MENU PILIHAN');
      writeln('============');
      writeln('1.Ubah Ke Huruf Besar Semua');
      writeln('2.Ubah Ke Huruf Kecil Semua');
      writeln('3.Huruf Pada Awal Kata Di Ubah Ke Huruf besar');
      writeln('4.Selesai');
      writeln;
      write('Pilihan Anda [1..4]:');

      repeat
       pil:=readkey;
      until pil in ['1'..'4'];

      case pil of
      '1':begin
           clrscr;
           writeln('Masukan Sembarang Kalimat:');
           readln(kalimat);
           writeln;

           for i:=1 to length(kalimat) do
           begin
            kalimat[i]:=upcase(kalimat[i]);
           end;

           writeln('Kalimat Yang Dihasilkan:');
           write(kalimat);
           readln;
          end;

      '2':begin
           clrscr;
           writeln('Masukan Sembarang Kalimat:');
           readln(kalimat);
           writeln;

           for i:=1 to length(kalimat) do
           begin
            if (ord(kalimat[i])>64) and (ord(kalimat[i])<97) then
             kalimat[i]:=chr(ord(kalimat[i])+32);
           end;

           writeln('Kalimat Yang Dihasilkan:');
           write(kalimat);
           readln;
          end;

      '3':begin
           clrscr;
           writeln('Masukan Sembarang Kalimat:');
           readln(kalimat);
           writeln;


           for i:=1 to length(kalimat) do
           begin
            if (kalimat[i-1]=' ') or (i=1) then
             kalimat[i]:=upcase(kalimat[i]);
           end;

           writeln('Kalimat Yang Dihasilkan:');
           write(kalimat);
           readln;
          end;
      end;
     until pil='4';
    end.

hasilnya :









  logika :

FUNGSI-FUNGSI STRING PADA PASCAL

Pascal adalah sebuah bahasa pemograman tempo dulu. Mungkin itu saja yang dapat
saya definiskan, karena saya yakin pembaca lebih tahu mengenai definisi lengkap dari
Pascal. Saya ingin berbagi ilmu walaupun cuma sedikit tentang pemograman dengan
Pascal.
Melalui tulisan ini, saya mencoba untuk mengulas program, prosedur dan fungsi
menarik yang bisa Anda coba dan terapkan dalam pemograman Pascal.
Beberapa yang dapat saya sampaikan, diantaranya:
1. Fungsi-fungsi String
2. Fungsi-fungsi Date
3. Fungsi-fungsi Konversi
4. Program Permainan
Semoga bahasan ini menjadi menarik dan bermanfaat untuk Anda semua.
FUNGSI-FUNGSI STRING
Berikut ini adalah fungsi-fungsi untuk memanipulasi data String. Jalankan aplikasi
Pascal Anda, ketikkan kode berikut:
PROGRAM MANIPULASISTRING;
USES CRT;
a. Lower Case
Fungsi ini akan mengubah string yang diinputkan menjadi Lower Case (huruf kecil).
Ketikkan fungsi berikut ini:
b. Upper Case
Fungsi ini akan mengubah string yang diinputkan menjadi Upper Case (huruf besar).
Ketikkan fungsi berikut ini:
c. Proper Case
Fungsi ini akan mengubah string yang diinputkan menjadi Proper Case (huruf besar
untuk huruf awal setiap kata).