program ubah huruf (PASCAL)

========================================================================
program lat1;
uses wincrt;
var a,c,d: string;
b,x : integer;
 
begin
a:='wongso dikromo singodimejo';(*kata yang akan di ganti huruf vokalnya*)
b:= length(a);(*menghitung jumlah karakter dari kata tersebut*)



   for x:= 1 to b do begin (*perulangan digunakan untuk membentuk array*)
           if a[x] in ['o'] then begin(* []= array, ketika pada array terdapat huruf 'o' maka diganti 'a'*)
           a[x]='a';
   end;
   end;

writeln(d);
end.

========================================================================

Mencocokan Kunci Jawaban (PASCAL)

====================================================================

program kuncijawaban;

uses wincrt; (* untuk turbopascal pd windows menggunakan wincrt*)

var x,y,v,w:string; a,b,c:integer;

begin

c:= 0;(*variabel yg digunakan untuk skor akhir*)

write('masukan kunci jawaban: '); readln(x);

write('masukan jawaban: ');

readln(y);

a:=length(x); (*menghitung jumlah karakter kunci jawaban*)

             for b:=1 to a do begin (*perulangan dibutuhkan untuk mengecek tiap jawaban berulang sebanyak jawaban *)

                 v:=copy(x,b,1); (*mengambil string kunci jawaban 1 karakter untuk dicocokan *)

                 w:=copy(y,b,1); (* mengambil string jawban yang akan dicocokan dengan kunci*)

             if v= w(*jika jawaban = kunci*)

             then begin

                  c:=c+4;

                   end

             else if v=' ' then begin(*jika jawaban kosong*)

                  c:=c+0;

                  end

             else begin (*jika jawaban salah*)

                  c:=c-1;

                  end;           

                 

                end;

writeln('skor akhir :',c);

readln;

end.

========================================================================

membalik huruf pada pascal

Program MENGGUNAKAN PASCAL;

Manipulasi String

Membalik huruf

=================================================================

program balikhuruf;

uses wincrt;

var a,b: integer; c,d,e:string;

begin

c:='SAPEEL MAYA';  (*huruf yang akan dibalik dari belakang kedepan*)

a:=length(c); (*menghitung panjang string*)

e:=''; (*variable yang nantinya akan diisi dengan kata yang dibalik*)

            for b:= a downto 1 do (*memakai perulangan agar  tiap perintah diulang sebanyak karakater dari kata dimulai dari urutan terbelakang *)

            begin

                                  d:=copy(c,b,1);(*mengambil substring dari kata SAPEEL MAYA*)

                                e:=e+d;

           end;

 write(e);

end.

========================================================================

menggunakan turbopascal for windows

Output