Helppppppp!!!!!!
+3
billyjean
hdimop
Daffy
7 απαντήσεις
Σελίδα 1 από 1
Helppppppp!!!!!!
ΜΗΠΩΣ ΜΠΟΡΕΙ ΚΑΠΟΙΟΣ ΝΑ ΜΕ ΒΟΗΘΗΣΕΙ ΣΕ ΜΙΑ ΑΣΚΗΣΗ ΠΟΥ ΕΧΩ ΣΤΗΝ ΓΛΩΣΣΑ PASCAL????
Η ΑΣΚΗΣΗ ΛΕΕΙ : Να γραφτεί πρόγραμμα που αφού δηλώνει 2 πίνακες Α και Β δέκα ακέραιων στοιχείων , να αθροίζει τα στοιχεία των 2 πινάκων σε ένα πίνακα C και να εμφανίζει τα στοιχεία του πίνακα.
το e-mail μου είναι TKelectronic@gmail.com
Η ΑΣΚΗΣΗ ΛΕΕΙ : Να γραφτεί πρόγραμμα που αφού δηλώνει 2 πίνακες Α και Β δέκα ακέραιων στοιχείων , να αθροίζει τα στοιχεία των 2 πινάκων σε ένα πίνακα C και να εμφανίζει τα στοιχεία του πίνακα.
το e-mail μου είναι TKelectronic@gmail.com
Daffy- User
-
Αριθμός μηνυμάτων : 73
Ηλικία : 41
Τόπος Διαμονής : Mexico-Cuba-Peru-Venezuela
Ημ/νία εγγραφής : 19/09/2007
Απ: Helppppppp!!!!!!
Η άσκηση ξεχνάει να σας πει να γεμίσετε τους πίνακες Α και Β. Ενα στοιχειώδες πρόγραμμα που τα κάνει όλα, μπορεί να είναι το παρακάτω. Δυστυχώς ο συγκεκριμένος editor δεν μου επιτρέπει να γράψω με την σωστή εμφάνιση.
program ArraySum;
var A, B, C : array[1..10] of integer;
i: byte;
begin (* of program *)
(* Array initialization (proairetiko) *)
for i:=1 to 10 do begin A[i]:=0; B[i]:=0; C[i]:=0; end;
(* read array A *)
for i:=1 to 10 do begin write('Give A[', i, ']='); readln(A[i]); end;
(* read array B *)
for i:=1 to 10 do begin write('Give B[', i, ']='); readln(B[i]); end;
writeln('APOTELESMA ');
(* show result array C *)
for i:=1 to 10 do begin C[i]:=A[i]+B[i]; write('C[', i, ']=', C[i], ' '); end;
end. (* of program *)
Αν έκανα και κάποιο λάθος, συχώρα με αλλά έχω χρόνια να γράψω Pascal.
Ηρ. Γ. Δημόπουλος
program ArraySum;
var A, B, C : array[1..10] of integer;
i: byte;
begin (* of program *)
(* Array initialization (proairetiko) *)
for i:=1 to 10 do begin A[i]:=0; B[i]:=0; C[i]:=0; end;
(* read array A *)
for i:=1 to 10 do begin write('Give A[', i, ']='); readln(A[i]); end;
(* read array B *)
for i:=1 to 10 do begin write('Give B[', i, ']='); readln(B[i]); end;
writeln('APOTELESMA ');
(* show result array C *)
for i:=1 to 10 do begin C[i]:=A[i]+B[i]; write('C[', i, ']=', C[i], ' '); end;
end. (* of program *)
Αν έκανα και κάποιο λάθος, συχώρα με αλλά έχω χρόνια να γράψω Pascal.
Ηρ. Γ. Δημόπουλος
Απ: Helppppppp!!!!!!
ΕΥΧΑΡΙΣΤΩ ΠΑΡΑ ΠΟΛΥ
Daffy- User
-
Αριθμός μηνυμάτων : 73
Ηλικία : 41
Τόπος Διαμονής : Mexico-Cuba-Peru-Venezuela
Ημ/νία εγγραφής : 19/09/2007
Απ: Helppppppp!!!!!!
i am totally shocked!!!!
invi69- Boss
-
Αριθμός μηνυμάτων : 661
Ηλικία : 40
Τόπος Διαμονής : Πολυγωνο(οχι πενταγωνο)
Ημ/νία εγγραφής : 06/06/2007
Απ: Helppppppp!!!!!!
Δεν καταλαβαίνω τα σχόλια όπως OMG (Oh My God ???) του billyjean και το I am totally shocked του invi69.
Με ρώτησε ποτέ κανείς κάτι και δεν του απάντησα?
Για να μην ψάχνω όμως καλύτερα θα ήταν να με ρωτάτε απ' ευθείας. Ετσι αποφάσισα να ανοίξω ενα topic για να βάζετε εκει τις ερωτήσεις σας που νομίζετε ότι μπορώ να απαντήσω. ΟΤΙΔΗΠΟΤΕ!
Με ρώτησε ποτέ κανείς κάτι και δεν του απάντησα?
Για να μην ψάχνω όμως καλύτερα θα ήταν να με ρωτάτε απ' ευθείας. Ετσι αποφάσισα να ανοίξω ενα topic για να βάζετε εκει τις ερωτήσεις σας που νομίζετε ότι μπορώ να απαντήσω. ΟΤΙΔΗΠΟΤΕ!
Απ: Helppppppp!!!!!!
τα σχόλια δεν έγιναν από κακία ίσα ίσα που οτιδήποτε βοηθάει τα μέλη αυτού του φόρουμ είναι καλοδεχούμενο
Απ: Helppppppp!!!!!!
Δεν μίλησα για κακία. Υπεννόησα ότι κάπως σας φαίνεται όταν βλέπετε κάτι τέτοιο. Είναι όμως κοινή πρακτική στις πολιτισμένες χώρες. Σε ότι μπορώ θα βοηθήσω και μέσα από το νέο topic που άνοιξα στην Γενική συζήτηση. Εβαλα και στο HNet link προς το forum σας.
ΗΓΔ
ΗΓΔ
Απ: Helppppppp!!!!!!
Νομίζω πως τα σχόλια ήταν για τον κώδικα της Pascal....
Πολύ καλή κίνηση το topic δάσκαλε...Ευχαριστούμε για όλη τη βοήθεια!!!
Πολύ καλή κίνηση το topic δάσκαλε...Ευχαριστούμε για όλη τη βοήθεια!!!
Απ: Helppppppp!!!!!!
ta sxollia htan sxolia thaymasmou kai ekplhxhs dioti kanate kati diaforetiko to opoio den prepei na exei xanaginei apo kathhghth tou tei mas(dystyxws)kai fysika ektimamai aythn thn prospatheia!!!
invi69- Boss
-
Αριθμός μηνυμάτων : 661
Ηλικία : 40
Τόπος Διαμονής : Πολυγωνο(οχι πενταγωνο)
Ημ/νία εγγραφής : 06/06/2007
Απ: Helppppppp!!!!!!
Ίσως και επειδή πολλοί δεν ξέρουν pascal και νομίζουν ότι ο κώδικας ήταν τρομερός... :D:D:D
Santeron- Admin
-
Αριθμός μηνυμάτων : 1531
Ηλικία : 38
Τόπος Διαμονής : New Smirni, Athens, Greece
Ημ/νία εγγραφής : 07/06/2007
Σελίδα 1 από 1
Δικαιώματα σας στην κατηγορία αυτή
Δεν μπορείτε να απαντήσετε στα Θέματα αυτής της Δ.Συζήτησης
|
|