CÓDIGO EM PASCAL else begin cont:=cont+1; blinha:=b[j]; for c:=1 to (n-1) do begin blinha:=blinha-(A[j,c]*x[c]); end; if(blinha=0)then begin comp:=1; end else comp:=2; end; j:=j-1; end;
{"Image DocumentName": "C\u00d3DIGO EM PASCAL", "Image ImageDescription": "else begin cont:=cont+1; blinha:=b[j]; for c:=1 to (n-1) do blinha:=blinha-(A[j,c] x[c]); end; if(blinha=0)then comp:=1; end else comp:=2; j:=j-1;", "Image XResolution": "37", "Image YResolution": "37", "Image ResolutionUnit": "Pixels/Centimeter", "Image Software": "SlidePlayer", "Image YCbCrPositioning": "Centered"}