Souvent, lors de la résolution de certains problèmes, il est nécessaire de trier les données stockées dans un tableau. Qu’est-ce que le tri par tableau ? Par exemple, lorsqu’ils jouent selon leurs préférences, les gens organisent leurs cartes en fonction de leur valeur et de leur couleur. Cela permet de déterminer quelles autres cartes leur manquent. Et dans les dictionnaires, tout est classé par ordre alphabétique. De nombreux exemples peuvent être donnés. Le tri est le regroupement d'un certain ensemble d'objets dans un certain ordre selon un critère donné. Le tri des tableaux est nécessaire assez souvent. A cet effet, ils utilisent différentes méthodes. Pour comprendre leur essence, il suffit d'examiner plusieurs méthodes en détail.
Sur quoi se basent-ils ?
Il est important de comprendre qu'un tableau est constitué de nombreuses paires de clés et de valeurs définies. Le tri des tableaux en C s'effectue à l'aide de dizaines de lignes de code, et en Langage PHP cela peut être réalisé avec une seule commande simple. Les tableaux peuvent être triés en fonction de clés ou de valeurs. Vous pouvez également distribuer des valeurs en leur laissant les clés existantes ou en en attribuant de nouvelles.
Principales différences fonctionnelles
Le tri est possible en utilisant différentes fonctions. Voyons en quoi ils diffèrent :
Certaines fonctions trient les tableaux selon les clés de leurs éléments, tandis que d'autres les trient selon leurs valeurs.
Il existe différents ordres de tri : décroissant, ascendant, naturel, numérique, alphabétique, défini par l'utilisateur ou aléatoire.
Certaines fonctions sont capables de conserver la relation qui existe entre une clé et une valeur après tri. Mais il existe des fonctions dans lesquelles les clés seront réinitialisées à de nouvelles valeurs.
Chaque fonction modifie le tableau passé. Ils ne renvoient pas de copie triée.
L'ordre de tri est considéré comme indéfini lorsque la fonction détermine que deux éléments sont égaux. C'est un type instable.
Quelques fonctions de tri de tableaux en PHP
Les fonctions sort() et rsort(). Sort() trie le tableau par ordre alphabétique. Attention : cette fonction est sensible à la casse. Le tri s'effectue par valeurs sans prendre en compte les clés. Rsort() trie dans ordre inverseégalement par valeurs et ne prend pas en compte les clés.
Asort() est l'une des fonctions qui préserve les relations clé-valeur. C'est utile pour les tableaux associatifs lorsque cela est important.
Dans l'exemple, les clés sont les noms des fruits, et les valeurs sont les prix. Le tri s'effectue par ordre croissant de prix. Si vous avez besoin de trier par clé, vous avez besoin de la fonction ksort(), qui trie par clés. Arsort() trie avec des indices (descriptifs) par ordre décroissant de valeurs. Krsort() trie par ordre décroissant des clés d'élément.
Tableau bidimensionnel
Trier un tableau à deux dimensions est intéressant. Cela peut être fait de différentes manières. PHP a la capacité de comparer deux nombres ou deux chaînes. Mais en tout cas tableau multidimensionnel chacun des éléments est un tableau. En PHP, pour comparer plusieurs tableaux, vous devez créer une méthode spécifique. Considérons un tableau bidimensionnel qui stocke le nom abrégé du fruit, le nom complet et le prix. Les éléments du tableau peuvent être triés par ordre alphabétique par noms abrégés.
Dans l'exemple, le nom de notre fonction est compare. Il a 2 arguments - x, y. La fonction doit accepter 2 valeurs, puis déterminer l'ordre. Les paramètres x, y sont 2 tableaux qui se trouvent à l’intérieur du tableau principal y. Pour comparer les éléments de description des tableaux passés à la fonction, les variables $x, $y sont nécessaires. La ligne return1 renvoie une valeur au code qui a appelé la fonction. La base du tri de notre tableau est la fonction usort(). Le tri suit les règles décrites par la fonction compare().
Désormais, le tri des tableaux en PHP deviendra clair pour vous.
Instructions
Il existe plusieurs façons de trier un tableau. Le tri par « bulles » est le plus simple à algorithmiser, mais c’est aussi l’un des plus lents. L'essence de cette méthode est de parcourir séquentiellement le tableau de données et de comparer chaque paire d'éléments. Si l'élément inférieur est plus petit que le précédent, les places sont échangées. Ensuite, l'algorithme recommence. Exemple de code de tri en C :
masse int ;
int el_min=10;
pour (int i=0; ii; j--)
si (moins (masse [j], masse ))
swap(masse [j], masse);
}
L'un des algorithmes optimaux pour trier un tableau par ordre croissant consiste à trier à l'aide de la méthode d'insertion. L'essence de l'algorithme est de former une séquence donnée parmi un groupe d'éléments (par ordre croissant). Un gestionnaire spécial dans la boucle vérifie le classement du tableau. Pour trier par ordre croissant, définissez condition suivante. Si l'élément suivant est inférieur au précédent, il est retiré de sa place et placé sur celui qui correspond à sa valeur. Exemple de code pour un programme de tri ascendant en C :
int Kol = 40 ;
masse int, k ;
pour (int je = 1, j=0; je(
k = masse [je] ; // variable auxiliaire pour stocker un élément de tableau
j = je - 1 ;
pendant que(k(
masse = masse [j] ;
j--;
si (j masse = k;
}
}
Une autre méthode de tri couramment utilisée est un algorithme de classement qui recherche l'élément minimum ou maximum dans un tableau. Lors d'un tri par ordre croissant, au moment du premier passage dans le tableau, son élément de valeur minimale est trouvé et placé au début du tableau. L'élément qui occupait auparavant la première position est installé à sa place. Après un examen plus approfondi du réseau, l'espace rempli est éliminé. L'élément minimum suivant est recherché, placé en deuxième position, et ainsi de suite, jusqu'à ce que l'ensemble du tableau soit trié. Code pour trier en recherchant l'élément minimum d'une liste :
int masse, bb;
int Kol = 30, min, pos ;
pour (int je = 0; je(
min = masse [i] ;
pos = je;
pour (int j=0; j (
si (masse [j] (
min = masse [j] ;
pos = j;
}
bb = masse [i] ;
masse[i] = masse ;
masse = bb;
}
}
La façon dont vous organisez les éléments du tableau dépend des outils dont vous disposez. Vous trouverez ci-dessous plusieurs options pour commander des tableaux unidimensionnels en utilisant le langage côté serveur le plus courant. Programmation PHP. Lorsque vous utilisez ce langage, vous n'avez pas besoin de composer indépendamment des fonctions pour parcourir les éléments du tableau, les comparer et attribuer de nouvelles valeurs - tout cela est fait par des fonctions intégrées.
Instructions
Utilisez la fonction sort() si vous devez organiser les données dans un tableau par ordre croissant. Par exemple : $values = array(58, 15, 2.41, 26, 30) ;
sort($values); À la suite de l'application, l'emplacement des données dans le tableau changera - cela deviendra comme ceci : (2.41, 15, 26, 30, 58). Si vous ajoutez l'indicateur SORT_STRING à l'appel de fonction, la fonction considérera les données du tableau comme des chaînes et les organisera par . Puisque le caractère de la variable chaîne « 2.41 » est situé plus loin dans l'alphabet que le premier caractère de la variable chaîne « 15 », après avoir appliqué la fonction sort($values, SORT_STRING) les variables seront alignées différemment : (15, 2.41, 26, 30, 58).
Utilisez la fonction rsort() si vous devez trier un tableau par ordre décroissant de ses valeurs. Cette fonction diffère de celle décrite dans la première étape uniquement par l'ordre de tri.
Utilisez la fonction asort() lorsque vous souhaitez trier les valeurs d'un tableau nommé (associatif) par ordre croissant sans modifier les mappages d'origine entre l'index et la valeur de chaque élément du tableau. Par exemple : $values = array("un" => 58, "deux" => 15, "trois" => 2,41, "quatre" => 26, "cinq" => 30);
asort($values); En conséquence, l'ordre des éléments du tableau sera le suivant : ("trois" => 2,41, "deux" => 15, "quatre" => 26, "cinq" => 30, "un" => 58 ). Sinon, le fonctionnement de cette fonction ne diffère pas de la fonction de tri décrite dans la première étape. Pour organiser les éléments de la même manière par ordre décroissant, utilisez la fonction arsort().
Tôt ou tard, tout programmeur devra trier les données d'un tableau. Qu'il s'agisse d'afficher les données de la base de données par ordre alphabétique ou de trier les noms de fichiers par date dernier changement, peut être réalisé grâce au module intégré fonctions php pour trier les données du tableau. Dans cet article, je vais démontrer et expliquer avec des exemples comment fonctionnent des fonctions telles que sort(), rsort().
Fonction ; - Trier le tableau par ordre croissant et alphabétique
Structure:
($Tableau, $Drapeau);
La fonction trie le tableau qui lui est donné $Array par ordre croissant. La fonction est conçue pour fonctionner avec des listes. Les listes sont des tableaux ordinaires dont les clés commencent à zéro. La fonction peut recevoir un argument facultatif $Flag, qui manipule exactement ce qui devrait se produire tri. Considérez la description de l'argument $Flag :
SORT_REGULAR– Fonction de tri par défaut
SORT_NUMERIC- Tri des nombres, par ordre croissant
SORT_STRING- Tri des chaînes, par ordre alphabétique
Prenons un exemple : nous avons un tableau dans lequel les données sur le nombre de paires d'étudiants au cours de différentes années d'études sont stockées sous une forme chaotique.
"; ) ?> Résultat du script : Parcours : 1 - 72 paires Parcours : 2 - 83 paires Parcours : 3 - 100 paires Si nous n'avions pas appliqué la fonction, le résultat du travail serait le suivant : Parcours : 1 - 83 paires Parcours : 2 - 100 paires Parcours : 3 - 72 paires
Trier par alphabet
Ci-dessous se trouve un script qui trie les pays de leur tableau par ordre alphabétique ; le deuxième argument de la fonction ($Flag) n'a pas besoin d'être défini, car la fonction elle-même comprendra qu'elle doit fonctionner avec des chaînes.
"; ) ?> Résultat des travaux : Arménie Italie Russie Japon
Fonction rsort() - Trie un tableau par ordre décroissant
La fonction est illogique mais trie les tableaux par ordre décroissant. Regardons la structure syntaxique :
($Tableau, $Drapeau);
L'exemple de cette fonction sera similaire aux exemples donnés ci-dessus, à une exception près, les données du tableau seront triées par ordre décroissant. Nous créons une série de prix pour ceux qui remportent la 1ère, la 2ème et la 3ème place du concours.
"; ) ?> Résultat de l'exécution du script : 1ère place - prix : 2800 roubles. 2ème place - prix : 1200 roubles. 3ème place - prix : 500 roubles.
Programme Sort_Obmen ;
var a: tableau d'entiers ;
n,i,k,x : entier ;
start write("nombre d'éléments du tableau");
pour i:=1 à n, faites read([i]);
pour k:=n-1 jusqu'à 1 do (nombre de paires à comparer)
pour i:=1 à k faire si a[i]>a then (échanger les éléments adjacents)
pour i:=1 à n, faites write(a[i]," "); (tableau ordonné)
Outre le tri à bulles, il existe d'autres méthodes de tri plus efficaces : tri rapide, méthode Shell, tri par insertion.... Cependant, l’algorithme considéré est le plus simple à mettre en œuvre et le plus logique.
Cependant, nous présentons une procédure de « tri rapide » qui, étape par étape, recherche le plus grand, le deuxième plus grand, etc. éléments et les déplace à la fin du tableau. Le cycle s'arrête lorsque les éléments suivants ne se produisent pas lors du prochain passage (c'est-à-dire que les éléments se mettent en place) :
Nomdrisse: FastSort.pas
Procédure FastSort(Var aa:Massive);
Var ii,kk,nn:octet;
Pour ii:=1 à nn-1 Commencez
Si (aa>aa) Alors commencez
Échanger(aa,a);
Alors que la méthode de tri précédente nécessitait 9 passes pour un tableau de 10 éléments, ce nombre peut être réduit pour cet algorithme. Par exemple, un tableau de valeurs (1,-3,7,-10,11,4,-6,2,5,-4) sera trié en 8 passes, et un tableau (1,4,3 ,2,4, 5,6,7,10,11) – pour seulement 1.
En suivant une logique similaire, trions le tableau par ordre croissant :
Nomdrisse: Sort_Inc.pas
Procédure Sort_Inc(Var aa:Massive);
Pour kk:=1 à n-1, commencez
Pour ii:=1 à n-kk Do Begin
Si (aa>aa) Alors commencez
Échanger(aa,a);
Traitement de tableaux bidimensionnels
Les principes de base de la saisie de tableaux bidimensionnels sont à bien des égards similaires aux principes de saisie de tableaux unidimensionnels. Lors de sa description, vous pouvez faire référence au nombre de lignes de la matrice M et N saisis comme constantes, par exemple
Tapez Matrix=tableau de Real ;
Var a,b,c,d : Matrice ;
e : tableau d’octets ;
Comme pour un tableau unidimensionnel, le traitement de son relatif bidimensionnel peut être local ou global ; le traitement peut s'effectuer par index, par valeur ou une combinaison.
Notez qu'un tableau à deux dimensions peut toujours être étendu en un tableau à une dimension, et qu'un tableau à une dimension peut toujours être réduit en un tableau à deux dimensions. Examinons des exemples de résolution de problèmes dans une leçon pratique.
Littérature Littérature de base
Akhmetov K.S. Stage jeune combattant. Éd. 5ème. M., Computer-Press, 1998.
Figurnov V.E. IBM PC pour l'utilisateur. Éd. 7ème. M., Infra-M, 1997 et 1999.
Alexander Levin Manuel d'auto-instruction Travailler sur l'ordinateur 8e édition Section « de quoi est fait un ordinateur » - Peter, 2004.
Manuel méthodologique électronique MGAPI 2005
Alekseev E.R., Chesnokova O.V., Pavlysh V.R., Slavinskaya L.F. Turbo Pascal 7.0 2e édition - NT Press, M., 2006
Korotaev D.G. TURBO-PASCAL en exemples et problèmes. Manuel MGAPI, M, 2000.
Programmation en langage Pascal Livre de problèmes. Edité par O.F. Uskova - Saint-Pétersbourg, 2003.
Faronov V.V. Tutoriel Turbo- Pascal-Pierre, 2007.
Les résultats du concours de tir à 9 participants sont connus. Classez ces résultats par ordre croissant de points marqués lors du tir.
L'algorithme permettant de résoudre ce problème est le plus complexe des exemples donnés ci-dessus et nécessite l'utilisation de boucles imbriquées.
Une façon de trier les tableaux est la suivante. Tout d’abord, le premier élément du tableau de la boucle est comparé tour à tour à tous les éléments restants. Si l’élément suivant du tableau est plus petit que le premier, alors ces éléments sont échangés. La comparaison se poursuit pour le premier élément mis à jour. A la fin de cette boucle, le plus petit élément du tableau sera trouvé et placé en première place. Ensuite, un processus similaire se poursuit pour les éléments restants du tableau, c'est-à-dire le deuxième élément est comparé à tous les autres et, si nécessaire, échangé avec eux. Après avoir défini et paramétré le deuxième élément du tableau, ce processus continue pour le troisième élément, le quatrième élément, etc. L'algorithme se termine lorsque l'avant-dernier et le dernier élément restant du tableau sont comparés et ordonnés.
Le programme de mise en œuvre de l'algorithme décrit peut avoir la forme suivante :
Programme pr4 ;
Tapez STREL=tableau d'entiers ;
Var rez:strel;
je,j,s:entier;
Pour i:=1 à 9 faire
writeln('Entrez les résultats du ",i,"ème participant");
readln(rez[i]);
pour i:=1 à 8 fais
pour j:=i+1 à 9 faire
si rez[i]>rez[j] alors
s:=rez[j];
rez[j]:=rez[i];
rez[i]:=s;
writeln('Résultats triés par ordre croissant :");
pour i:=1 à 9, écrivez (rez[i]:5," ‘);
Ici STREL est le type du tableau des résultats de tir des participants, rez[i] est une variable pour décrire les résultats du i-ème participant (i varie de 1 à 9). La variable auxiliaire s est utilisée lors de l'échange d'éléments de tableau.
Algorithme de tri par sélection dans Turbo Pascal
Évidemment, la première place du tableau doit être occupée par l'élément minimum du tableau, la deuxième par le plus petit de tous les autres, la troisième par le plus petit des éléments restants, etc.
Pour ce faire, vous devez effectuer la séquence d'actions suivante :
1. Déterminez l'élément minimum du tableau ;
2. Échangez-le avec le premier élément ;
3. Déterminer l'élément minimum parmi les éléments restants ;
4. Échangez-le avec le deuxième élément, etc. ;
Cette séquence d'actions doit être effectuée jusqu'à ce que le dernier élément minimum soit déterminé.
Cette méthode appelé tri par sélection.
L’ensemble de l’opération de classement d’un tableau peut être décomposé en tâches plus simples et appelées tri par sélection.
La première consiste à rechercher l'élément minimum. Le fragment proposé du programme vous rappellera comment cela se fait.
min:=m; (supposons que le 1er élément soit minimal)
t:=1; (et son numéro = 1)
POUR i:=1 À 30 FAIRE
si m[i]>
m[t]:=m[je];
m[i]:=buf;
FIN;
La méthode de « tri par sélection » décrite pour trier les tableaux peut être utilisée à la fois pour trier les tableaux par ordre croissant et pour trier les tableaux par ordre décroissant. Pour ce faire, il vous suffit de déterminer non pas l'élément minimum du tableau, mais le maximum. Dans le texte du programme, cela est exprimé en remplaçant le signe "" à certains endroits.
41. Ensembles en Pascal
Beaucoup est un type de données structurées qui est un ensemble d'objets interconnectés par une caractéristique ou un groupe de caractéristiques qui peuvent être considérés comme un tout unique. Chaque objet d'un ensemble est appelé un élément de l'ensemble.
Tous les éléments de l'ensemble doivent appartenir à l'un des types ordinaux ne contenant pas plus de 256 valeurs. Ce type est appelé type d’ensemble de base. Le type de base est spécifié par une plage ou une énumération.
La plage de valeurs d'un type ensemble est un ensemble de tous les sous-ensembles possibles composés d'éléments du type de base. Dans les expressions en langage Pascal, les valeurs des éléments de l'ensemble sont indiquées entre crochets : , ["a",'b","c"], ["a".."z"].
Si un ensemble ne contient aucun élément, il est dit vide et noté . Le nombre d’éléments d’un ensemble s’appelle sa cardinalité.
Un ensemble peut prendre toutes les valeurs d'un type de base. Le type de base ne doit pas dépasser 256 valeurs possibles. Par conséquent, le type de base d’un ensemble peut être byte, char, boolean et les types qui en dérivent.
Un ensemble en mémoire est stocké sous forme de tableau de bits, dans lequel chaque bit indique si un élément appartient ou non à l'ensemble déclaré. Le nombre maximum d'éléments d'un ensemble est de 256 et les données de type ensemble ne peuvent pas occuper plus de 32 octets.
Le nombre d'octets alloués aux données définies est calculé à l'aide de la formule :
ByteSize = (max div 8) - (min div 8) + 1,
où max et min sont les limites supérieure et inférieure du type de base de cet ensemble.
Le numéro d'octet pour un élément spécifique E est calculé par la formule :
OctetNumber = (E div 8) - (min div 8),
le numéro du bit à l'intérieur de cet octet selon la formule :
Numéro de bit = E mod 8
L'ordre dans lequel les éléments de l'ensemble sont écrits à l'intérieur du constructeur n'a pas d'importance. Par exemple, et sont des ensembles équivalents.
Chaque élément de l'ensemble n'est compté qu'une seule fois. L’ensemble est donc équivalent.
Les variables de type multiple sont décrites comme suit :
Var<идентификатор>: ensemble de<базовый тип>;
Par exemple:
Var A, D : ensemble d'octets ; B : ensemble de « a ». »z » ; C : ensemble de booléens ;
Vous ne pouvez pas saisir de valeurs dans une variable multiple avec une procédure de saisie et les afficher avec une procédure de sortie.
Une variable multiple ne peut recevoir une valeur spécifique qu'en exécutant un opérateur d'affectation :
<множественная переменная> := <множественное выражение>;
Par exemple:
A : = ;B : = ["m", "n", "k"]; C: = ; D : = A ;
De plus, les expressions peuvent inclure des opérations sur les ensembles.
Définir les opérations
Association deux ensembles A et B sont un ensemble constitué d'éléments inclus dans au moins un des ensembles A ou B. Le signe de l'opération d'union en Pascal est « + ».
1) + => 2) +['a'..'z']+['A'..'E', 'k'] => ['A'..'E', 'a'.. 'z']3) + =>
En traversant deux ensembles A et B sont un ensemble constitué d'éléments simultanément inclus dans l'ensemble A et l'ensemble B.
Le panneau d'opération de carrefour en Pascal « * »
1) * => 2) ['a'..'z']*['A'..'E', 'k'] => ['k']3) * =>
Par différence deux ensembles A et B sont un ensemble composé d'éléments de l'ensemble A qui ne sont pas inclus dans l'ensemble B.
1a) - => 1b) - => 2a) ['a'..'z']-['A'..'E', 'k'] => ['a'..'j', ' i'..'z']2b) ['A'..'E', 'k'] - ['a'..'z'] => ['A'..'E']3a) - => 3b) - =>
Opération d'entrée. Il s'agit d'une opération qui établit une connexion entre un ensemble et une quantité scalaire dont le type coïncide avec le type de base de l'ensemble. Si x est une telle quantité scalaire et M est un ensemble, alors l'opération d'occurrence s'écrit comme suit : x dans M.
Le résultat est la valeur logique vraie si la valeur x est incluse dans l'ensemble M, et fausse sinon.
Par exemple, 4 pouces est vrai, 5 pouces est faux.
Grâce à cette opération, vous pouvez non seulement travailler avec les éléments d'un ensemble, mais aussi, même si les ensembles ne sont pas explicitement utilisés pour résoudre un problème, certaines expressions logiques peuvent être écrites de manière plus concise.
1) L'entier naturel n est à deux chiffres. Au lieu de l'expression (n >= 10) et (n<=99) peut être écrit n dans.
2) Le symbole c est une lettre russe. Au lieu de l'expression (c >= 'A') et (c<= ‘Я’) or (c>='a') et (c<=‘п’) or (c>='p') et (c<=‘я’) nous écrivons c dans ['A'.. 'I', 'a'.. 'p', 'r'.. 'i'] etc.
Vous pouvez ajouter un nouvel élément à un ensemble à l'aide de l'opération d'union. Par exemple, a:= a+ La procédure Include est destinée aux mêmes objectifs dans Turbo Pascal 7.0 : inclure (M, A) M est un ensemble, A est une variable du même type que les éléments de l'ensemble M. Le même exemple peut s'écrire ainsi : Inclure (a, 5)
Vous pouvez exclure un élément d'un ensemble à l'aide de l'opération « définir la différence ». Par exemple, a:= a- La procédure Exclure est destinée aux mêmes objectifs dans Turbo Pascal 7.0 : exclure (M, A) M est un ensemble, A est une variable du même type que les éléments de l'ensemble M. Le même exemple peut s'écrire ainsi : Exclure (a, 5)
Examinons plusieurs exemples d'utilisation d'ensembles pour résoudre des problèmes.
Tâche 1. Il existe n établissements d'enseignement supérieur dans la ville qui achètent du matériel informatique. Il existe six sociétés informatiques : Dialog, Avicom, Neta, Server, Dekada, Dega.ru. Répondez aux questions suivantes :
1) auprès de quelles entreprises l'achat a-t-il été effectué par chacune des universités ?
2) dans quelles entreprises l'achat a-t-il été effectué par au moins une des universités ?
3) auprès de quelles entreprises les universités ont-elles acheté des ordinateurs ?
Résolvons le problème en utilisant des ensembles. Pour faciliter les manipulations ultérieures, nous numéroterons les sociétés informatiques dans l'ordre suivant, en commençant par une. Ajoutons des informations sur le lieu d'achat des ordinateurs par chacune des universités dans un ensemble distinct.
La réponse à la première question peut être obtenue en croisant tous ces ensembles.
La réponse à la deuxième question est le résultat de la combinaison d’ensembles.
Et enfin, pour le dernier point – la différence entre l’ensemble de toutes les entreprises et l’ensemble des entreprises dans lesquelles au moins une université a effectué des achats.
Programme ex_set_1;type firma = ensemble de 1..6 ; v = tableau de firma;const f : tableau de chaîne = ("Dialogue", "Avicom", "Neta", "Server", "Decade", "Dega.ru" (procédure de saisie des informations sur l'achat de) ; ordinateurs pour la prochaine firma)procédure vvod(var a: firma);var i: octet; ans: 0..1;commencer a:= ; for i:= 1 à 6 do start Write("L'université a acheté des ordinateurs à l'entreprise ", f[i], " (1 - oui, 0 - non) ? "); ReadLn(ans); si ans = 1 alors a:=a+[i] end;end;(procédure d'impression des éléments du tableau dont les numéros sont contenus dans l'ensemble) procédure Print(a: firma);var i: byte;begin for i:= 1 to 6 faire si je dans un alors écrire(f[i]:10); writelnend;(Procédure qui répond à la première question)procédure Rez1(a: v; n: byte; var b: firma);var i: byte;begin b:= ; pour i:= 0 à n-1 do b:= b * a[i];end;(Procédure qui répond à la deuxième question)procédure Rez2(a: v; n: byte; var b: firma);var i : octet; début b:= ; pour i:= 0 à n-1 do b:= b + a[i];end;var a: v; n, je : octet ; c: firma;begin write("Combien d'universités ont effectué l'achat ?"); readln(n); pour i:= 0 à n-1 do vvod(a[i]); Rez1(a,n,c); writeln("Chacune des universités a acheté des ordinateurs aux entreprises : "); Imprimer(c); Rez2(a,n,c); writeln("Au moins une des universités a acheté des ordinateurs auprès d'entreprises : "); Imprimer(c); writeln("Aucune des universités n'a acheté d'ordinateurs à des entreprises : "); Imprimer(-c);fin.
Tâche 2. Générer n ensembles (la numérotation commence à 1). Imprimez les éléments inclus dans tous les ensembles avec des nombres divisibles par trois, mais qui ne sont pas inclus dans le premier ensemble.
Programme ex_set_2;type mn = ensemble d'octets; v = tableau de mn;(procédure de saisie des informations dans l'ensemble suivant) procédure vvod(var a: mn);var i, n, vsp: byte;begin a:= ; n := 1 + aléatoire (200 ); pour i:= 1 à n, commencez vsp:= random(256); a:=a+ end;end;(procédure d'impression des éléments de l'ensemble)procédure Print(a: mn);var i: byte;begin for i:= 0 à 255 do if i in a then write(i:4); writelnend;(Procédure qui répond à la question)procédure Rez(a: v; n: byte; var b: mn);var i: byte;begin b:= ; je:= 3; pendant que je<= n do begin b:= b * a[i]; i:= i + 3 end; b:= b - aend;var a: v; n, i: byte; c: mn;begin randomize; write("Сколько множеств? "); readln(n); for i:= 1 to n do begin vvod(a[i]); print (a[i]) end; Rez(a, n, c); Print(c);end.
Programme ex_set_3;var m : ensemble de caractères ; s:chaîne; i: byte;begin write("Entrez la chaîne : "); lecture(s) ; m:=; je:= 1; pendant que je<= length(s) do if s[i] in m then delete(s, i, 1) else begin m:=m+]; i:= i + 1 end; writeln(s)end.
42. Un programme pour rechercher le nombre de caractères spécifiques dans un texte.
Les fonctions les plus couramment utilisées sont présentées ici. Donnons un exemple de programme qui détermine le nombre de caractères et de mots dans une chaîne de caractères arbitraire.
programme pr28 ;
const OUI=1; (Constantes qui déterminent si )
NON=0 ; (caractère actuel de l'élément verbal)
str:chaîne;
nw, (Nombre de mots)
nc, (Nombre de caractères)
mot:entier; (Variable qui prend des valeurs
constantes OUI ou NON)
je:entier;
writeln("Entrez une chaîne de caractères :");
lire(chaîne);
nw:=0;nc:=0;inword:=NON;
pour i:=1 à length(str) faire
nc:=nc+1;
si str[i] dans [":",".",",",""","!","?",";"," "](Si séparateur,)
puis inword:=NO (alors le caractère actuel est en dehors du mot)
si mot=NON alors
commencer dans le mot :=OUI ;
nw:=nw+1;
writeln("nc=",nc,"nw=",nw);
43. Type de données caractère dans le langage Turbo Pascal.