gbdanis Δημοσιεύτηκε Απρίλιος 24, 2004 #1 Κοινοποίηση Δημοσιεύτηκε Απρίλιος 24, 2004 όποιος μπορεί ας βοηθήσει Pascal Να γραφτεί πρόγραμμα το οποίο 1. Να διαβάζει 2 πίνακες Α και Β 20 θέσεων2. Να υπολογίζει έναν τρίτο πίνακα C τα στοιχεία του οποίου να προκύπτουν από το άθροισμα των αντιστοιχών στοιχείων των πινάκων Α και Β3. Να υπολογίζει έναν τέταρτο πίνακα D τα στοιχεία του οποίου να προκύπτουν από τη διαφορά των αντιστοιχών στοιχείων των πινάκων Α και Β4. Να υπολογίζει έναν πέμπτο πίνακα Ε τα στοιχεία του οποίου να προκύπτουν από το ημιάθροισμα των αντιστοιχών στοιχείων των πινάκων Α και Β Link to comment Share on other sites More sharing options...
aristos87 Απρίλιος 24, 2004 #2 Κοινοποίηση Απρίλιος 24, 2004 *ΕDIT* O κώδικας ήταν λάθος.... *EDIT* Ελπίζω να σε κάλυψα... Αν έχω κάνει κανα λάθος πείτε το.... έχω καιρό να γράψω πασκαλ.... ΥΓ: 3η Λυκείου πας??? Link to comment Share on other sites More sharing options...
gbdanis Απρίλιος 24, 2004 Author #3 Κοινοποίηση Απρίλιος 24, 2004 Ευχαριστώ για τη βοήθεια αλλά είναι ένα πρόγραμμα. Link to comment Share on other sites More sharing options...
aristos87 Απρίλιος 25, 2004 #4 Κοινοποίηση Απρίλιος 25, 2004 Αν παρατήρησες στο τέλος ειναι όλο μαζί...Program dio_pinakes;varp1[20],p2[20],p3[20],p4[20]p5[20] : integer;i : real;beginfor i := 1 to 20 do writeln ' Δώσε αριθμό: ';readln p;end;for i := 1 to 20 do writeln ' Δώσε αριθμό: ';readln p;end;for i : 1 to 20 dobeginp3 := p1+p2;p4 := p1-p2;p5 := (p1+p2)/2end;end;end. Link to comment Share on other sites More sharing options...
gbdanis Απρίλιος 25, 2004 Author #5 Κοινοποίηση Απρίλιος 25, 2004 Χίλια και κάτι ευχαριστώ :flower: :flower: :flower: :flower: :flower: :flower: :flower: :flower: :flower: :flower: :flower: :flower: :flower: :flower: :flower: :flower: :flower: :flower: :flower: :flower: :flower: :flower: :flower: :flower: :flower: :flower: :flower: :flower: :flower: :flower: :flower: :flower: :flower: :flower: Link to comment Share on other sites More sharing options...
aristos87 Απρίλιος 25, 2004 #6 Κοινοποίηση Απρίλιος 25, 2004 Δεν μου απάντησες.... 3η λυκείου πας? Link to comment Share on other sites More sharing options...
gbdanis Απρίλιος 25, 2004 Author #7 Κοινοποίηση Απρίλιος 25, 2004 Β' ΤΑΞΗ (ΤΕΕ) Link to comment Share on other sites More sharing options...
gbdanis Απρίλιος 27, 2004 Author #8 Κοινοποίηση Απρίλιος 27, 2004 DEN DOULEYEI . AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA Link to comment Share on other sites More sharing options...
kaynd Απρίλιος 27, 2004 #9 Κοινοποίηση Απρίλιος 27, 2004 Τι λάθος σου χτυπάει?Γραμματικό? Αν ναι τότε μπορεί να ξέχασες κανένα ; , : κλπΕλπίζω να μην έκανες απλά copy paste τον κώδικαΚάνε κάτι κι εσύ...Τι είναι το φόρουμ? Λυσάρι?Μπορεί ο Αριστείδης να έκανε κάποιο λάθος αλλά σου έδωσε την φόρμα του προγράμματος.Εκτός κι αν το λάθος είναι λογικό οπότε θα σου δώσει κάποιος άλλος την λύση. Link to comment Share on other sites More sharing options...
gbdanis Απρίλιος 27, 2004 Author #10 Κοινοποίηση Απρίλιος 27, 2004 XRIAZOME PINAKES Link to comment Share on other sites More sharing options...
aristos87 Απρίλιος 27, 2004 #11 Κοινοποίηση Απρίλιος 27, 2004 Όντως υπήρχαν λάθοι... Ο σωστός κώδικας ειναι Program dio_pinakes;varp1,p2,p3,p4,p5 : array [1..20] of integer;i : integer;begin for i := 1 to 20 do begin writeln (' Dose gia ton proto pinaka: '); readln (p1); end; for i := 1 to 20 do begin writeln (' Dose gia ton deutero pinaka: '); readln (p2); end;for i := 1 to 20 do begin p3 := p1+p2; p4 := p1-p2; p5 := (p1+p2) / 2 ; end; for i := 1 to 20 do writeln(p1,p2,p3,p4,p5);end. Link to comment Share on other sites More sharing options...
CyBeR_JiM Μάϊος 23, 2004 #12 Κοινοποίηση Μάϊος 23, 2004 Ρε παιδια η Pascal υπαρχει ακομα? Πλακα κανω.. Link to comment Share on other sites More sharing options...
kaynd Μάϊος 23, 2004 #13 Κοινοποίηση Μάϊος 23, 2004 Για να μάθεις πιο εξελιγμένες γλώσσες πρέπει πρώτα να κατανοήσεις τις βασικές Στον εκπαιδευτικό τομέα υπάρχει ακόμα. Link to comment Share on other sites More sharing options...
CyBeR_JiM Μάϊος 23, 2004 #14 Κοινοποίηση Μάϊος 23, 2004 δεν την θεωρω κακη γλωσσα απλα δεν ηξερα αμα διδασκεται ακομα Link to comment Share on other sites More sharing options...
aristos87 Μάϊος 23, 2004 #15 Κοινοποίηση Μάϊος 23, 2004 Αρχική απάντηση από ESTRANGED ποσο χαιρομαι που αλλαξα τελειως τομεα!!!! Τι ενωείς? Η πασκάλ είναι η μητέρα της delphi και η μητέρα του δομημένου προγραμματισμού!!! Είναι μια καλή αρχή για την εισαγωγή στον προγραμματισμό και απετεί περισσότερη σκέψη και αυστηρότητα απ'οτι η BASIC Link to comment Share on other sites More sharing options...
Recommended Posts
Archived
This topic is now archived and is closed to further replies.