Necesito ayuda para pasar un codigo de PsInt a Java
Publicado por JADE (3 intervenciones) el 09/12/2020 15:46:43
TENGO ESTE CODIGO EN PSEINT PERO NO PUDE PASARLO A JAVA NETBEANSJDK PORFAVOR SI ALGUIEN ME PUEDE AYUDAR A PASARLO SE LOS AGRADECERIA. ES MUY LARGO PERO ESPERO ALGUIEN ME AYUDE HOY MISMO
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
Proceso matriz
Definir i,c,m,i1,c1,ma2,fi,p,ma,colu,fila,s,resul,deter,k,t,t1 Como Entero;
m<-0;
colu<-0;
fila<-0;
Dimension ma[4,4];
Dimension ma2[4,4];
Dimension K[4,4];
Dimension s[4,4];
Dimension t[4,4];
Dimension t1[4,4];
Escribir Sin Saltar"--BUSCAR EN MATRIZ A--"; Escribir " ";Para i<-0 Hasta 3 Con Paso 1 Hacer
Para c<-0 Hasta 3 Con Paso 1 Hacer
ma[i,c]=azar(50)+1;
Fin Para
Fin Para
Escribir ""; Escribir "Que celda quieres buscar:"; Escribir Sin Saltar "Fila"; leer i1; Escribir Sin Saltar "Columna";leer c1; Escribir "";Escribir "La matriz es ",ma[i1,c1];
Escribir ""; Escribir Sin Saltar"--MOSTRAR MATRIZ A--"; Escribir "";Para i<-0 Hasta 3 Con Paso 1 Hacer
Escribir "";Para p<-0 Hasta 3 Con Paso 1 Hacer
Si ma[i,p]<10 Entonces
Escribir Sin Saltar " ",ma[i,p]," ";
Fin Si
Si ma[i,p]>=10 Entonces
Escribir Sin Saltar ,ma[i,p]," ";
Fin Si
Fin Para
Fin Para
Escribir " "; Escribir " "; Escribir Sin Saltar"--BUSCAR EN MATRIZ-- B"; Escribir "";Para i<-0 Hasta 3 Con Paso 1 Hacer
Para c<-0 Hasta 3 Con Paso 1 Hacer
ma2[i,c]=azar(50);
Fin Para
Fin Para
Escribir " "; Escribir "Que celda quieres buscar:"; Escribir Sin Saltar "Fila"; leer i1; Escribir Sin Saltar "Columna";leer c1; Escribir "";Escribir "La matriz ",ma2[i1,c1];
Escribir Sin Saltar"MOSTRAR MATRIZ B"; Escribir "";Para i<-0 Hasta 3 Con Paso 1 Hacer
Escribir "";Para p<-0 Hasta 3 Con Paso 1 Hacer
Si ma2[i,p]<10 Entonces
Escribir Sin Saltar " ",ma2[i,p]," ";
Fin Si
Si ma2[i,p]>=10 Entonces
Escribir Sin Saltar ,ma2[i,p]," ";
Fin Si
Fin Para
Fin Para
Escribir " "; Escribir " "; Escribir Sin Saltar"MULTPLICACIÓN DE MATRICES A Y B"; Escribir "";Para i<-0 Hasta 3 Con Paso 1 Hacer
Para c<-0 Hasta 3 Con Paso 1 Hacer
Para fi<-0 Hasta 3 Con Paso 1 Hacer
m=m+(ma[colu,fi]*ma2[fi,fila]);
Fin Para
k[i,c]=m;
m<-0;
fila=fila+1;
si fila>3 Entoncesfila<-0;
colu=colu+1;
FinSi
Fin Para
Fin Para
Para i<-0 Hasta 3 Con Paso 1 Hacer
Escribir "";Para p<-0 Hasta 3 Con Paso 1 Hacer
Si k[i,p]>1000 Entonces
Escribir Sin Saltar k[i,p]," ";
Fin Si
Si k[i,p]>=10 & k[i,p]<=1000 Entonces
Escribir Sin Saltar " ",k[i,p]," ";
Fin Si
Fin Para
Fin Para
Escribir " "; Escribir " "; Escribir Sin Saltar"SUMA DE MATRICES A Y B"; Escribir "";Para i<-0 Hasta 3 Con Paso 1 Hacer
Para c<-0 Hasta 3 Con Paso 1 Hacer
s[i,c]=ma[i,c]+ma2[i,c];
Fin Para
Fin Para
Para i<-0 Hasta 3 Con Paso 1 Hacer
Escribir "";Para p<-0 Hasta 3 Con Paso 1 Hacer
Si s[i,p]<10 Entonces
Escribir Sin Saltar " ",s[i,p]," ";
Fin Si
Si s[i,p]>=10 Entonces
Escribir Sin Saltar ,s[i,p]," ";
Fin Si
Fin Para
Fin Para
Escribir " "; Escribir " "; Escribir "Determinante de la matrices "; Escribir " ";Para i<-0 Hasta 3 Con Paso 1 Hacer
Si i==0 Entonces
deter=ma[0,0]*((ma[1,1]*ma[2,2]*ma[3,3])+(ma[1,2]*ma[2,3]*ma[3,1])+(ma[2,1]*ma[3,2]*ma[1,3])-(ma[1,3]*ma[2,2]*ma[3,1])-(ma[2,1]*ma[1,2]*ma[3,3])-(ma[2,3]*ma[3,2]*ma[1,1]));
Fin Si
Si i==1 Entonces
deter=(-ma[1,0])*(((ma[0,1]*ma[2,2]*ma[3,3])+(ma[0,2]*ma[2,3]*ma[3,1])+(ma[0,3]*ma[3,2]*ma[2,1])-(ma[0,3]*ma[2,2]*ma[3,1])-(ma[0,2]*ma[2,1]*ma[3,3])-(ma[0,1]*ma[2,3]*ma[3,2])));
FinSi
Si i==2 Entonces
deter=ma[2,0]*((ma[0,1]*ma[1,2]*ma[3,3])+(ma[0,2]*ma[1,3]*ma[3,1])+(ma[1,1]*ma[3,2]*ma[0,3])-(ma[0,3]*ma[1,2]*ma[3,1])-(ma[1,1]*ma[0,2]*ma[3,3])-(ma[1,3]*ma[3,2]*ma[0,1]));
Fin Si
Si i==3 Entonces
deter=-ma[3,0]*((ma[0,1]*ma[1,2]*ma[2,3])+(ma[0,2]*ma[1,3]*ma[2,1])+(ma[1,1]*ma[2,2]*ma[0,3])-(ma[0,3]*ma[1,2]*ma[2,1])-(ma[1,1]*ma[0,2]*ma[2,3])-(ma[1,3]*ma[2,2]*ma[0,1]));
Fin Si
resul=deter+resul;
deter<-0;
Fin Para
Escribir "Determinante de matriz A es: ",resul;
resul<-0;
deter<-0;
Escribir " ";Para i<-0 Hasta 3 Con Paso 1 Hacer
Si i==0 Entonces
deter=ma2[0,0]*((ma2[1,1]*ma2[2,2]*ma2[3,3])+(ma2[1,2]*ma2[2,3]*ma2[3,1])+(ma2[2,1]*ma2[3,2]*ma2[1,3])-(ma2[1,3]*ma2[2,2]*ma2[3,1])-(ma2[2,1]*ma2[1,2]*ma2[3,3])-(ma2[2,3]*ma2[3,2]*ma2[1,1]));
Fin Si
Si i==1 Entonces
deter=(-ma2[1,0])*(((ma2[0,1]*ma2[2,2]*ma2[3,3])+(ma2[0,2]*ma2[2,3]*ma2[3,1])+(ma2[0,3]*ma2[3,2]*ma2[2,1])-(ma2[0,3]*ma2[2,2]*ma2[3,1])-(ma2[0,2]*ma2[2,1]*ma2[3,3])-(ma2[0,1]*ma2[2,3]*ma2[3,2])));
FinSi
Si i==2 Entonces
deter=(ma2[2,0])*((ma2[0,1]*ma2[1,2]*ma2[3,3])+(ma2[0,2]*ma2[1,3]*ma2[3,1])+(ma2[1,1]*ma2[3,2]*ma2[0,3])-(ma2[0,3]*ma2[1,2]*ma2[3,1])-(ma2[1,1]*ma2[0,2]*ma2[3,3])-(ma2[1,3]*ma2[3,2]*ma2[0,1]));
Fin Si
Si i==3 Entonces
deter=(-ma2[3,0])*((ma2[0,1]*ma2[1,2]*ma2[2,3])+(ma2[0,2]*ma2[1,3]*ma2[2,1])+(ma2[1,1]*ma2[2,2]*ma2[0,3])-(ma2[0,3]*ma2[1,2]*ma2[2,1])-(ma2[1,1]*ma2[0,2]*ma2[2,3])-(ma2[1,3]*ma2[2,2]*ma2[0,1]));
Fin Si
resul=deter+resul;
deter<-0;
Fin Para
Escribir "Determinante de matriz B es: ",resul;
Escribir ""; Escribir "La matriz A transpuesta";Para i<-0 Hasta 3 Con Paso 1 Hacer
Para c<-0 Hasta 3 Con Paso 1 Hacer
t1[c,i]=ma[i,c];
Fin Para
Fin Para
Para i<-0 Hasta 3 Con Paso 1 Hacer
Escribir "";Para p<-0 Hasta 3 Con Paso 1 Hacer
Si t1[i,p]<10 Entonces
Escribir Sin Saltar " ",t1[i,p]," ";
Fin Si
Si t1[i,p]>=10 Entonces
Escribir Sin Saltar ,t1[i,p]," ";
Fin Si
Fin Para
Fin Para
Escribir " "; Escribir " "; Escribir "La matriz B transpuesta";Para i<-0 Hasta 3 Con Paso 1 Hacer
Para c<-0 Hasta 3 Con Paso 1 Hacer
t[c,i]=ma2[i,c];
Fin Para
Fin Para
Para i<-0 Hasta 3 Con Paso 1 Hacer
Escribir "";Para p<-0 Hasta 3 Con Paso 1 Hacer
Si t[i,p]<10 Entonces
Escribir Sin Saltar " ",t[i,p]," ";
Fin Si
Si t[i,p]>=10 Entonces
Escribir Sin Saltar ,t[i,p]," ";
Fin Si
Fin Para
Fin Para
Escribir " ";FinProceso
Valora esta pregunta
-1