Program pascal membalik karakter dan kata dengan perulangan For dan Array

Senin, 16 Desember 2013

Program pascal membalik karakter dan kata dengan perulangan For dan Array

Program pascal membalik karakter dan kata dengan perulangan For dan Array - Setalah beberapa hari tidak posting diblog saya, kali ini saya kembali sharing ilmu untuk membuat program membalik karakter atau kata dengan pascal yang diajarkan pada matakuliah pemrograman dasar yang diajar oleh suhu saya yang berma Putu Sugiartawan (Suksma ilmunya). Didalam penyelesaian ini saya menggunakan bantuan array dan perulangan For to do. Langsung saja ke soalnya :

Buatlah program pascal untuk membalik karakter sejumlah yang dimasukkan user dimana hasil dari program pascal yaitu menampilkan Data/karakter yang dimasukkan user dan juga menampilkan hasil pembalikkan kata.

Nah Contoh program pascalnya seperti berikut :

program no4;

var
  x: array[1..100] of char;
  y: array[1..100] of char;
  i,n,j: integer;


begin

  write('masukan jumlah karakter di nama anda '); readln(n);
  for i:=1 to n do
  begin
  write('masukan karakter ke ',i,' : '); readln(x[i]);
  end;
  j:=n;
  for i:=1 to n do
  begin
  y[i]:= x[j];
  j:=j-1;
  end;

  writeln;
  writeln(' Hasil Data ');
  write('Berikut gabungan kata array 1 " ');

  for i:=1 to n do
  begin
    write(x[i]);
  end;
  write(' " dan hasil sesudah dibalik "');
  for i:=1 to n do
  begin
    write(y[i]);
  end;
  write('"');
  readln;
  end.