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

Morelo · 05-12-10

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

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

Γιώργος · 05-12-10

Αρχική Δημοσίευση από Morelo:
begin
for....
sum
prof
writeln
writeln
end;
ετσι τα εβαλα αλλα επιανε μονο την sum

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

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

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

JosefK · 5 Δεκεμβρίου 2010

Αρχική Δημοσίευση από fockos:

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

Morelo · 12 Δεκεμβρίου 2010

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

Oλοσωστοοοοοοοοο!!!!!!!!!!!!!!!!!!!!!!!~
Μe rockss!!!!!!! :clapup:

την εστειλα! =]

JimmyBoo · 29-12-11

Μάγκες χρειάζομαι βοήθεια με ένα πρόβλημα! :redface:

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

Guest 986132 · 31 Δεκεμβρίου 2011

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

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

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

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

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

Code:

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;

CollegeLife · 06-01-14

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

quintana · 06-01-14

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

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

Morelo

Πολύ δραστήριο μέλος

Γιώργος

Τιμώμενο Μέλος

JosefK

Πολύ δραστήριο μέλος

Morelo

Πολύ δραστήριο μέλος

JimmyBoo

Νεοφερμένος

Guest 986132

Επισκέπτης

CollegeLife

Νεοφερμένος

quintana

Εκκολαπτόμενο μέλος

Χρήστες Βρείτε παρόμοια

Λοιπές Σελίδες