Hola, amigo. ¿te importa decirme cómo haces para indentar bloques de código por asignación de teclas? He probado en VS Enterprise 2022 y no hay manera de que funcione. Desconozco si hay que deshabilitar alguna de las configuraciones por defecto para conseguir que no se superpongan atajos. Supongo que debe haber alguna explicación lógica. 😰

hola buenas, tus videos me ayudan muchísimo. eres un grande! podrías hacer un video de como hacer trampas con área 2d, por ejemplo un pincho en C#

Muy buen video, he aprendido cosas nuevas y que me parecen mas optimas a como enseñaban en otros tutoriales. Gracias siempre por tu dedicación.

Nacho, gracias por estas explicaciones tan claras. Suscrito.

agradecido, vídeos fáciles de entender y muy buenos. Solo me falta aprender como modificar los datos guardados y como eliminarlos

Creo que el curso deberia ir como viene por defecto con Gdscript

Impaciente por los siguientes videos, y la verdad ojalá te animes a hacer mas "temporadas" donde toques el motor en mas profundidad con este lenguaje.

Gracias maestro,recomiendas godot antes que unity??,se integra godot bien con c#??

Pero no instalaste nada del entorno .NET este ni nada? no es necesario?

Saludos desde Venezuela Nacho, estoy cursando Ingeniería de Sistemas y toda la facultad de Ingeniería de Sistemas vemos tus videos para aprender programación. Este es mi código del ejercicio que planteaste: program AmbosPares; var n1, n2: integer; ambosPares: boolean; begin writeln('Dime un numero'); readln(n1); writeln('Dime otro numero'); readln(n2); ambosPares:= (n1 mod 2 = 0) and (n2 mod 2 = 0) = true; if ambosPares then writeln('Ambos numeros son pares') else writeln('Ambos numeros son impares'); ambosPares:= false; end.

Muy buen video, esperando mas contenido !!!

Genial video. Es bueno que se le de mas importancia a Godot con C#, que está un poco ninguneado. Espero mas entregas suyas.

Profesor, Qué alegría volver a verle por acá.

Hola Nacho tu juego del ahorcado C# lo estoy probando hacer con CPC basic... Pero hay algo que no me sale me ayudas ? 10 dim p$(4):dim ver$(30) 20 cls:border 4:mode 2 21 p$(0)="La grande vadrouille" 22 p$(1)="Batman" 23 p$(2)="Le grand bleu" 24 p$(3)="Le cercle des poetes disparus" 25 p$(4)="Fast and furious" 26 RANDOMIZE TIME 30 peli$=p$(rnd*4) 31 ver$=peli$:nbr=len(ver$) 32 for i=1 to nbr 33 if ver$(i)=" " then print " "; else print "-"; 34 next i 40 print peli$ 50 input"Press any key to redo";a$ 60 goto 20 Es esto que no va 33 if ver$(i)=" " then print " "; else print "-";

Voy a empezar a aprender esto por simple curiosidad, mi mamá tiene un libro y lo encontré me emocioné demasiado, es Pascal turbo Pascal, ya se python así que creo que no se me dificultará.

Pregunta. Esta explicación es sólo válida para SQL, también trabajamos las 3 relaciones de existencia de la misma manera en Access. Tenía entendido que una relación 1.1 siempre una clave principal viajaba como ajena, la que tú quieras, y listo. Pero claro, eso en Access. Viendo lo que has comentado aquí, no sé si es que Access es más sencillito, o que sólo he aplicado el caso de 1º restricción de asistencia, o que directamente sólo en SQL se aplican estas cuestiones. Gracias por la respuesta.

Quería darte las gracias. Muy buena labor docente.

Esto es oro puro Nacho, muchas gracias

Hola. ¿Por qué en el primer ejemplo del matrimonio un rombo está relleno y el otro medio relleno? ¿Es alguna notación que usas o ha sido algo arbitrario y no tiene ninguna importanticia?

Muchas gracias por lo que haces,me suscribo a tu canal

Yo la verdad aun sigo sin entenderlo, no soy programador, pero si me gustaria aprenderlo.

buenas noches ud puede poner el link de descarga pascal para pc.. gracias

Hola Nacho molan mucho tus videos. que te parece BlitzBasic? haras un curso sobre hacer juegos con BLitz?

Bien! No entendía la representación de la agregación, simplemente se envuelve en un rectángulo todo el conjunto para "agregarlo" a ese conjunto. Luego, podemos tratar toda la agregación como un conjunto

Si quieren mas bibliotecas agrueguen crt

Extrairdinario

Genial esto es mas facil para luego ir a Cc+

Genioo muy buenoo, nuevo sub

gracias me sirvio

Muuuchas gracias! Like y suscrito

MI MEGA PROPUESTA: program MediaDeBloques; const Bloques = 2; Datos = 10; var Numeros:array[1..Bloques,1..Datos] of real; suma,media:Real; nombrebloque,opcion,dato,bloque:Integer; begin for bloque:= 1 to Bloques do for dato:= 1 to Datos do begin Write('Dato ', dato,' del bloque ', bloque,':'); ReadLn(Numeros[bloque,dato]); end; repeat suma:= 0; media:=0; WriteLn(); WriteLn('¿A cuales numeros les quieres sacar la media?'); WriteLn('Escribe el numero del bloque o "0" para todos los bloques'); WriteLn('si quieres terminar escribe "-1"'); ReadLn(opcion); WriteLn(); if opcion = 0 then begin for bloque:= 1 to Bloques do for dato:= 1 to Datos do suma := suma + Numeros[bloque,dato]; media := suma / (datos*bloques); WriteLn('La media de todos los bloques es: ', media); end; for bloque:= 1 to Bloques do begin if opcion = bloque then begin nombrebloque := bloque; for dato:= 1 to Datos do suma := suma + Numeros[bloque,dato]; media := suma / Datos; WriteLn('La media del bloque ',nombrebloque,' es: ',media); end; end; until opcion = -1 end.

AQUI MI PROPUESTA program MenuDeDatos; const DatosTotales = 10; var Datos,Datos2: array [1..DatosTotales] of integer; Auxiliar,W,Mov,M:Integer; DatoEcontrado: Boolean ; begin for M:= 1 to DatosTotales do begin Write('Escribe el dato ', M,': '); ReadLn(datos[M]); datos2[M] := datos[M] end; WriteLn(); repeat WriteLn(); WriteLn('¿Que haras con la lista de datos?'); WriteLn('1- Mostrar lista'); WriteLn('2- Buscar dato en concreto'); WriteLn('3- Mostrar el dato mas grande'); WriteLn('4- Ordenar lista de datos'); WriteLn('5- Nada, salir'); ReadLn(Mov); WriteLn(); Case Mov of 1: begin WriteLn('lista de datos'); for M := 1 to DatosTotales do begin datos[M] := datos2[M]; Write(datos[M],' '); end; WriteLn(); end; 2: begin WriteLn('escribe el dato a buscar'); DatoEcontrado := false; repeat for M:= 1 to DatosTotales do datos[M] := datos2[M]; readln(W); DatoEcontrado := (W >0) and (W <= DatosTotales); if not DatoEcontrado then WriteLn('Dato no econtrado'); until DatoEcontrado; WriteLn('Este es el dato: ', datos[W]); end; 3: begin Auxiliar := datos[1]; WriteLn('Este es el dato mas grande'); for M:= 1 to DatosTotales do if Auxiliar < datos[M] then Auxiliar := datos[M]; WriteLn(Auxiliar); end; 4: begin WriteLn('Este es el orden de los datos de menor a mayor'); for M:= 1 to DatosTotales-1 do for W:= M+1 to DatosTotales do begin if datos[M] > datos[W] then begin Auxiliar := datos[M]; datos[M] := datos[W]; datos[W] := Auxiliar; end; end; for M:= 1 to DatosTotales do WriteLn(datos[M]); end; end; until Mov = 5; end.

como se llama el lenguaje?

que lenguajes es??

Gracias por los videos. Hay un repositorio en github de los cursos?

Felicidades por este curso tan interesante, tienes pensado hacer un curso de C++?

dejo por aqui un like y el ejercicio propuesto: program ejemploelse; var n1 : integer; n2 : integer; begin writeln ('dime un numero'); readln (n1); writeln ('dime otro numero'); readln (n2); if (n1 > n2) then writeln ('el primer numero es mayor que el segundo') else if (n1 < n2) then writeln ('el segundo numero es mayor que el primero') else writeln ('ambos numeros son iguales'); end. Seguimos mejorando. Muchas gracias profesor!!

Grande el profesor Nacho!! Dejo por aqui otro de los ejemplo como hacer el ejercicio propuesto: program ejemploif; var n : integer; begin writeln ('dime un numero'); readln (n); if (n mod 2 = 0) then write ('el numero es par'); If (n mod 2 <> 0) then write ('el numero es impar'); end. Mil gracias por la serie de videos. A mas de uno nos esta salvando y a la vez picando para seguir cada dia un poco mas a indagar en el mundo de la programacion.

Muy buena explicacion!!

Las relaciones pueden tener id?

Desconozco si es la solucion correcta: using System; public class Ejercicio { static void Main() { int tamaño = 11; int[] numeros = new int[tamaño]; bool final = false; for (int j = 1; j < numeros.Length; j++) { Console.WriteLine("ingrese un numero {0}/10", j); numeros[j] = Convert.ToInt32(Console.ReadLine()); } do { int numeroBuscadoPorUsuario; int num = 0; Console.WriteLine("ingrese un numero a buscar"); numeroBuscadoPorUsuario = Convert.ToInt32(Console.ReadLine()); foreach (int i in numeros) { if (numeroBuscadoPorUsuario == i) { string eleccion; Console.WriteLine("el numero {0} ingresado ya fue encontrado ¿desea buscar otro numero?", numeroBuscadoPorUsuario); Console.WriteLine("ingrese Fin para terminar, de lo contrario Presione Intro para buscar otro numero"); eleccion = Console.ReadLine(); num = i; if (eleccion.ToLower() == "fin") { final = true; } } } if (numeroBuscadoPorUsuario != num) { Console.WriteLine("numero no encontrado porfavor Presione Intro para buscar nuevamente"); } } while(final != true); Console.WriteLine("cerrando programa"); Console.ReadLine(); } }

Hola. Recuerdo este lenguaje, lo estudié en la década del '90.

tengo 16 años y siempre me intereso el mundo de la programacion, este lenguaje en particular me provocaba interes ahora que porfin encontre a alguien que explica conciso y preciso, y en videos tan cortos como para verlos en los resesos de clases e tenido grandes avances de ver la lista de reproduccion y su libro de 444 paginas!!

buenas, cuando intento compilar lo hace pero me aparece una pantalla donde me tira información (compiling (normal mode)) y al querer ver la consola o poner lo de readkey, no me aparece el resultado. qué podría ser eso?

Hola, este video no tiene solución en github? Me parece interesante el tema de mostrar el menu, pero no se como hacerlo.

Quize hacer las dos en un solo programa: program array_example; var numeros: array [1..10] of Integer ; p: Byte; impar: Boolean; impares: Integer; begin impares :=0; WriteLn('escribe 10 numeros'); for p := 1 to 10 do begin WriteLn('numero',' ', p, ); ReadLn(numeros[p]); end; Writeln('el primer numeri que escribiste fue:',' ', numeros[1]); Writeln('el ultimo numero que escribiste fue:',' ', numeros[10]); for p:= 1 to 10 do begin impar:= numeros[p] mod 2=0; if impar = true then Inc(impares); end; WriteLn('el total de numeros impares es',' ',impares); end.

Mil gracias! fácil de seguir y atento a detalles 😁

Yo hice que solo pudieras escribir mayúsculas, si escribes alog que no sea una mayúscula te da error. program escribe_una_letra; uses crt; var letra : Char; i : byte; begin repeat WriteLn('escribe una letra, entre la A y la Z'); ReadLn(letra); i := Ord(letra); if (i <65) or (i >90) then WriteLn('no puedes escribir eso'); until (i >=65) and (i <=90); WriteLn('aqui estan las letras que estan antes de tu letra'); for i := i+1 downto 65 do begin Writeln(Chr(i)); end; end.

gracias por los videos

Eso esta obsoleto! Yo ahora uso→ c: Run"disc" y después dir.exe para acto seguido teclear Run"anivemin" y ahí ya... Empieza la magia y el auténtico combate entre el hombre y la maquina para ver que inteligencia dominará el mundo..