Υποδείξεις για το Θέμα Δ:
..
β. Για την επανάληψη να γίνει χρήση της εντολής while ... do ή της εντολής repeat ... until.
(https://alkisg.mysch.gr/steki/DirectAttachments/warning.png) | Από την ομάδα διαχείρισης: απαγορεύεται η ανάρτηση λύσεων πριν τις 12:30 |
Ενδεικτικές απαντήσειςθα μπορουσατε να μου τις στειλετε με e-mail??
(https://alkisg.mysch.gr/steki/DirectAttachments/warning.png) Από την ομάδα διαχείρισης: απαγορεύεται η ανάρτηση λύσεων πριν τις 12:30
(https://alkisg.mysch.gr/steki/DirectAttachments/warning.png) | Από την ομάδα διαχείρισης: το παρόν μήνυμα διαγράφηκε επειδή χρησιμοποιούσε greeklish (http://el.wikipedia.org/wiki/Greeklish). Παρακαλείται το μέλος να πατήσει "Τροποποίηση" και να ξαναγράψει το μήνυμα με ελληνικούς χαρακτήρες (http://tools.wcl.ece.upatras.gr/degreeklish/index.php). |
Έχεις δυο λαθάκια... στο B2 στο else δεν θέλει " : "
B2)
readln(x);
case x of
1:y:=x+5;
2:y:=x*5+8;
3:y:=2*x-x;
4:y:=(x+x*5) div 7;
else : y:=(x div 3)+(x mod 3);
end;
writeln(y);
Program d;
var
onoma_p:string; //3is monades
sum,poso,plithosAnwtwn50000,plithosKatwtwn50000:real;
begin
plithosAnwtwn50000:=0;
plithosKatwtwn50000:=0;
sum:=0;
repeat
writeln('Dose to onoma tou pwliti'); //2 monades
read(onoma_p);
writeln('Dose to poso twn pwlisewn'); //2 monades
read(poso);
sum:=sum+poso;
if (poso>=50000) then plithosAnwtwn50000:=plithosAnwtwn50000+1
else plithosKatwtwn50000:=plithosKatwtwn50000+1; //oi tris panw grames 8 monades
until (onoma_p<>'telos');//3is monades
writeln('plithos Anw twn 50000',plithosAnwtwn50000:5:2);
writeln('plithos Katw twn 50000',plithosAnwtwn50000:5:2);
writeln('Sinolo',sum:5:1); //to ena einai i akriveia 1 dekadikou.. // oi parapanw 3is grammes einai 4 monades
end.
// Gia to Thema D den leei tipota gia elenxo orthotitas timwn!!!
Αν το τμήμα προγράμματος εκτελεί είσοδο δεδομένων ή έξοδο αποτελεσμάτων, τότε δεν χρησιμοποιούμε συνάρτηση.
program Test;
function GetValueOk(var Value: Integer): Boolean;
begin
Write('Δώσε μια ακέραια τιμή >100: ');
Readln(Value);
GetValueOk := Value > 100;
end;
var
Value: Integer;
begin
repeat
until GetValueOk(Value);
end.
Στο θέμα Δ δήλωσα τις μεταβλητές ως longint για τους ακαίρεους και double για πραγματικούς αφού οι τιμές ξεπερνάνε τα όρια του integer και real, είναι λάθος;
Ρωτάω γιατι βλέπω τις λύσεις με real και integer.
Για δεύτερη συνεχόμενη χρονιά, υπόδειξη για τα "νόμιμα" εργαλεία προς χρήση.. :-\
..
Υποδείξεις για το Θέμα Δ:
..
β. Για την επανάληψη να γίνει χρήση της εντολής while ... do ή της εντολής repeat ... until.
Σελίδα 121Έκανα το ίδιο με το longint αλλά όχι με το double γιατί δεν θυμώνουν τις τιμές που μπορεί να πάρει το real…θα αφαιρεθούν πολλές μονάδες?
"Αν το τμήμα προγράμματος εκτελεί είσοδο δεδομένων ή έξοδο αποτελεσμάτων, τότε δε χρησιμοποιούμε συνάρτηση"
@Ma8hths
Σωστό είναι αυτό που έκανες, είσαι ακόμα πιο τυπικός από ότι θα σου ζητηθεί, μην ανησυχείς καν
Αμάν..
Εμείς στα ΓΛ γιατί το θεωρούμε λάθος ρε παιδιά;;
Στο θέμα Δ δήλωσα τις μεταβλητές ως longint για τους ακαίρεους και double για πραγματικούς αφού οι τιμές ξεπερνάνε τα όρια του integer και real, είναι λάθος;
Ρωτάω γιατι βλέπω τις λύσεις με real και integer.
(https://alkisg.mysch.gr/steki/DirectAttachments/warning.png) | Από την ομάδα διαχείρισης: το παρόν μήνυμα διαγράφηκε επειδή χρησιμοποιούσε greeklish (http://el.wikipedia.org/wiki/Greeklish). Παρακαλείται το μέλος να πατήσει "Τροποποίηση" και να ξαναγράψει το μήνυμα με ελληνικούς χαρακτήρες (http://tools.wcl.ece.upatras.gr/degreeklish/index.php). |
(https://alkisg.mysch.gr/steki/DirectAttachments/warning.png) Από την ομάδα διαχείρισης: το παρόν μήνυμα διαγράφηκε επειδή χρησιμοποιούσε greeklish (http://el.wikipedia.org/wiki/Greeklish).
Παρακαλείται το μέλος να πατήσει "Τροποποίηση" και να ξαναγράψει το μήνυμα με ελληνικούς χαρακτήρες (http://tools.wcl.ece.upatras.gr/degreeklish/index.php).
Για τον real δεν ξέρω δυστυχώς.. όσον αναφορά το integer περνει τιμες απο -32768 εως 32767 (2^16)…από την στιγμή που οι ασκήσεις αναφέρονται σε τιμές των 50000 δεν μπορεί να χρησιμοποιηθεί..
(https://alkisg.mysch.gr/steki/DirectAttachments/warning.png) | Από την ομάδα διαχείρισης: το παρόν μήνυμα διαγράφηκε επειδή χρησιμοποιούσε greeklish (http://el.wikipedia.org/wiki/Greeklish). Παρακαλείται το μέλος να πατήσει "Τροποποίηση" και να ξαναγράψει το μήνυμα με ελληνικούς χαρακτήρες (http://tools.wcl.ece.upatras.gr/degreeklish/index.php). |
Αυτό είναι ένα θέμα το οποίο αντιλαμβάνεται ο κάθε ένας διαφορετικά.. μπορεί κάποιος να θεωρεί ότι εφόσον μιλάμε για τέτοια ποσά δεν μας νοιάζουν τα δεκαδικά ψηφία ενώ κάποιος άλλος όπως εσύ να θεωρεί ότι πρέπει να εξετάζουμε ακόμα και το τελευταίο δεκαδικό ψηφίο.. ελπίζω να πάρουν και τις δυο περιπτώσεις σωστές!
(https://alkisg.mysch.gr/steki/DirectAttachments/warning.png) Από την ομάδα διαχείρισης: το παρόν μήνυμα διαγράφηκε επειδή χρησιμοποιούσε greeklish (http://el.wikipedia.org/wiki/Greeklish).
Παρακαλείται το μέλος να πατήσει "Τροποποίηση" και να ξαναγράψει το μήνυμα με ελληνικούς χαρακτήρες (http://tools.wcl.ece.upatras.gr/degreeklish/index.php).
Εφόσον το αντικείμενο του βιβλίου είναι ουσιαστικά η Turbo Pascal, ΠΟΛΥ ΚΑΛΑ ΕΚΑΝΕΣ!
Το ποσό, το συνολικό ποσό και ο μέσος όρος πρέπει να είναι πραγματικοί αριθμοί εφόσον μιλάμε για λεφτά, οι άλλες δύο μεταβλητές είναι μετρητές οπότε ο INTEGER μας εξυπηρετεί.
Για το ποσό ο τύπος REAL είναι ικανοποιητικός. Τώρα όσο αφορά το συνολικό ποσό και κατ' επέκταση το μέσο όρο θα μπορούσε να χρησιμοποιηθεί ο τύπος DOUBLE.
Συγχωρέστε μου το λάθος, ήμουν σε σύγχυση και δεν είχα διαβάσει καλά την εκφώνηση :)
Κώδικας: [Επιλογή]program Test;
function GetValueOk(var Value: Integer): Boolean;
begin
Write('Δώσε μια ακέραια τιμή >100: ');
Readln(Value);
GetValueOk := Value > 100;
end;
var
Value: Integer;
begin
repeat
until GetValueOk(Value);
end.
Ας μου επιτραπεί να πω πως το δ του Α1 είναι Λάθος (διατύπωσης τουλάχιστον) κατά την ταπεινή μου γνώμη
Παδιά για τα σωστό-λάθος έχω δεί μέχρι στιγμής διάφορες παραλλαγές. Έχω δει : Λ-Σ-Λ-Σ-Λ........ Σ-Λ-Λ-Σ-Σ...........Λ-Σ-Λ-Σ-Σ........... Ξέρει κάποιος στα σίγουρα να μας πεί τη σωστή ακολουθία; Το τελευταίο δεν θα έπρεπε να είναι chr(x) για να είναι σωστό;ΛΣΛΣΛ, έχει δίκιο ο συνάδελφος petrosp13
ΛΣΛΣΛ
Σωστοί είναι οι τύποι που έβαλες