Prepis z Pascalu do c – C / C++ – Fórum – Programujte.com

Skúste niekto prepisat nasledujúci program do C:

VAR I,n:INTEGER;
procedure druhy;
var Q,A,DH,b11,b21,b22,B12:integer; T:array [1..50] of integer;
begin
randomize;
for i:= 1 to 4 do T[i]:=random ( 10)+1;
writeln;
for i:=1 to n do write (T[I] :4) ; writeln;
for i:=3 to 4 do write (T[I] :4) ; writeln;
for i:=1 to n *n do
Case i of
1:b11 := (T[1] ) ;
2 : b12 := (T[2] );
3: b21:= (T[I] );
4:b22:= (T[I] ) ;

end;
writeln;
writeln ('Acka',' ',b11,' ',b12 ,' ',b21,' ', b22,' ') ;
writeln;
Q:=b11 *b22 ;A:= (b12*b21);
DH :=Q-A;
writeln(Q,' ',A);
writeln ('determinant je',' ',DH);


end;


PROCEDURE TRETIA;

var a,l,pom,k,f,d ,m,a11 ,
a12 ,
a13,
a21,
a22,
a23,
a31,
a32,
a33:integer;
jedno,druhe,tretie:array [1..50] of integer; pompole :array [1..50] of integer;

BEGIN
for i:=1 to n *n do begin
jedno[i]:=random ( 10)+1;
end;

writeln;

for i:=1 to n do write (JEDNO[I] :4) ; writeln;
for i:=4 to 6 do write (JEDNO[I] :4) ; writeln;
for i:=7to 9 do write (JEDNO[I]:4 ) ; writeln;


writeln;

for i:=1 to n *n do
Case i of
1:a11 := (jedno[1] ) ;
2 : a12 := (jedno[2] );
3: a13:= (jedno[I] );
4:a21:= (JEDNO[I] ) ;
5:a22:= (JEDNO[I]) ;
6:a23:= (JEDNO[I]) ;
7:a31:= (JEDNO[I] );
8:a32:= (JEDNO[I] ) ;
9:a33:= (JEDNO[I] ) ;
end;
writeln;
writeln ('Acka',' ',a11,' ',a12 ,' ', a13,' ',a21,' ', a22,' ', a23,' ',a31,' ',a32,' ', a33 ) ;
writeln;
k:=a11 *a12*a13 ;l:=a21*a32*a13;
m :=a31*a12*a23; pom:= -(a13*a21*a22*a31) ; f:=-(a23* A32* A11 );d:= -(a33 *a12* a21);
writeln(k,' ',l,' ',m,' ',pom,' ',f, ' ',d, ' ');
writeln ('determinant je',' ',k+l+m-d-f-pom);



END;



begin
{ TODO -oUser -cConsole Main : Insert code here }

writeln('zadaj STUPEN STVORCOVEJ MATICE');
readln (n);
randomize;
writeln;
writeln ('matica typu',' ' ,n,' . ', n); writeln;
CASE N OF
2:DRUHY;
3:TRETIA ELSE WRITELN ('ZATIAL NEEXISTUJE VZOREC');
END;
readln;
end.

To bbeni : Možná se ti to bude zdát jako nemístná otázka, ale proč? :)

Jednoduše proto, že je to domácí úkol a je samozřejmě jednodušší si to nechat vypracovat, než se snažit sám.

A tu sa teda naskytla nová otázka: A čo za to? :smile20:

nickeby ti daco trebalo v Pascale..

..tak si to napíšem :-p No končím, lebo len spamujem :-(
Keď je to úloha tak by si sa to mohol aj sám pokúsiť nie? Sa ti to zíde podľa mňa;-)