Turbo Pascal

Pembelajaran bahasa program itu tidak sulit. saya akan memberikan contoh bahasa program pascal.
ini adalah contoh awal membuat aplikasi.

program hello_wolrd;
uses crt;
begin
  clrscr;
  write ('hello');
  write ('world');
  readln;
end.

sekian dari saya. tunggu postingan dari saya selanjutnya. jangan lupa komentarnya iya

Turbo Pascal

Oke. hari ini saya akan posting sara membuat perogram balik nama menggunakan bahasa program pascal. ini adalah contoh programnya :

program balik_nama;

USES CRT;

const pw = 'asking ';

var

   pass : string;

   c : char;

   i : integer;

begin

     clrscr;

     while(i < 2) do

     begin

          write('Masukkan Password : ');

          while(c <> ' ') do

          begin

               c := readkey;write('*');

               pass := pass + c;

          end;

          writeln;

          if pass = pw then

          begin

               writeln('Benar');

               i := 3;

          end

          else

          begin

               writeln('Password yang anda masukan salah, silahkan coba lagi!');

               i := i + 1;

               pass := '';

               c := '*';

          end;

     end;

     readln;

end.

cukup sampai disini dulu. tunggu postingan yang lainya lagi.

note: misal ada kekurangan bisa dikomentar dibawah.