HLA - Matris Oluşturma

İkinci örneğimiz Matris Oluşturma: Kullanıcının girdiği satır ve sutun sayısında matris oluşturup içine indeksleri yazar.



program matris;
#include( "stdlib.hhf" )
static
sat:int8:=0;
sut:int8:=0;
begin matris;
stdout.put(nl," MUHAMMED CUCE",nl," 1306060005",nl," SYSTEM PROGRAMMING ODEV-HLA-2",nl,nl);
stdout.put("Satir sayisini giriniz",nl);
stdin.get(sat);
stdout.put("sutun sayisini giriniz",nl);
stdin.get(sut);


for(mov(0,al);al< sat;add(1,al)) do
stdout.put(nl);
for(mov(0,ah);ah< sut;add(1,ah)) do
stdout.put(" -------");
endfor;
stdout.put(nl);
for(mov(0,ah);ah<=sut;add(1,ah)) do

if(ah!=sut)then

stdout.put("| ",al,",",ah," ");

else

stdout.put("|");

endif;

endfor;

endfor;

stdout.put(nl);

for(mov(0,ah);ah<sut;add(1,ah)) do

stdout.put(" -------");

endfor;



end matris;