Moduliai

Užduotis - http://forumas.ktu.lt/pagr.php?metai=2010&kelias=uzd

Žemaitijos krašto.( 4 Linkas ).

Kaip aš dariau : Išvedu programas kuriom nereikia jokių kitų modulių.

Tuomet einu iš eilės sukdamas ciklus ir žiūrau ar reikalingi moduliai yra praeiti (tai rodo masyvas su vienetais,jeigu praeita tas indeksas lygus 1am) ir taip išvedinėju.

Turėtų gautis taip:

IF01 Programavimo įvadas

IF04 Skaitmeninė logika

IF02 Diskrečioji matematika

IF03 Duomenų struktūros

IF08 Asemblerio kalba

IF05 Matematinė logika

IF06 Operacijų optimizavimas

IF07 Algoritmų analizė

IF09 Operacinės sistemos

Aš gaunu taip:

IF01 Programavimo ivadas

IF04 Skaitmenine logika

IF02 Diskrecioji matematika

IF03 Duomenu strukturos

IF05 Matematine logika

IF06 Operaciju optimizavimas

IF07 Algoritmu analize

IF08 Asemblerio kalba

IF09 Operacines sistemos

Kur paryškinta ten neatitinka.

Tai yra 4/9 yra ne savo vietose.Kame bėda galėtų būti , o gal žinot kokį kitą sprendimo būdą?

program Noname61;
Type Duomenai = record
                  Mkod:string[4];
                  Pavad:string[31];
                  Kiek:integer;
                  Modul:array[1..100] of string[5];
               end;
 var o,i,j,n,x,k:integer;
     Inf:array[1..100] of duomenai;
     Pasirinkta:array[1..100] of integer;
     F,R:text;

begin
 Assign(F,'duomenys.txt');
 reset(F);
 Assign(R,'rezultatai.txt');
 rewrite(R);
 readln(F,n);
 For i:=1 to n do
 Begin
   read(F,Inf[i].Mkod);
   read(F,Inf[i].pavad);
   Read(F,Inf[i].kiek);  delete(inf[i].pavad,1,1);
   If Inf[i].kiek>0 then
   Begin
     For j:=1 to Inf[i].kiek do
     Begin
       read(F,Inf[i].Modul[j]);
       delete(inf[i].modul[j],1,1);
     end;
     readln(F);
   end else
   readln(F);
 end;


For i:=1 to n do
BEgin
 If Inf[i].Kiek=0 then
 Begin
   Writeln(R,Inf[i].Mkod,' ',Inf[i].Pavad);
   inc(Pasirinkta[i]);
 end;
end;
//---------------Pagrindas cia-----------------------------------//
For i:=1 to n do
Begin
 if inf[i].kiek<>0 then
 BEgin
   For j:=1 to inf[i].kiek do
   Begin
     For o:=1 to n do
     Begin
       if inf[i].modul[j]=inf[o].Mkod then
       inc(k);
     end;
   end;
   if k=inf[i].kiek then
   Begin
     Writeln(R,inf[i].mkod,' ',inf[i].pavad);
     inc(pasirinkta[i]);
   end;
   k:=0;
 end;
end;
//------------------isvedimas------------------------------------//
{For i:=1 to n do
Begin
 Write(R,Inf[i].Mkod,Inf[i].pavad,inf[i].kiek);
 If inf[i].kiek>0 then
 Begin
   For j:=1 to inf[i].kiek do
   Begin
     write(R,Inf[i].modul[j]);
   end;
   writeln(R);
 end else
 writeln(R);
end;              }
//--------------------------------------------------------------//
close(F);
close(R);
Readln;
end.

Apie šitą ir pats galvojau. Ant popieriaus daugmaž pasirašiau tik reikės bandyti sukompliuoti.

Paskalio aš visiškai nemoku, bet pas tave viskas yra gerai.

Pirma, salygą skamba taip "<...>Parašykite programa, kuri sudarytų bent vieną mudiulių priklausomybės sąrašą" Tai tavo sąrašas yra geras, nes moduliai yra išklausyti tolimesnėms programoms.

Antra, programa taip išdėlioja nes U3.txt pagal sąrašą galiausiai eina asm kalba, t.y. po matemotikos logikos ir kt.