Morelo
Πολύ δραστήριο μέλος
Ο Morelo αυτή τη στιγμή δεν είναι συνδεδεμένος. Επαγγέλλεται Φοιτητής/τρια. Έχει γράψει 1,463 μηνύματα.

05-12-10

16:48
beginΜήπως έβαλες begin-end μόνο γύρω από την sum;
Πρέπει να το βάλεις γύρω από τις 4 αυτές εντολές που θέλεις να "τσιμπάει" η for. Δεν είναι αποδοτικό να κάνεις δύο φορές for για κάτι που μπορεί να γίνει σε μία.
for....
sum
prof
writeln
writeln
end;
ετσι τα εβαλα αλλα επιανε μονο την sum
Σημείωση: Το μήνυμα αυτό γράφτηκε 14 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.
Γιώργος
Τιμώμενο Μέλος
Ο Γιώργος αυτή τη στιγμή δεν είναι συνδεδεμένος. Μας γράφει από Ελβετία (Ευρώπη). Έχει γράψει 30,767 μηνύματα.

05-12-10

16:50
...........................begin
for....
sum
prof
writeln
writeln
end;
ετσι τα εβαλα αλλα επιανε μονο την sum
for....
begin
sum
prof
writeln
writeln
end;
Ξαναδές το ποστ που έγραψα πιο πάνω για θέματα στοίχισης.
Σημείωση: Το μήνυμα αυτό γράφτηκε 14 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.
JosefK
Πολύ δραστήριο μέλος
Ο Μιχαήλ αυτή τη στιγμή δεν είναι συνδεδεμένος. Επαγγέλλεται Tatoo artist. Έχει γράψει 1,361 μηνύματα.

05-12-10

17:38
Σημείωση: Το μήνυμα αυτό γράφτηκε 14 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.
Morelo
Πολύ δραστήριο μέλος
Ο Morelo αυτή τη στιγμή δεν είναι συνδεδεμένος. Επαγγέλλεται Φοιτητής/τρια. Έχει γράψει 1,463 μηνύματα.

12-12-10

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

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






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

29-12-11

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

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

30-12-11

18:54
Μάγκες χρειάζομαι βοήθεια με ένα πρόβλημα!
Ακούστε.
Σε ένα ιδιωτικό πάρκιν υπάρχουν 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;
Σημείωση: Το μήνυμα αυτό γράφτηκε 13 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.
CollegeLife
Νεοφερμένος
Η CollegeLife αυτή τη στιγμή δεν είναι συνδεδεμένη. Επαγγέλλεται Φοιτητής/τρια και μας γράφει από Αθήνα (Αττική). Έχει γράψει 84 μηνύματα.

06-01-14

22:20
Πως μπορω να φτιαξω το κολλημα της πασκαλ να μου βγαζει type mismatch οταν υπαρχουν stringς και char var?
Σημείωση: Το μήνυμα αυτό γράφτηκε 11 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.
Χρήστες Βρείτε παρόμοια
-
Φορτώνει...