Scrigroup - Documente si articole

Username / Parola inexistente      

Home Documente Upload Resurse Alte limbi doc  
AccessAdobe photoshopAlgoritmiAutocadBaze de dateCC sharp
CalculatoareCorel drawDot netExcelFox proFrontpageHardware
HtmlInternetJavaLinuxMatlabMs dosPascal
PhpPower pointRetele calculatoareSqlTutorialsWebdesignWindows
WordXml


Tipul multime

pascal



+ Font mai mare | - Font mai mic



Tipul multime

   Sintaxa
type id_tip_multime = set of id_tip;

   id_tip este un tip ordinal cu cel mult 256 elemente.

   Reuniunea

program ex;
var Par, Impar, Cifra: set of byte;
begin
   Par:=[0,2,4,6,8]; Impar:=[1,3,5,7,9];
   Cifra:=Par + Impar
end.



   Intersectia

program ex;
var Vocala, Cuvant, Inters: set of Char;
begin
   Vocala:=['a','e','i','o','u','y'];
   Cuvant:=['l','i','t','o','r','a','l'];
   Inters:=Vocala * Cuvant
end.

   Diferenta

program ex;
var Vocala, Cuvant, Dif1, Dif2, DifSimetrica: set of Char;
begin
   Vocala:=['a','e','i','o','u','y'];
   Cuvant:=['g','e','r','o','v','i','t','a','l'];
   Dif1:=Vocala-Cuvant; Dif2:=Cuvant-Vocala;
   DifSimetrica:=Dif1+Dif2
end.



   Apartenenta

program ex;
var Vocala: set of Char; lit: Char;
begin
   Vocala:=['a','e','i','o','u','y'];
   repeat
      Write('Dati litera: '); ReadLn(lit);
      if lit in Vocala then
         WriteLn('Este vocala!')
      else WriteLn('Nu este vocala!')
   until lit in ['.','/']
end.





Politica de confidentialitate | Termeni si conditii de utilizare



DISTRIBUIE DOCUMENTUL

Comentarii


Vizualizari: 1460
Importanta: rank

Comenteaza documentul:

Te rugam sa te autentifici sau sa iti faci cont pentru a putea comenta

Creaza cont nou

Termeni si conditii de utilizare | Contact
© SCRIGROUP 2024 . All rights reserved