[PASCAL]Penentuan nilai terbesar dalam sebuah larik

Pencarian angka terbesar dari larik serta mencari posisi nilai terbesar tersebut pada larik ke berapa saja

program la;
uses crt;

var
 larik : array[1..9] of integer;
 i,x, hi : integer;
 xx, posisi : string;

begin
 for i:= 1 to 9 do
 begin
  write('Masukkan angka ke-', i, ' : ');
  readln(larik[i]);
 end;
 writeln('Larik yang dimasukkan : ');
 write('(');
 for i:=1 to 9 do
 write(larik[i],' ');
 writeln(')');

 readln;

 hi := 0;
 for i := 1 to 9 do
 begin
  if (larik[i] >= hi) then
  begin
   hi := larik[i];
  end;
 end;

 for i:= 1 to 9 do
 begin
  if (larik[i] = hi) then
  begin
   str(i,xx);
   posisi := posisi + xx + ' ';
  end;
 end;
 writeln('Nilai terbesar adalah : ', hi);
 writeln('Nilai terbesar ditemukan pada posisi ke : ', posisi);
 readln;
end.

[PASCAL] Pencarian Huruf dalam sebuah String

Program sederhana berikut adalah untuk mencari sebuah huruf yang terdapat dalam sebuah kata.
Output program ini akan menunjukkan ada berapa kali huruf yang di cari dalam sebuah kata dan menunjukkan posisinya dalam kata tersebut (huruf keberapa saja).

program Gaby-Search;

uses crt;

var
 s : String;
 len,i : integer;
 cari : char;
 jlh : integer;
 xx, pos : String;



begin
 write('Masukkan Kata : ');
 readln(s);

 len := Length(s);

 writeln('Kata yang dimasukkan adalah : ');
 for i := 1 to len do
  write(s[i], ', ');
  writeln();
  readln();

 write('Masukkan Huruf yang di cari : ');
 readln(cari);

 writeln('Huruf yang di cari "',cari,'"');
 readln();
 jlh := 0;

 For i := 1 to len do
  begin
   if (s[i] = cari) then
    begin
     str(i,xx);
     pos := pos + xx + ', ';
     jlh := jlh + 1;
    end;
  end;

 if (jlh > 0) then
 writeln('Huruf ',cari, ' ditemukan sebanyak : ', jlh, ' kali pada posisi : ', pos)
 else
 writeln('Huruf ',cari, ' tidak ditemukan!');
 readln;
end.

Penyusunan Karakter dalam string secara Alphabet

Program ini akan menyusun sebuah kata yang dimasukkan sesuai dengan alphabet.

algoritmanya gampang saja :
Pada dasarnya string itu adalah larik char. jadi untuk mengurutkannya, kita tinggal membandingkan apakah string[1] lebih besar dari string sesudahnya. Jika ya maka, pertukarkan posisi mereka.

Silahkan.di coba.

program sort;

uses crt;


var
 szo: string;
 i, j : byte;
 n : integer;
 t:char;


begin
 write('masukkan Kata : ');
 readln(szo);
 n:=length(szo);

 for i:=1 to n-1 do
  begin
   for j:= i +1 to n do
    begin
     if (szo[i]>szo[j]) then
      begin
       t:=szo[i];
       szo[i]:=szo[j];
       szo[j]:=t;
       writeln(szo);

      end;
    end;
  end;
 writeln();

 for i:=1 to n do write(szo[i], ' ');
 readln;

end.