Αποτελέσματα Α´ Φάσεως 23´ Πανελληνίου Διαγωνισμοῦ Πληροφορι
Δημοσιεύτηκε: Τρί Ιαν 25, 2011 6:57 pm
Να τα αποτελέσματα :
http://www.pdp.gr/default.asp?pid=6&la=1&fid=1
http://www.pdp.gr/default.asp?pid=6&la=1&fid=1
Το επίσημο forum του ΠΔΠ
https://www.pdpforum.eu.org/forum/
Δεν βλεπω πουθενα ατομα με 0 μοναδεςchris έγραψε:Συγχαρητηριά μας
Πέρασαν άτομα με 0 μονάδες;
Πραγματικά, πριν λίγο υπήρχαν, ήταν 148 άτομα.compileGuy έγραψε:Δεν βλεπω πουθενα ατομα με 0 μοναδεςchris έγραψε:Συγχαρητηριά μας
Πέρασαν άτομα με 0 μονάδες;
Όχι, οι ισοβαθμίες ταξινομούνται βάσει μέσου χρόνου εκτελέσεως.zaxeilasfc έγραψε:Είναι τυχαία η προβολή των αποτελεσμάτων?
Εμένα μου φαίνεται περίεργο να περνάει μπροστά όμως η λύση εκείνου που στην αρχή χρησιμοποιεί μία επανάληψη στην αρχή μόνο και μόνο για να γεμίσει τον πίνακα του και έπειτα να εκτελέσει την διαδικασία του , από εκείνον που κάνει την διαδικασία άμεσα δίχως πίνακα. Πως γίνεται αυτό;kernelpanic έγραψε:Όχι, οι ισοβαθμίες ταξινομούνται βάσει μέσου χρόνου εκτελέσεως.zaxeilasfc έγραψε:Είναι τυχαία η προβολή των αποτελεσμάτων?
1 εκατομμύριο κλήσεις συστήματος και διαδικασίες προετοιμασίας για ανάγνωση, ελέγχους για τερματισμό αριθμού σε ascii, ελέγχου για φόρτωση νέου τομέα δίσκου, και άλλα τρεχα-γύρευε για λόγους ασφαλείας και όχι μόνο είναι πολύ μεγάλο βάρος.sotiris έγραψε: Εμένα μου φαίνεται περίεργο να περνάει μπροστά όμως η λύση εκείνου που στην αρχή χρησιμοποιεί μία επανάληψη στην αρχή μόνο και μόνο για να γεμίσει τον πίνακα του και έπειτα να εκτελέσει την διαδικασία του , από εκείνον που κάνει την διαδικασία άμεσα δίχως πίνακα. Πως γίνεται αυτό;
Yeskernelpanic έγραψε:@userresu: Γ' Λυκείου πας;
Η περιγραφή σου ταιριάζει με εμένα Σωτήρη .... Είδα τον κώδικα σου...Ούτε που έπρεπε να αναρωτιέσαι γιατί ...αν είδες τον δικό μου:Εμένα μου φαίνεται περίεργο να περνάει μπροστά όμως η λύση εκείνου που στην αρχή χρησιμοποιεί μία επανάληψη στην αρχή μόνο και μόνο για να γεμίσει τον πίνακα του και έπειτα να εκτελέσει την διαδικασία του , από εκείνον που κάνει την διαδικασία άμεσα δίχως πίνακα. Πως γίνεται αυτό;
Κώδικας: Επιλογή όλων
program PDP23;
var
pin:array[1..1000000] of integer;
max_p :real;
max,min:Integer;
all : Boolean;
fin,fout :Text;
x,i,orio_tel,sum: LongInt;
begin
assign (fin ,'profit.in');
reset (fin);
assign (fout ,'profit.out');
rewrite (fout);
readln (fin,sum);
For x:=1 to sum do
read (fin,pin[x]);
close(fin);
orio_tel:=1;
max_p:=0;
repeat
x:=orio_tel+1;
max:=pin[x];
for i:=orio_tel+2 to sum do
begin
if pin[i]>=max then
begin
max:=pin[i];
x:=i;
end;
end;
min:=max;
For i:=orio_tel to x-1 do
begin
If pin[i]<min THEN min:=pin[i];
end;
If max/min>max_p then
max_p:=max/min;
orio_tel:=x+1 ;
all:=FALSE;
i:=orio_tel;
while (i<sum) and (all=FALSE) do
begin
if pin[i]<min then all:=TRUE;
i:=i+1;
end;
until all=False;
writeln (fout,max_p:4:3);
close (fout);
halt(0)
end.
Δηλαδή είναι καλύτερο λες η χρησιμοποίηση πίνακα;Memas έγραψε: Η περιγραφή σου ταιριάζει με εμένα Σωτήρη .... Είδα τον κώδικα σου...Ούτε που έπρεπε να αναρωτιέσαι γιατί ...αν είδες τον δικό μου:
Καλή είναι βέβαια , αλλά πιστεύω ότι το θέμα περί του χρόνου είναι αρκετά ρατσιστικό όσο αφορά την βαθμολογία στις ισοβαθμίες...Memas έγραψε: 42 ος καλή θέση για pascal...ε;
Αμμ, ρατσιστικό;sotiris έγραψε:Καλή είναι βέβαια , αλλά πιστεύω ότι το θέμα περί του χρόνου είναι αρκετά ρατσιστικό όσο αφορά την βαθμολογία στις ισοβαθμίες...