Tugas lagi. . . .Tugas Lagi. . . .
Yah beginilah nasib mahasiswa kelas weekend, materi dikit tapi tugase bujubuneng, banyak beut,
Kali ini dapet tugas pemrograman pascal, namane program bintang tujuh, kenapa namane bintang tujuh? hayo. . ..
Mungkin pas bikin programe pusinge puolll ampe bikin kepala pusing tujuh keliling, wkwkwkwkw
Langsung ke materi gan!
Ini tak tampilin hasil kreasi skrip pascal q, hhee
1. Program Bintang ke-1
Program Bintang1;
uses wincrt;
var
X,Y,N:integer;
begin
X:=1;
write(‘Input Jumlah Baris = ‘); readln(N);
while X<=N do
begin
Y:=1;
while Y<=X do
begin
write(‘ * ‘:2);
inc(Y);
end;
inc(X);
writeln(‘ ‘ );
end;
end.
hasilnya seperti ini gan
2. Program Bintang ke-2
Program Bintang2;
uses wincrt;
var
X,Y,N:integer;
begin
X:=1;
write(‘Input Jumlah Baris = ‘); readln(N);
while X<=N do
begin
Y:=N;
while Y>=X do
begin
write(‘ * ‘:2);
dec(Y);
end;
inc(X);
writeln(‘ ‘ );
end;
end.
hasilnya seperti ini gan
3. Program Bintang ke-3
Program Bintang3;
uses wincrt;
var
X,Y,N:integer;
begin
X:=1;
write(‘Input Jumlah Baris = ‘); readln(N);
while X<=N do
begin
Y:=1;
while Y<=N do
begin
write(‘ * ‘:2);
inc(Y);
end;
inc(X);
writeln(‘ ‘ );
end;
end.
hasilnya seperti ini gan
4. Pemrograman Bintang ke-4
Program Bintang4;
uses wincrt;
var
X,Y,N:integer;
begin
X:=1;
write(‘Input Jumlah Baris = ‘); readln(N);
while X<=N do
begin
Y:=1;
while Y<=N do
begin
write(Y:2);
inc(Y);
end;
inc(X);
writeln(‘ ‘ );
end;
end.
hasilnya seperti ini gan
5. Program Bintang ke-5
Program Bintang5;
uses wincrt;
var
X,Y,N:integer;
begin
X:=1;
write(‘Input Jumlah Baris = ‘); readln(N);
while X<=N do
begin
Y:=1;
while Y<=N do
begin
write(X,’, ‘,Y);
write(‘ ‘); write(‘ ‘);
inc(Y);
end;
inc(X);
writeln(‘ ‘ );
end;
end.
hasilnya seperti ini gan
Nah tu tadi hasil otak-atik skrip pascal ku untuk program bintang tujuh. Bagi temen-temen yang sekiranya mau ambil skripnya untuk referensi tugas atau mungkin buat belajar, boleh-boleh aja kok. Semoga dapat bermanfaat buat semua ya.
Jangan lupa komen, hhee
Tjah Ndezo 