testcase generator για ΠΔΠ-34

Γενικά θέματα για το διαγωνισμό. Ερωτήσεις, προτάσεις και ό,τι άλλο ταιριάζει.
Απάντηση
xdv
Δημοσιεύσεις: 19
Εγγραφή: Κυρ Δεκ 02, 2018 9:52 pm
Επικοινωνία:

testcase generator για ΠΔΠ-34

Δημοσίευση από xdv »

Κώδικας: Επιλογή όλων

uses sysutils;

var i,x,y,j,f,n,count:longint;
        m,vote:integer;
        fout:text;
        mtv:array[0..1000] of longint;

begin
assign(fout,'voting.in');
rewrite(fout);
write(timetostr(time),' Give me M: 1<M<1.000 ');
readln(m);
write(timetostr(time),' Give me N: ',m,'<N<1.000.000 ');
readln(n);
count:=0;
for x:=1 to m do begin
        y:=2*x+3;
        for j:=1 to y do begin
                        mtv[count]:=x;
                        count:=count+1;
                        if count>999 then break;
                                end;
        if count>999 then break;
        end;
writeln(timetostr(time),' motivo= ',count);
writeln(fout,n,' ',m,' ',n);
//writeln(n,' ',m,' ',n);
for i:=1 to m do write(fout,i,' ');
//for i:=1 to m do write(i,' ');
for i:=1 to n-m do begin
        vote:=mtv[i mod count];
       write(fout,vote,' ');
  //      write(vote,' ');
     end;
close(fout);
writeln;
writeln(timetostr(time),' file ok');
end.
Ο παραπάνω κώδικας pascal παράγει αρχεία σαν το παρακάτω:

Κώδικας: Επιλογή όλων

100 4 100
1 2 3 4 1 1 1 1 2 2 2 2 2 2 2 3 3 3 3 3 3 3 3 3 4 4 4 4 4 4 4 4 4 4 4 1 1 1 1 1 2 2 2 2 2 2 2 3 3 3 3 3 3 3 3 3 4 4 4 4 4 4 4 4 4 4 4 1 1 1 1 1 2 2 2 2 2 2 2 3 3 3 3 3 3 3 3 3 4 4 4 4 4 4 4 4 4 4 4 1 
με έναν επεξεργαστή κειμένου μπορείτε να το διορθώσετε χειρονακτικά για Κ<Ν. Δεν χρειάζετε να σβήσετε τις ψήφους, αρκεί να διορθώσετε το Κ.
Σα βγεις στον πηγαιμό για την Ιθάκη, να εύχεσαι να 'ναι μακρύς ο δρόμος
Απάντηση