donkapone

void TForm1::Tikrinti(){int n, m, c=0;AnsiString studk, asmk, vard, pavard, kurs, sifr;Memo1->Lines->Add(" Studento kodas |   Asmens kodas    |         Vardas        |          Pavarde          |       Kursas     |       Grup&#279;s &#353;ifras");Memo1->Lines->Add("---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------");for (n=0; n<Cn; n++)  {  for (m=0; m<Cn; m++)    {    if (((strlen(A[n].pavarde))!=0)&&((strlen(A[m].pavarde))!=0)&&((strcmp(A[n].pavarde, A[m].pavarde))==0)&&((strlen(A[n].sifras))!=0)&&((strlen(A[m].sifras))!=0)&&((strcmp(A[n].sifras, A[m].sifras))==0)&&(n!=m))      {      studk=A[n].sk;      asmk=A[n].ak;      vard=A[n].vardas;      pavard=A[n].pavarde;      kurs=A[n].kursas;      sifr=A[n].sifras;      Memo1->Lines->Add("      "+studk+"       |    "+asmk+"    |        "+vard+"|           "+pavard+"|          "+kurs+"          |            "+sifr);      c++;      }    }  }if (c==0)  {  Memo1->Lines->Add("Student&#371;, besimokan&#269;i&#371; vienoje grup&#279;je ir turin&#269;ius vienodas pavardes, n&#279;ra");  }}