rendered paste body//---------------------------------------------------------------------------#include <vcl.h>#pragma hdrstop#include "Lazejevas_Ind_4.h"//---------------------------------------------------------------------------#pragma package(smart_init)#pragma resource "*.dfm"TForm1 *Form1;//---------------------------------------------------------------------------__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner){}//---------------------------------------------------------------------------void __fastcall TForm1::Button3Click(TObject *Sender){Close();delete [] A;}//---------------------------------------------------------------------------void TForm1::Duomenys(){int i;FILE *FD;FD=fopen(Duomen, "r");if (FD==NULL) { ShowMessage("Duomenø failas nerastas"); }fscanf(FD, "%d\n", &n);if (!AtmintisSkirta()) { ShowMessage("Atmintis neskirta"); Close(); }else { i=0; while (!feof(FD)&&(i<n)) { fscanf(FD, "%7c\n", &A[i].sk); fscanf(FD, "%11c\n", &A[i].ak); fscanf(FD, "%15c\n", &A[i].vardas); fscanf(FD, "%20c\n", &A[i].pavarde); fscanf(FD, "%1c\n", &A[i].kursas); fscanf(FD, "%6c\n", &A[i].sifras); i++; } }fclose(FD);}//---------------------------------------------------------------------------void __fastcall TForm1::Button1Click(TObject *Sender){Button1->Enabled=false;Button2->Enabled=true;Duomenys();Tikrinti();}//---------------------------------------------------------------------------void TForm1::Tikrinti(){int i, m, c=0;AnsiString studk, asmk, vard, pavard, kurs, sifr;Memo1->Lines->Add(" Studento kodas | Asmens kodas | Vardas | Pavarde | Kursas | Grupës ðifras");Memo1->Lines->Add("---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------");for (i=0; i<n; i++) { for (m=0; m<n; m++) { if (((strcmp(A[i].pavarde, A[m].pavarde))==0)&&((strcmp(A[i].sifras, A[m].sifras))==0)&&(i!=m)) { studk=A[i].sk; asmk=A[i].ak; vard=A[i].vardas; pavard=A[i].pavarde; kurs=A[i].kursas; sifr=A[i].sifras; Memo1->Lines->Add(" "+studk+" | "+asmk+" | "+vard+"| "+pavard+"| "+kurs+" | "+sifr); c++; break; } } }if (c==0) { Memo1->Lines->Add("Studentø, besimokanèiø vienoje grupëje ir turinèius vienodas pavardes, nëra"); }}//---------------------------------------------------------------------------void __fastcall TForm1::Button2Click(TObject *Sender){Button2->Enabled=false;FILE *FD;int i, m, c=0;FD=fopen(Rezultatai, "w");fprintf(FD, " Studento kodas | Asmens kodas | Vardas | Pavarde | Kursas | Grupës ðifras\n");fprintf(FD, "-------------------------------------------------------------------------------------------------\n");for (i=0; i<n; i++) { for (m=0; m<n; m++) { if (((strcmp(A[i].pavarde, A[m].pavarde))==0)&&((strcmp(A[i].sifras, A[m].sifras))==0)&&(i!=m)) { fprintf(FD, " "); fprintf(FD, A[i].sk); fprintf(FD, " | "); fprintf(FD, A[i].ak); fprintf(FD, " | "); fprintf(FD, A[i].vardas); fprintf(FD, " | "); fprintf(FD, A[i].pavarde); fprintf(FD, " | "); fprintf(FD, A[i].kursas); fprintf(FD, " | "); fprintf(FD, A[i].sifras); fprintf(FD, " | \n"); c++; break; } } }fprintf(FD, "-------------------------------------------------------------------------------------------------\n");if (c==0) { fprintf(FD, "Studentø, besimokanèiø vienoje grupëje ir turinèius vienodas pavardes, nëra"); fprintf(FD, "-------------------------------------------------------------------------------------------------\n"); }fclose(FD);}//---------------------------------------------------------------------------bool TForm1::AtmintisSkirta(){try { A=new TStudentas [n]; return true; }catch(...) { ShowMessage("Atmintis neskirta"); return false; }}//---------------------------------------------------------------------------