program segitiga;
uses crt;
var
x: array[1..4,1..7] of integer;
i,j: integer;
a,b,c: integer;
begin
crlscr;
a:=4;
b:=4;
c:=4;
for i:=1 to 4 do
begin
for j:=a to b do
gotoxy(j,i); write('x');
end;
a:=(c-i);
b:=(c+i);
writeln;
readln;
end;
end.

---------- Post Merged at 04:04 PM ----------

Quote Originally Posted by Δx Δp ≥ ½ ħ View Post
maksudnya kalo ngerunnya pake Turbo Pascal (yg warna biru) butek banget ga ada variasi. Kalo pake devPascal yg putih kan lebih enak diliat.

Tapi dosen saya dulu jail bgt. Soal ujiannya cuma satu, buat program buat nyari bilangan prima ke-n dari deret Fibonacci (n=1...100). Ujiannya 4 jam, tp cukup bikin muntah darah karena pas kuliah gak diterangin sama sekali ttg cara bikin algoritma deret Fibonacci. Maklum dosen beda jurusan, suka sentimen.
gw malah ingat dosen jurusan sendiri waktu ujian
Algoritma dan Pemrograman ngasih soal terkait ku
liah Gelombang