https://foro.gambas-es.org/viewtopic.php?f=15&t=8006&p=48300#p48300 ----------------------------------- Shell Lunes, 04 May 2020, 15:13 Re: Problema Del Restaurante. Ejercicio ----------------------------------- Añado los ordinogramas. Básico: [img]https://foro.gambas-es.org/files/images/768/procedimentob_sico.png[/img] Mejor depurado: [img]https://foro.gambas-es.org/files/images/768/procedimientomejorusado.png[/img] Código en PseInt: [quote] Algoritmo Restaurante Escribir numdeplatosv1(3, 1); Escribir numdeplatosv2(3, 1); FinAlgoritmo Funcion platos <- numdeplatosv1(docenasdehuevo, kilosdechorizo) Definir platos Como Entero; docenasdehuevo <- docenasdehuevo * 12; kilosdechorizo <- kilosdechorizo * 1000; platos <- 0; Repetir docenasdehuevo<-docenasdehuevo - 2; kilosdechorizo<-kilosdechorizo - 200; platos<-platos + 1; Hasta Que (docenasdehuevo<2 o kilosdechorizo<200) FinFuncion Funcion platos <- numdeplatosv2(docenasdehuevo , kilosdechorizo) Definir n1 Como Entero; Definir n2 Como Real; Definir platos Como Entero; n1 <- (docenasdehuevo * 12) / 2 ; n2 <- (kilosdechorizo * 1000) / 200; si n1 < n2 Entonces // Devolver n1 platos <- n1; sino // Devolver n2 platos <- n2; FinSi FinFuncion [/quote] Saludos