Voithia stin Pascal!!!

[Dio]

Gia hara se olous.Eho to eksis problima stin pascal, ke prepi na lithi se 2-3 meres to poli bori kapios na me voithisi please.Parakato ine i ekfonisi:<P>Given an integer n,write a pascal program that uses a procedure to draw a square box whose sides are composed of asterisks,centered on the output device.Assume a maximum value of 20 for n.For example, if the input was 5 and the output device has a width of 65 columns,the output would look like this:<P><BR> *****<BR> *......*<BR> *......*<BR> *......*<BR> *****<P>(ipotithete oti ine centered ke horis tis telies, tespa)<BR>oson afora to error trapping,diladi na min ine to n pano apo 20 ksero na to kano alla afto pou me berdevi ine i allagi sto centering analoga me to an ine o arithnos monos i zigos.Episis prepi na to kano me procedures.<P>thanks in advance,<BR>Diogenis.<P>------------------<P><BR> -=A D M I N I S T R A T O R=-<BR> +++O F C L O N E Z O N E+++<BR> <A HREF="http://clonezone.da.ru" TARGET=_blank>http://clonezone.da.ru</A> <P>[This message has been edited by Dio (edited 17-04-2001).]<P>[This message has been edited by Dio (edited 17-04-2001).]<P>[This message has been edited by Dio (edited 17-04-2001).]<P>[This message has been edited by Dio (edited 17-04-2001).]<p>[This message has been edited by Dio (edited 19-04-2001).]

[spin]

Program Rect;<P>uses CRT, <BR> graph;<P>procedure drawRect(n: byte);<BR>var<BR> i, j, startX, startY: byte;<BR>begin<BR> if (n<2 or n>20) then exit;<BR> startX:= round((lo(windMax)-n)/2);<BR> startY:= round((hi(windMax)-n)/2);<BR> gotoXY(startX, startY);<BR> for i:=1 to n do write('*');<BR> for i:=1 to n-2 do<BR> begin<BR> gotoXY(startX, startY+i);<BR> write('*');<BR> for j:=1 to n-2 do write(' ');<BR> write('*');<BR> end;<BR> gotoXY(startX, startY+n-1);<BR> for i:=1 to n do write('*');<BR>end;<P>Begin<BR> clrScr;<BR> drawRect(Βάλε το μέγεθος του τετραγώνου);<BR> readKey;<BR>End.<P>@spin@</FONT c>

[Dio]

Oreos re file egrapse.<BR>poli kalos kodikas ke poli efficient!!!!!!<BR>Thelo na se rotiso an ginete to programma afto horis loops? ke ti simeni to hi, lo,windmax.<BR>thanks <IMG SRC="http://www.insomnia.gr/cpubb/smilies/cwm1.gif" border=0> <IMG SRC="http://www.insomnia.gr/cpubb/smilies/cwm1.gif" border=0> <IMG SRC="http://www.insomnia.gr/cpubb/smilies/cwm1.gif" border=0> <P>------------------<P><BR> -=A D M I N I S T R A T O R=-<BR> +++O F C L O N E Z O N E+++<P> <A HREF="http://clonezone.da.ru" TARGET=_blank>http://clonezone.da.ru</A> <P>[This message has been edited by Dio (edited 18-04-2001).]<p>[This message has been edited by Dio (edited 19-04-2001).]

[spin]

Χωρίς loops;<BR>Πως θα επαναλάβεις n φορές μια εντολή [δηλ. εδώ την write('*')] χωρίς εντολή επανάληψης;<BR>Δε μου έρχεται κάτι αυτή τη στιγμή...<P>Η windMax είναι μια μεταβλητή της CRT unit, τύπου word, που περιέχει τις διαστάσεις της default συσκευής εξόδου.<BR>Επειδή οι θέσεις της οθόνης ξεκινάνε από το (0,0) σε μια τυπική οθόνη κειμένου (25x80) η windMax θα περιέχει τους αριθμούς 24 & 79.<BR>Η μέγιστη οριζόντια διάσταση βρίκεται στο low-order byte της, ενώ η μέγιστη κατακόρυφη στο high-order byte.<BR>Οι συναρτήσεις lo & hi κάνουν αυτήν ακριβώς τη δουλειά:<BR>Η lo επιστρέφει το low-order byte της τύπου word παραμέτρου της, ενώ η hi το high-order byte.<P>To ίδιο πρόβλημα θα μπορούσε να λυθεί και με τη χρήση της window, ανακατευθύνοντας δηλαδή όλο το output σε μια, από πριν προσδιορισμένη, υποπεριοχή της οθόνης.<BR>Αλλά δε νομίζω να σου ζήτησαν κάτι τέτοιο γιατί αυτή η υλοποίηση έχει πολύ μικρότερη εκπαιδευτική αξία...<P><B>@ spin @</FONT c></B><p>[This message has been edited by spin (edited 19-04-2001).]

[Highlander]

Τι μου θύμισες τώρα...<P><BR>Highlander<P><P>------------------<BR>Επειδή δεν έχω την δυνατότητα να διαβάζω όλα τα post λόγω έλλειψης χρόνου, για οτιδήποτε e-mail me.<BR> [email protected] <P>There can be only one...