Η αναζήτηση βρήκε 6 εγγραφές

από xdv
Δευ Δεκ 07, 2020 10:51 pm
Δ. Συζήτηση: Γενικά για το Διαγωνισμό
Θέμα: Για διασκέδαση
Απαντήσεις: 0
Προβολές: 429

Για διασκέδαση

κώδικας LOGO to aa ; file bankacc.in must be in the same directory with the LGO file make "bank9 {0 0 0 0 0 0 0 0 0} OPENREAD "bankacc.in SETREAD "bankacc.in MAKE "how_many_lines READWORD REPEAT :how_many_lines [xx READLIST] SETREAD [] CLOSE "bankacc.in end to dd :numbers ma...
από xdv
Πέμ Νοέμ 05, 2020 5:40 pm
Δ. Συζήτηση: Γενικά για το Διαγωνισμό
Θέμα: testcase generator για ΠΔΠ-33
Απαντήσεις: 2
Προβολές: 518

Re: testcase generator για ΠΔΠ-33

έτρεξα τον κώδικα σε C και πήρα ένα αρχείο με 124863 γραμμές. Παρακάτω είναι οι πρώτες 10 γραμμές του αρχείου: -1208580161 087945 114768474 q 1 w 704087945 835000363 d 141124135 835000363 q 704087945 d 468904144 1687364675 q 141124135 d 612827678 1405416773 q 468904144 Υπάρχει πρόβλημα στις δύο πρώτ...
από xdv
Τρί Οκτ 27, 2020 2:49 pm
Δ. Συζήτηση: Γενικά για το Διαγωνισμό
Θέμα: testcase generator για ΠΔΠ-33
Απαντήσεις: 2
Προβολές: 518

testcase generator για ΠΔΠ-33

uses sysutils; var i,n,x:longint; dwq:char; a:integer; f:text; begin writeln('we have 8 accounts: (1,2,3,4,5,6,7,8)'); write(timetostr(time),' Give me N: 20<N<1.000.000 '); readln(n); assign(f,'bankacc.in') ; rewrite(f); writeln(f,n); for i:=1 to n do begin if (i mod 3)=0 then dwq:='d'; if (i mod 3...
από xdv
Τρί Νοέμ 05, 2019 10:51 pm
Δ. Συζήτηση: Γενικά για το Διαγωνισμό
Θέμα: testcase generator για ΠΔΠ---32
Απαντήσεις: 0
Προβολές: 992

testcase generator για ΠΔΠ---32

var i,j,n,m,k:integer; count:longint; f:text; begin count:=2019; n:=3;m:=4; assign(f,'erasmus.in') ; rewrite(f); writeln(f,n,' ',m); for i:=1 to n do begin write(f,1+count mod 100); count:=count+1; if i<n then write(f,' '); end; writeln(f); for i:=1 to m do begin k:=1+count mod 10 ; write(f,1+count...
από xdv
Τετ Φεβ 06, 2019 10:27 pm
Δ. Συζήτηση: Γενικά για το Διαγωνισμό
Θέμα: test genarator in c
Απαντήσεις: 1
Προβολές: 1610

Re: test genarator in c

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

10
253181416 1366 14 
347828153 164 17 
760836766 1398 31 
138477635 2409 33 
69213898 733 26 
622933336 2111 17 
432900662 1230 14 
879435403 1355 28 
3176172 2318 16 
946323446 1378 32 
ευχαριστούμε για τη συνεισφορά σου
από xdv
Κυρ Δεκ 02, 2018 10:07 pm
Δ. Συζήτηση: Γενικά για το Διαγωνισμό
Θέμα: test case generator για ΠΔΠ--31
Απαντήσεις: 5
Προβολές: 2765

test case generator για ΠΔΠ--31

//fpc 3.0.0 program test_cases; var i,n:longint; f:text; begin assign(f,'hydrocarbons.in'); rewrite(f); n:=10; writeln(f,n); for i:=0 to n-1 do begin write(f,1000+1000*(i mod 9),' '); write(f,300+300*(i mod 8),' '); writeln(f,4+4*(i mod 7)); end; close(f); end. το παραπάνω πρόγραμμα σας δίνει testc...