Kan biasanya kita sebagai mahasiswa IF (Teknik Informatika) di suruh ngerjain tugas gtu, baik
yang di tulis maupun tugas praktik ...
nih saya pernah medapat tugas di suruh buat kodingan Bintang " Besar ke Kecil"
langkah pertama itu biasa, buka dulu si DEV-PASCAL ...
nih gambar'a .. ...
terus ketik deh syntax di bawah ini :
Program Bintang_Besar_Ke_Kecil;
{I.S : }
{F.S : }
uses crt;
var
N ,i,j : integer;
begin
writeln('*************************************');
writeln('* Program segitiga bintang membesar *');
writeln('*************************************');
write ('Masukkan angka : '); readln (N);
writeln;
writeln('Hasilnya : ');
writeln(' ');
for i:= 1 to N do
begin
for j := N-i downto 1 do
begin
write(' * ');
end;
writeln(' ');
end;
readkey();
end.
yang di tulis maupun tugas praktik ...
nih saya pernah medapat tugas di suruh buat kodingan Bintang " Besar ke Kecil"
langkah pertama itu biasa, buka dulu si DEV-PASCAL ...
nih gambar'a .. ...
terus ketik deh syntax di bawah ini :
Program Bintang_Besar_Ke_Kecil;
{I.S : }
{F.S : }
uses crt;
var
N ,i,j : integer;
begin
writeln('*************************************');
writeln('* Program segitiga bintang membesar *');
writeln('*************************************');
write ('Masukkan angka : '); readln (N);
writeln;
writeln('Hasilnya : ');
writeln(' ');
for i:= 1 to N do
begin
for j := N-i downto 1 do
begin
write(' * ');
end;
writeln(' ');
end;
readkey();
end.
tar hasilnya kaya gini gan ....