pascal sos

[gbdanis]

όποιος μπορεί ας βοηθήσει

Pascal

Να γραφτεί πρόγραμμα το οποίο

1. Να διαβάζει 2 πίνακες Α και Β 20 θέσεων

2. Να υπολογίζει έναν τρίτο πίνακα C τα στοιχεία του οποίου να προκύπτουν από το άθροισμα των αντιστοιχών στοιχείων των πινάκων Α και Β

3. Να υπολογίζει έναν τέταρτο πίνακα D τα στοιχεία του οποίου να προκύπτουν από τη διαφορά των αντιστοιχών στοιχείων των πινάκων Α και Β

4. Να υπολογίζει έναν πέμπτο πίνακα Ε τα στοιχεία του οποίου να προκύπτουν από το ημιάθροισμα των αντιστοιχών στοιχείων των πινάκων Α και Β

[aristos87]

*ΕDIT* O κώδικας ήταν λάθος.... *EDIT*

Ελπίζω να σε κάλυψα... Αν έχω κάνει κανα λάθος πείτε το.... έχω καιρό να γράψω πασκαλ....

ΥΓ: 3η Λυκείου πας???

[gbdanis]

Ευχαριστώ για τη βοήθεια αλλά είναι ένα πρόγραμμα.

[aristos87]

Αν παρατήρησες στο τέλος ειναι όλο μαζί...

Program dio_pinakes;

var

p1[20],p2[20],p3[20],p4[20]p5[20] : integer;

i : real;

begin

for i := 1 to 20 do

writeln ' Δώσε αριθμό: ';

readln p;

end;

for i := 1 to 20 do

writeln ' Δώσε αριθμό: ';

readln p;

end;

for i : 1 to 20 do

begin

p3 := p1+p2;

p4 := p1-p2;

p5 := (p1+p2)/2

end;

end;

end.

[gbdanis]

Χίλια και κάτι ευχαριστώ :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:

[aristos87]

Δεν μου απάντησες.... 3η λυκείου πας?

[gbdanis]

Β' ΤΑΞΗ (ΤΕΕ)

[gbdanis]

DEN DOULEYEI . AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

[kaynd]

Τι λάθος σου χτυπάει?

Γραμματικό?

Αν ναι τότε μπορεί να ξέχασες κανένα ; , : κλπ

Ελπίζω να μην έκανες απλά copy paste τον κώδικα

Κάνε κάτι κι εσύ...

Τι είναι το φόρουμ? Λυσάρι?

Μπορεί ο Αριστείδης να έκανε κάποιο λάθος αλλά σου έδωσε την φόρμα του προγράμματος.

Εκτός κι αν το λάθος είναι λογικό οπότε θα σου δώσει κάποιος άλλος την λύση.

[gbdanis]

XRIAZOME PINAKES

[aristos87]

Όντως υπήρχαν λάθοι... Ο σωστός κώδικας ειναι

Program dio_pinakes;

var

p1,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.

[CyBeR_JiM]

Ρε παιδια η Pascal υπαρχει ακομα?

Πλακα κανω..

[kaynd]

Για να μάθεις πιο εξελιγμένες γλώσσες πρέπει πρώτα να κατανοήσεις τις βασικές

Στον εκπαιδευτικό τομέα υπάρχει ακόμα.

[CyBeR_JiM]

δεν την θεωρω κακη γλωσσα απλα δεν ηξερα αμα διδασκεται ακομα

[aristos87]

Αρχική απάντηση από ESTRANGED

ποσο χαιρομαι που αλλαξα τελειως τομεα!!!!

Τι ενωείς?

Η πασκάλ είναι η μητέρα της delphi και η μητέρα του δομημένου προγραμματισμού!!! Είναι μια καλή αρχή για την εισαγωγή στον προγραμματισμό και απετεί περισσότερη σκέψη και αυστηρότητα απ'οτι η BASIC