Απορίες και προβλήματα στην Pascal

[Morelo]

Μήπως έβαλες begin-end μόνο γύρω από την sum;
Πρέπει να το βάλεις γύρω από τις 4 αυτές εντολές που θέλεις να "τσιμπάει" η for. Δεν είναι αποδοτικό να κάνεις δύο φορές for για κάτι που μπορεί να γίνει σε μία.

begin
for....
sum
prof
writeln
writeln
end;
ετσι τα εβαλα αλλα επιανε μονο την sum

Σημείωση: Το μήνυμα αυτό γράφτηκε 15 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.

 

[Γιώργος]

begin
for....
sum
prof
writeln
writeln
end;
ετσι τα εβαλα αλλα επιανε μονο την sum

...........................


for....
begin
sum
prof
writeln
writeln
end;

Ξαναδές το ποστ που έγραψα πιο πάνω για θέματα στοίχισης.

Σημείωση: Το μήνυμα αυτό γράφτηκε 15 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.

 

[JosefK]

Spoiler

πες κι εσύ τώρα! Συμφωνείς με τη λύση;

Σημείωση: Το μήνυμα αυτό γράφτηκε 15 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.

 

[Morelo]

Με υποχρεωτική χρήση των procedures να φτιάξετε ένα πρόγραμμα το οποίο θα ζητάει από το χρήστη να εισάγει από το πληκτρολόγιο 4 αριθμούς. Στη συνέχεια, μέσω του προγράμματος, ο υπολογιστής θα πρέπει να υπολογίζει: (α) το άθροισμα
(β) το γινόμενο και
(γ) η μέση τιμή,
των αριθμών αυτών και να εκτυπώνει τα τρία αυτά εξαγόμενα στην οθόνη.

Oλοσωστοοοοοοοοο!!!!!!!!!!!!!!!!!!!!!!!~
Μe rockss!!!!!!!
την εστειλα! =]

Σημείωση: Το μήνυμα αυτό γράφτηκε 15 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.

 

[JimmyBoo]

Μάγκες χρειάζομαι βοήθεια με ένα πρόβλημα!
Ακούστε.
Σε ένα ιδιωτικό πάρκιν υπάρχουν 30 χώροι στάθμευσης ανάλογα με το είδος των οχημάτων που παρκάρωντε.
10 για φορτιγά,10 για ΙΧ και 10 για μοτοποδήλατα.για κάθε όχημα κόβεται εισιτήριο συνολικά μπςρούν να κοπούν 550 εισιτήρια
την μέρα για όλα τα οχήματα. συγκεκριμένα 150 για μοτοσικλέτες 50 για φορτηγά και τα υπόλοιπα για ΙΧ.
Να γραφεί πρόγραμμα PASCAL το οποίο να διαβάζει το είδος του οχήματος και να υπολογίζει το κόστος του ανάλογα
με: α)μέχρι 6 ώρες---> 7 ευρώ
β)πάνω από 6 ώρες---> 10 ευρώ.

Σημείωση: Το μήνυμα αυτό γράφτηκε 14 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.

 

[Guest 986132]

Μάγκες χρειάζομαι βοήθεια με ένα πρόβλημα!
Ακούστε.
Σε ένα ιδιωτικό πάρκιν υπάρχουν 30 χώροι στάθμευσης ανάλογα με το είδος των οχημάτων που παρκάρωντε.
10 για φορτιγά,10 για ΙΧ και 10 για μοτοποδήλατα.για κάθε όχημα κόβεται εισιτήριο συνολικά μπςρούν να κοπούν 550 εισιτήρια
την μέρα για όλα τα οχήματα. συγκεκριμένα 150 για μοτοσικλέτες 50 για φορτηγά και τα υπόλοιπα για ΙΧ.
Να γραφεί πρόγραμμα PASCAL το οποίο να διαβάζει το είδος του οχήματος και να υπολογίζει το κόστος του ανάλογα
με: α)μέχρι 6 ώρες---> 7 ευρώ
β)πάνω από 6 ώρες---> 10 ευρώ.

Δεν έκατσα να σου λύσω ολόκληρη την άσκηση, παρά έκανα λίγο την αρχή...

Την λύση της άσκησης την σκέφτηκα ως εξής:
Θεώρησα δεδομένο στο πρόγραμμά μου, πως το πάρκινγκ, θα έχει όλες τις ώρες κίνηση, οπότε έβαλα ένα loop, το οποίο τερματίζει στο 550, όσα και τα εισιτήρια, που μας επιτρέπονται να κοπούν.
Μέσα στην επανάληψη έθεσα συνθήκες, ώστε να εξασφαλίσω το όριο, που μου βάζει σε διάφορα σημεία, όπως το χρονικό όριο (ένα 24ώρο), τις θέσεις, τα εισιτήρια κοκ. κι εν συνεχεία υπολογίζω το κόστος. Σε περίπτωση, που δεν ισχύουν οι συνθήκες, πχ. αν τα εισιτήρια εξαντλήθηκαν, μπορείς να βάλεις ένα αντίστοιχο μήνυμα, για τον χρήστη, ώστε να είναι πιο ολοκληρωμένο το πρόγραμμά σου.

Δες το κι εσύ λίγο, γιατί την είδα πρόχειρα την άσκηση κι ίσως είμαι λάθος σε μερικά σημεία.

*Έχω να πιάσω άσκηση σε Pascal 2-3 χρόνια περίπου, οπότε ενδέχεται να είμαι κάπου λάθος, στο συντακτικό της γλώσσας...

Spoiler

program tupos_oxhmatos;
const 
         n:550;
var
         tupos: string [20];
         x, kostos, wres, wres_m, theseis, eisithrio: integer;
Begin
x:=1;
while x<=n do
        Begin
                   Writeln('Δώσε τύπο οχήματος');
                   Readln(tupos);
                               if wres_m >=1 AND wres_m <= 24 then
                                            if tupos = forthgo then
                                                           if theseis >=1 AND theseis <=10 then
                                                                         if eisithrio >=1 AND eisithrio <= 150 then
                                                                                          if wres >=1 AND wres <=6 then
                                                                                                             kostos:=wres*7;
                                                                                          else
                                                                                                             kostos:=wres*10;

Σημείωση: Το μήνυμα αυτό γράφτηκε 14 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.

 

[CollegeLife]

Πως μπορω να φτιαξω το κολλημα της πασκαλ να μου βγαζει type mismatch οταν υπαρχουν stringς και char var?

Σημείωση: Το μήνυμα αυτό γράφτηκε 12 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.

 

[quintana]

ε δεν ειναι τιποτα..Απλά συνδέεις τα ψιψιψίνια με τα κοκοκόψαρα!

Σημείωση: Το μήνυμα αυτό γράφτηκε 12 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.