Aller au contenu

Promethee_Hades

Membre
  • Contenus

    15934
  • Inscription

  • Dernière visite

À propos de Promethee_Hades

  • Rang
    Chien Fou forumeur
  • Date de naissance 04/01/1998

Informations Personnelles

  • Sexe
    Homme
  • Pays

Visiteurs récents du profil

21872 visualisations du profil
  1. Ou là là, j'ai rien compris du tout à vos explication informatique, une fonction est une sorte de sous programme qui exécute une série d'instruction, même aucune, qui est censé retourner un résultat. Car on peut écrire une fonction Function nul End. Une fonction ne fait pas impérativement un ou des calcul. Elle peut affiche les codes ASCII de bonjour Voila des exemple de fonction écrite en langage pascal Function Min(nombre_x,nombre_y:Integer):Integer; Function Max(nombre_x,nombre_y:Integer):Integer; Procedure Ordonner_Min_Max (Var Minimum,Maximum:Integer); Function Limite(Valeure,Inferieure,Superieure:Integer):Integer; Function Format_Positif(x,y:Integer):Integer; Function Milieu(debut,Fin:Integer):Integer; Function PGCD(A,B : Longint) : Longint; Function Premier( Nombre : LongInt ): Boolean ; Function Parties_Aliquotes ( t: LongInt ):LongInt; Implementation (* ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ³°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° ® MIN ¯ °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°³ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ *) Function Min(nombre_x,nombre_y:Integer):Integer; Begin IF nombre_x < nombre_y THEN min := nombre_x ELSE min := nombre_y; End { Fin de : Min }; (* ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ³°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° ® MAX ¯ °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°³ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ *) Function Max(nombre_x,nombre_y:Integer):Integer; Begin IF nombre_x > nombre_y THEN max := nombre_x ELSE max := nombre_y; End { Fin de : Max }; (* ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ³°°°°°°°°°°°°°°°°°°°°°°°°°°°° ® ORDONNER_MIN_MAX ¯ °°°°°°°°°°°°°°°°°°°°°°°°°°°³ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ *) Procedure Ordonner_Min_Max (Var Minimum,Maximum:Integer); Var L_Inf, L_Sup:Integer; Begin L_Inf := Min(Minimum,Maximum);{ Place dans L_Inf le Minimum de Min ou Max } L_Sup := Max(Minimum,Maximum);{ Place dans L_Sup le Maximum de Min ou Max } Minimum := L_Inf; Maximum := L_Sup;{ Rétabli le Minimum et le Maximum } End { Fin de : Ordonner_Min_Max }; (* ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ³°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° ® LIMITE ¯ °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°³ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ *) Function Limite(Valeure,Inferieure,Superieure:Integer):Integer; Begin IF Valeure < Inferieure THEN Valeure := Inferieure ELSE IF Valeure > Superieure THEN Valeure := Superieure; Limite := Valeure; End { Fin de : Limite }; (* ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ³°°°°°°°°°°°°°°°°°°°°°°°°°°°°° ® FORMAT_POSITIF ¯ °°°°°°°°°°°°°°°°°°°°°°°°°°°°³ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ *) Function Format_Positif(x,y:Integer):Integer; Begin Format_Positif := (( x Mod y) + y ) Mod y; End { Fin de : Format_Positif }; (* ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ³°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° ® MILIEU ¯ °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°³ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ *) Function Milieu(debut,Fin:Integer):Integer; Begin Milieu := ( debut + fin ) SHR 1;{ = DIV 2 } End { Fin de : Milieu }; (* ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ³°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° ® PGCD ¯ °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°³ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ *) Function PGCD(A,B : Longint) : Longint; Var L_Reste : Longint; Begin IF A < B THEN Begin L_Reste:=A;A := B;B := L_Reste; End; Repeat L_Reste:= A MOD B; A:= B; B:= L_Reste; Until L_Reste = 0; PGCD := A; End { Fin de : PGCD }; (* ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ³°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° ® PREMIER ¯ °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°³ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ *) Function Premier( Nombre : LongInt ): Boolean ; Const C_Tab : Array [ 1..53 ] OF Byte = ( 2, 3, 5, 7 , 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61 ,67, 71, 73, 79, 83, 89,97 ,101,103,107,113,127,131,137,139,149,151,157,163,167,173,179,181, 191,193,197,199,211,223,227,229,233,239,241,251); Var L_Index,L_Racine : Word; Begin L_Racine := Round(Sqrt( Nombre )); IF ( L_Racine > 1) AND (( Nombre Mod L_Racine ) = 0 ) THEN Begin Premier := False; Exit; End; For L_Index := 1 TO Min(53,L_Racine) DO Begin If ( Nombre MOD C_Tab[ L_Index ] = 0 ) Then { Test de Diviseur par : 2 251 } Begin Premier := Nombre = C_Tab[ L_Index ]; Exit; End; End; L_Index := 258 ; While L_Index < L_Racine DO { Test des diviseur 6L_Index-1 & 6L_Index+1 jusqu' Nombre^.5 } Begin IF ( Nombre Mod ( L_Index-1 )) = 0 THEN Begin Premier := False; Exit; End ELSE IF ( Nombre Mod ( L_Index+1 )) = 0 THEN Begin Premier := False; Exit; End; Inc( L_Index,6 ); End; Premier := True; End { Fin de : Premier }; (* ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ³°°°°°°°°°°°°°°°°°°°°°°°°°°° ® PARTIES_ALIQUOTES ¯ °°°°°°°°°°°°°°°°°°°°°°°°°°°³ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ *) Function Parties_Aliquotes ( t: LongInt ):LongInt; Var L_x,L_Somme, L_racine, L_Partiel : LongInt; Begin L_Somme:=1;L_x:=2;L_racine := Round(Sqrt(t)); Repeat IF ( t mod L_x ) = 0 THEN Begin L_Somme := L_Somme + L_x; L_Partiel := t Div L_x; IF ( L_Partiel - L_x ) <> 0 THEN Inc(L_Somme,L_Partiel); End; Inc ( L_x ) { := L_x + 1 }; Until ( L_x > L_racine ); Parties_Aliquotes := L_Somme; End { Fin de : Parties_Aliquotes }; Alors vos explication de philo par des function informatique, franchement ça m'a dépassé. Et pourtant dans les années 90 -2000, je faisais justement de la recherche personnelle sur des traitement philosophique par l'informatique. C'était très archaïque je dois reconnaître.
  2. Ça me fait penser à l'histoire de Victor, il ne roule pas sur l'or surtout qu'il vient de sortir de prison, et Victor n'as pas un sou vaillant en poche. Un bistrot est en face de la prison, il traverse la rue entre et là le patron lui dit: Je vous sert ? Victor répond alors La main ! Le patron sert la main de Victor et lui demande Vous voulez ? et Victor répond La caisse. !
  3. Une pensée très distillée par l'alambique
  4. Tu n'as qu'à répondre une belle villa pour sa maman, mon fils est très généreux.
  5. Bonjour Riad grosse poigne de mains C'est l'histoire de Newton et de sa pomme, Faut savoir que Newton s'intéressait aux philosophies, mais est plus connu pour ses autres travaux qu'il considérait comme mineur.
  6. Enfin Alambic c'est pas sorcier, c'est Dieu Bique, la bique c'est la chèvre, et al ou el c'est Dieu en akkadien ancien. Donc alambique signifie Dieu chèvre. Oui oui je me touche la nuit pourquoi ? Bonjour Cal, poigne de mains Oui et beaucoup de mathématicien furent aussi des philosophe, d'ailleurs le père de la philosophie Thalès de Millet, était aussi un mathématicien, géomètre, géographe, etc...
  7. Bonjour Bla-bla-ba, poigne de mains Je crois que c'est les arabes, il y a très longtemps, d'ailleurs le mot est d'origine arabe.
  8. Peut on faire ce que l'on veut en philosophie, c'est l'heure de la traite des vaches et des chèvres, mais je viens de ramasser les œuf des poules au poulailler, et oui les poules fit lo sof. Alors que je suis à la ramasse
  9. Bonjour Pila, poigne de mains Merci, j'y ai jeté un oeil, ouai enfin
  10. Promethee_Hades

    Midway

    Bonjour Gouderien, poigne de mains Merci , beaucoup pour la critique, j'irai voir le film.
  11. Bonjour Plouj, poigne de mains Ce que j'en ai retenu, c'est cette petite ligne" Sans cet accord, assure ladite source, l’île de Malte, où les navires humanitaires ont débarqué des centaines de naufragés ces derniers mois, aurait "coulé" sous l'afflux de migrants. " Ou il est bon de se sauver soit même avant d'être noyé par ceux qu'on sauve.
  12. J'avais approximativement 7 ans peut être un peu avant peut être un peu après, c'est pas que j'ai voulu me suicider, mais j'ai voulu quitter ce monde que je trouvais déjà stupide, idiot et surtout vain. Les adultes me paraissaient tous d'un ridicule imbus d'eux même, se cherchant querelles pour des insignifiance, ce monde m'offrait rien qui me passionnait au niveau de mes contemporain, je vivais une solitude. Alors je me suis étranglé, par ce que je voulais que ce soit avec mes mains, déjà sensible au valeurs symbolique. J'ai serré, je suis tombé, mais me suis réveillé peu après. Oui fallait vivre au milieu des fous, c'était mon châtiment gratuit. Alors là fallait comprendre et je me suis posé des tas de questions auxquelles j'ai cherché réponse, fallait pas compter sur les adultes surtout eux sont au dessous de tout. A quinze ans là aussi j'ai voulu, c'était une envie irrésistible, mais les questions que je m'étais posée les réponses que j'avais trouvé, liè à mon caractère. Les motivation étaient les même qu'à l'age de 7 ans, mais la guerre était passé par là aussi, puis d'autres choses, mais dans l'ensemble, c'était pareil. A 21 ans rebelote, toujours ce malaise, la société humaine est insupportable, à huit ans j'avais décidé de la fuir, là j'avais décidé de me supprimer socialement, de n'être qu'une ombre, par ce que être seul c'est terrible, enfin seul c'est pas la présence du monde pour ça j'étais servi, c'est pas les femmes, les amis, j'avais tout. Non c'est de parler et de voir que personne ne vous comprenne, on dit une chose qui vous est évidente, et là faut expliquer pendant des heures, à des proches et ceux qui qui vous disent mais ce que tu es profond, tu vas chercher loin, tu tu oui on en a rien à cirer des compliments, on veut être compris, pour dialoguer, pour avancer. Alors là on se suicide comme certain jeunes font par la drogue, l'héroïne, cocaïne, acide, etc... C'est insupportable faut détruire tout ce corps. Après bien ce m'est arrivé d'autres fois par la suite, curieusement c'est pas la mort que je cherche c'est partir ailleurs, je vais même dire une folie pour la majorité d'entre vous, mais c'est rejoindre une femme qui donne la mort, qui est un squelette, et qui en même temps est très jeune, une femme de légendes, tueuse de mauvais hommes, que j'ai pu entendre enfants de la part de vieilles femmes. La vous allez penser que je délire alors je délire et j'assume, il m'a même semblé plusieurs fois dans ma vie la croiser. Mais en même temps par ce que j'avais eu des besoins, ceci m'a servi beaucoup dans des discours avec des personnes qui allaient passer à l'actes de les en dissuader, je les comprenais, et trouvai les mots pour ne pas qu'elle se suicide. Et il y en a eu quelques une peut être une bonne vingtaine dans toute ma vie, peut être plus j'ai jamais compté. Mais en même temps je remercie le destin de ce que j'ai du affronter, car ça m'a rendu plus humain, et j'ai compris des souffrances que si j'avais pas connu certaines souffrance j'aurai jamais comprise, et j'aurai été un monstre car un monstre est tapi, dort en moi, mais il est là, je suis mon pire ennemi.
  13. La seule chose ou j'ai mauvaise conscience J'ai empêché plusieurs personne de se suicider, et pourtant je suis partisan de cet acte.
  14. Non pas la plupart des gens mais les incultes, imbéciles. Un arabe n'est pas impérativement musulman et peut être athée, agnostique, chrétiens, zoroastrien, de toute sorte de croyance même musulman. Un maghrébin est généralement un berbère mais pas que, de toute sorte de croyances Un musulman, peut être de n'importe ou dans le monde
×

Information importante

Ce site internet utilise des cookies pour améliorer l'expérience utilisateur. En naviguant sur ce site vous acceptez que des cookies soient placés sur votre navigateur. Conditions d’utilisation Politique de confidentialité