pdp forum

chris έγραψε:Συγχαρητηριά μας
Πέρασαν άτομα με 0 μονάδες;

compileGuy έγραψε:

chris έγραψε:Συγχαρητηριά μας
Πέρασαν άτομα με 0 μονάδες;

Δεν βλεπω πουθενα ατομα με 0 μοναδες

zaxeilasfc έγραψε:Είναι τυχαία η προβολή των αποτελεσμάτων?

kernelpanic έγραψε:

zaxeilasfc έγραψε:Είναι τυχαία η προβολή των αποτελεσμάτων?

Όχι, οι ισοβαθμίες ταξινομούνται βάσει μέσου χρόνου εκτελέσεως.

sotiris έγραψε: Εμένα μου φαίνεται περίεργο να περνάει μπροστά όμως η λύση εκείνου που στην αρχή χρησιμοποιεί μία επανάληψη στην αρχή μόνο και μόνο για να γεμίσει τον πίνακα του και έπειτα να εκτελέσει την διαδικασία του , από εκείνον που κάνει την διαδικασία άμεσα δίχως πίνακα. Πως γίνεται αυτό;

kernelpanic έγραψε:@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 έγραψε:Καλή είναι βέβαια , αλλά πιστεύω ότι το θέμα περί του χρόνου είναι αρκετά ρατσιστικό όσο αφορά την βαθμολογία στις ισοβαθμίες...