[GR]Askisi sxolikh PASCAL

[N3verσøft]

Geia sas.sto sxoleio m o ka8igitis mas evale mia askisi se PASCAL....alla egw dn 3r kai pola g auto 8l tn voithia sas.8a h8ela ton kodika apo tin askisi p 8a sas zitisw :

"na ginei programa pou na dexete arithmous kai na bgazei ws apotelesma to athrisma tous. kathe fora afou ginei eisagwgh tou kathe arithmou tha mas rwtaei an theloume na sinexisoume h oxi."

Euxaristw

[ProJecT]

program Askisi;

uses wincrt;

var arithmos, athroisma:real; erwthsh:char;

begin

repeat

writeln("Dwse enan arithmo");

readln(arithmos);

athroisma:=athroisma+arithmos;

writeln("Theleis na sunexiseis? An nai pata to koympi "y" an oxi pata to koympi "n"");

readln(erwthsh);

until erwthsh:="n"

writeln("To athroisma ton arithmwn einai:", athroisma);

end.

 

Πες μου αν δουλεύει.

[Hax0r]

program Askisi;

uses wincrt;

var arithmos, athroisma:real; erwthsh:char;

begin

repeat

writeln("Dwse enan arithmo");

readln(arithmos);

athroisma:=athroisma+arithmos;

writeln("Theleis na sunexiseis? An nai pata to koympi "y" an oxi pata to koympi "n"");

readln(erwthsh);

until erwthsh:=n

writeln("To athroisma ton arithmwn einai:", athroisma);

end.

 

Πες μου αν δουλεύει.

Νομίζω αυτό δεν είναι σωστό.

[ProJecT]

Νομίζω αυτό δεν είναι σωστό.

Έχω να κάνω Pascal ένα χρόνο και μπερδεύομαι απο την C. Γιατί να μην είναι σωστό;

[Hax0r]

Και εγώ έχω 2 χρόνια να ασχοληθώ με Pascal :P

Πολύ απλά δεν γίνεται ανάθεση τιμής εκεί και έχω την εντύπωση θα πρέπει να υπάρχει σκέτη σύγκριση.

until erwthsh="n"

Ίσως χρειαστούν και τα εισαγωγικά.

[ProJecT]

Τα ξέχασα τα εισαγωγικά

[N3verσøft]

katevazw to pascal...Alla, sto sxoleio dn exoume kanei to "repeat" kai to "until" ginete xwris afta?

[ProJecT]

katevazw to pascal...Alla, sto sxoleio dn exoume kanei to "repeat" kai to "until" ginete xwris afta?

LOL. Με If ίσως γίνεται.. Κάνατε case?

[ProJecT]

Και πάλι, δεν μπορώ να σκεφτώ πως θα το κάνεις με If. Εν το μεταξύ αφού σου λέει κάθε φορά να γίνεται ερώτηση, αναγκαστηκά είναι repeat.

[Hax0r]

While κάνατε;

[N3verσøft]

AAAA bravo......while kaname tr tin paraskeuh...sorry alla dn borousa na 8imi8w to "while" :P

[ProJecT]

While κάνατε;

Repeat..until καλύτερα για να κάνει πρώτα μια επανάληψη χωρίς να του κάνει ερώτηση, για να απαντήσει ναι ή όχι.

[Kяaσh]

While κάνατε;

Σιγουρα εχουνε κανει ειναι στο πρωτο 6μηνο while μαθαινουν στα πρωτα μαθηματα οποτε νομιζω πως την εχουν μαθει.

[ProJecT]

Βασικά γίνετε και με while.

[Kяaσh]

Repeat..until καλύτερα για να κάνει πρώτα μια επανάληψη χωρίς να του κάνει ερώτηση, για να απαντήσει ναι ή όχι.

Σου βαζουν ασκησεις να τις κανεις συμφωνα με τις μεθοδους που σας εχουν μαθει οχι με καποιες που θα τις μαθουν στην πορεια.