TUGAS PETRUK : ABJAD _ HALAMAN 17 NO.7 (ALGORITMA - PASCAL - HASIL )

• ALGORITMA

algoritma abjad_ABC
deklarasi
   abjad : string
   urutan,posisi : integer
deskripsi
   abjad ← 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
   for urutan = 1 to 26 do
     begin
     posisi ← 28 - urutan;
     delete(abjad, posisi, 1);
     writeln(abjad);
  end; 
end.

KEBALIKAN NYA :

algoritma abjad_ABC_KEBALIK
deklarasi
   abjad : string
   urutan,posisi : integer
deskripsi
   abjad ← 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
   for urutan = 1 to 26 do
     begin
     posisi ← 1;
     delete(abjad, posisi, 1);
     writeln(abjad);
  end; 
end.

• PASCAL

program abjad_ABC;
 uses wincrt;

 var
 abjad : string;
 urutan, posisi: integer;

 begin
   abjad :='ABCDEFGHIJKLMNOPQRSTUVWXYZ';
   
   
   for urutan:=1 to 26 do
     begin
       posisi:= 28 - urutan;
       delete(abjad, posisi, 1);
       writeln(abjad);
     end;
   
 end.

KEBALIKAN NYA :

program abjad_ABC;
 uses wincrt;

 var
 abjad : string;
 urutan, posisi: integer;

 begin
   abjad :='ABCDEFGHIJKLMNOPQRSTUVWXYZ';
   
   
   for urutan:=1 to 26 do
     begin
       posisi:= 1;
       delete(abjad, posisi, 1);
       writeln(abjad);
     end;
   
 end.

• HASIL

KEBALIKAN NYA :

---

Artikel Terkait: