pdp forum

thetrojan01 έγραψε:

chowon1024 έγραψε:

stathis έγραψε:Σώπα ρε, και 10 γυναίκες; Χάλασε ο ΠΔΠ

Α, δεν κατάλαβα καλά!!!! Υποτιμάς τις γυναίκες;;;;
Νομίζεις ότι εσείς οι άντρες είστε πραγματικά πιο έξυπνοι;;;;
Ή μήπως από τότε που γεννηθήκατε σας έχουν μάθει απλώς να το πιστεύετε;;;;

Όχι, απλά εσύ είσαι προκατειλημμένη αρνητικά απέναντι στους άντρες. Εννοεί ότι τόσα χρόνια περνούσανε κατά πολύ μεγαλύτερο αριθμό αγόρια. Είναι σαν να «χάλασε» η παράδοση

zaxeilasfc έγραψε:Έλα ο καλύτερος χαρακτηρισμός ήταν του στάθη..! Χάλασε ο ΠΔΠ

Memas έγραψε:

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

Η περιγραφή σου ταιριάζει με εμένα Σωτήρη .... Είδα τον κώδικα σου...Ούτε που έπρεπε να αναρωτιέσαι γιατί ...αν είδες τον δικό μου:

Εγώ κάνω αναζήτηση για μεγαλύτερο και τον μικρότερο πρίν από αυτόν.Δεν κάνω ανα 2 διαίρεση.Μετά με την while ελένχω αν υπάρχει μικρότερος απο τον min άρα και πιθανό καλύτερο κέρδος.... Άρα δεν διατρέχω όλες τις θέσεις....

42 ος καλή θέση για pascal...ε;

{ 23ος_Πανελλήνιος_Διαγωνισμός_Πληροφορικής
   LANG: Pascal
  TASK: Μεγιστοποίηση_κέρδους } 
program profit (input, output) ; 
var 
    f1: text ; 
    n,i: longint ; 
    x,xmin,xmax: integer ; 
    p,ptemp: real ; 
begin 
    assign (f1,'profit.in') ; 
    reset (f1) ; 
    readln (f1,n) ; 
    i:=2 ; 
    p:=1 ; 
    read (f1,x) ; 
    xmax:=x ; 
    xmin:=x ; 
    while i<=n do 
        begin 
            read (f1,x) ; 
            if x>=xmax then 
                xmax:=x ; 
            if x<xmax then 
                begin 
                    xmax:=x ; 
                    if x<xmin then 
                        xmin:=x ; 
                end ;
            i:=i+1 ; 
            ptemp:=xmax/xmin ; 
            if ptemp>=p then 
                p:=ptemp ; 
        end ; 
    close (f1) ; 
    assign (f1,'profit.out') ; 
    rewrite (f1) ; 
    write (f1,p:5:3,#10) ; 
    close (f1) ; 
    halt (0) ; 
end.

Memas έγραψε:Έκανα την σούμα και ξέρεις τι διαφορά έχουμε...;;;; 0.004 s. Απλά στο 10 testdata εγώ έκανα 0,016 s.That was close...!!!