Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Conta dittonghi - conta dittonghi.pas

conta dittonghi.pas

 Caricato da: Totipianurese
Scarica il programma completo

  1. program con_dittonghi;
  2. Uses crt;
  3. var n,m,i,j,a,b,trova,conta,som,k:integer;
  4.     parola:array[1..20,1..20]of string;
  5.     par:string;
  6.     d:string[2];
  7.     dit:array[1..20]of string[2];
  8.  
  9.  procedure controlla;
  10.     begin
  11.      conta:=0;
  12.      a:=1;
  13.      b:=1;
  14.       repeat
  15.        if (par[a]=d[b]) then
  16.                          begin
  17.                            a:=a+1;
  18.                            b:=b+1;
  19.                            conta:=conta+1;
  20.                            if conta=2 then
  21.                                          begin
  22.                                           som:=som+1;
  23.                                           trova:=trova+1;
  24.                                           conta:=0;
  25.                                           b:=1;
  26.                                          end;
  27.                          end
  28.                           else
  29.                          begin
  30.                          a:=a+1;
  31.                          b:=1;
  32.                          conta:=0;
  33.                          end;
  34.       until (a>length(par));
  35.     end;
  36.  
  37. begin
  38.  som:=0;
  39.  trova:=0;
  40.  dit[1]:='ae';
  41.  dit[2]:='ai';
  42.  dit[3]:='ao';
  43.  dit[4]:='au';
  44.  dit[5]:='ea';
  45.  dit[6]:='ei';
  46.  dit[7]:='eo';
  47.  dit[8]:='eu';
  48.  dit[9]:='ia';
  49.  dit[10]:='ie';
  50.  dit[11]:='io';
  51.  dit[12]:='iu';
  52.  dit[13]:='oa';
  53.  dit[14]:='oe';
  54.  dit[15]:='oi';
  55.  dit[16]:='ou';
  56.  dit[17]:='ua';
  57.  dit[18]:='ue';
  58.  dit[19]:='ui';
  59.  dit[20]:='uo';
  60.  textcolor(lightred);
  61.  writeln('QUESTO PROGRAMMA, CONTA QUANTI DITTONGHI CI SONO IN UNA MATRICE DI STRINGHE!');
  62.  writeln;
  63.  writeln;
  64.  textcolor(yellow);
  65.  write('Inserisci il numero di righe = ');
  66.  readln(n);
  67.  write('Inserisci il numero di colonne = ');
  68.  readln(m);
  69.  writeln;
  70.  
  71.  for i:=1 to n do
  72.  for j:=1 to m do
  73.                 begin
  74.                  textcolor(7);
  75.                  write('Scrivi in ',i,',',j,' =  ');
  76.                  readln(parola[i,j]);
  77.                 end;
  78.  writeln;
  79.   begin
  80.    for i:=1 to n do
  81.     begin
  82.      for j:=1 to m do
  83.       begin
  84.        for k:=1 to 20 do
  85.         begin
  86.          par:=parola[i,j];
  87.          d:=dit[k];
  88.          controlla;
  89.          if k=20 then
  90.                    if som<>0 then
  91.                               begin
  92.                                textcolor(lightgreen);
  93.                                writeln('Ci sono ',som,' dittonghi nel posto ',i,',',j);
  94.                                som:=0;
  95.                               end;
  96.         end;
  97.       end;
  98.     end;
  99.   end;
  100.   writeln();
  101.   textcolor(lightblue);
  102.   writeln('In totale ci sono ',trova,' dittonghi !!');
  103.   writeln;
  104.   writeln;
  105.   textcolor(11);
  106.   write('                                                      TotiPianurese Copyright'); write(' ',char(169));
  107.   readln();
  108. end.