Σε πίνακα εγγραφή υπολογισμού μέσου όρου. - pascal

Συζητήσεις σχετικές με την Delphi και την πρόγονη της Pascal

Συντονιστές: WebDev Moderators, Super-Moderators

Απάντηση
ASXETOSman
Δημοσιεύσεις: 4
Εγγραφή: 10 Ιουν 2007 12:21

Σε πίνακα εγγραφή υπολογισμού μέσου όρου. - pascal

Δημοσίευση από ASXETOSman » 10 Ιουν 2007 12:41

ΓΕΙΑ ΣΑΣ! ΜΟΥ ΕΙΠΑΝ ΓΙΑ ΤΟ SITE ΣΑΣ ΟΤΙ ΕΙΝΑΙ ΠΟΛΥ ΚΑΛΟ ΚΑΙ ΟΤΙ ΕΧΕΤΕ ΑΤΟΜΑ ΠΟΥ ΓΝΩΡΙΖΟΥΝ ΚΑΛΑ ΤΟ ΑΝΤΙΚΕΙΜΕΝΟ ΟΠΟΤΕ ΕΙΠΑ ΝΑ ΑΠΕΥΘΥΝΘΩ ΣΕ ΕΣΑΣ ΓΙΑ ΕΝΑ ΠΡΟΒΛΗΜΑ ΣΤΗΝ PASCAL TO ΟΠΟΙΟ ΔΕΝ ΜΠΟΡΩ ΝΑ ΤΟ ΛΥΣΩ ΜΕ ΤΠΤ!

ΠΡΟΒΛΗΜΑ:
Σε πίνακα εγγραφή υπολογισμού μέσου όρου.

( Αναφέρεται σε εγγραφές τύπου record,
Type pinakas>= record)

(Σημείωση: Να έχουν και τμήμα δηλώσεων

Uses cre
Var...
begin)

Άβαταρ μέλους
dva_dev
Script Master
Δημοσιεύσεις: 3790
Εγγραφή: 16 Σεπ 2005 01:32
Επικοινωνία:

Σε πίνακα εγγραφή υπολογισμού μέσου όρου. - pascal

Δημοσίευση από dva_dev » 11 Ιουν 2007 02:27

Δες αυτό αρχικά, και αν δεν σε καλύπτει μας εξηγείς τι ακριβώς θέλες να κάνεις.

ASXETOSman
Δημοσιεύσεις: 4
Εγγραφή: 10 Ιουν 2007 12:21

Σε πίνακα εγγραφή υπολογισμού μέσου όρου. - pascal

Δημοσίευση από ASXETOSman » 12 Ιουν 2007 10:07

αυτό που μου λες είναι σε C++.εγώ θέλω σε Pascal

ASXETOSman
Δημοσιεύσεις: 4
Εγγραφή: 10 Ιουν 2007 12:21

Σε πίνακα εγγραφή υπολογισμού μέσου όρου. - pascal

Δημοσίευση από ASXETOSman » 12 Ιουν 2007 10:10

ΠΡΟΒΛΗΜΑ(διορθωμένο):
Σε πίνακα εγγραφή υπολογισμού μέσου όρου.

( Αναφέρεται σε εγγραφές τύπου record,
Type <onoma>= record)

(Σημείωση: Να έχουν και τμήμα δηλώσεων

Uses crt
Var...
begin)

mariosal
Honorary Member
Δημοσιεύσεις: 1473
Εγγραφή: 09 Νοέμ 2007 23:55

Σε πίνακα εγγραφή υπολογισμού μέσου όρου. - pascal

Δημοσίευση από mariosal » 20 Δεκ 2007 15:25

Να ένα πρόγραμμα που βρίσκει το μέσο όρο... Αποκλειστικά δικό μου.

PROGRAM MESOSOROS (INPUT, OUTPVT);
USES CRT;
VAR A,B,C,D,F,G,H,I,J,K,L,M:REAL;
Procedure Wait;
Begin
Write('');
Readln;
End;
BEGIN;
CLRSCR;
WRITELN ('ΔΩΣΕ ΤΟ ΒΑΘΜΟ ΤΗΣ ΟΡΘ. ΧΡ. ΑΓΩΓΗΣ');
READLN (A);
WRITELN ('ΔΩΣΕ ΤΟ ΒΑΘΜΟ ΤΗΣ ΕΛΛ. ΓΛΩΣΣΑΣ');
READLN (B);
WRITELN ('ΔΩΣΕ ΤΟ ΒΑΘΜΟ ΤΩΝ ΜΑΘΗΜΑΤΙΚΩΝ');
READLN (C);
WRITELN ('ΔΩΣΕ ΤΟ ΒΑΘΜΟ ΤΗΣ ΙΣΤΟΡΙΑΣ');
READLN (D);
WRITELN ('ΔΩΣΕ ΤΟ ΒΑΘΜΟ ΤΗΣ ΓΕΩΓΡΑΦΙΑΣ');
READLN (F);
WRITELN ('ΔΩΣΕ ΤΟ ΒΑΘΜΟ ΤΗΣ ΦΥΣΙΚΗΣ');
READLN (G);
WRITELN ('ΔΩΣΕ ΤΟ ΒΑΘΜΟ ΚΟΙΝ. ΑΓΩΓΗΣ');
READLN (H);
WRITELN ('ΔΩΣΕ ΤΟ ΒΑΘΜΟ ΤΩΝ ΤΕΧΝΙΚΩΝ');
READLN (I);
WRITELN ('ΔΩΣΕ ΤΟ ΒΑΘΜΟ ΤΗΣ ΜΟΥΣΙΚΗΣ');
READLN (J);
WRITELN ('ΔΩΣΕ ΤΟ ΒΑΘΜΟ ΤΗΣ ΓΥΜΝΑΣΤΙΚΗΣ');
READLN (K);
WRITELN ('ΔΩΣΕ ΤΟ ΒΑΘΜΟ ΤΩΝ ΑΓΓΛΙΚΩΝ');
READLN (L);
M:=(A+B+C+D+F+G+H+I+J+K+L)/11;
WRITELN ('Ο ΜΕΣΟΣ ΟΡΟΣ ΤΟΥ ΕΛΕΓΧΟΥ ΤΟΥ ΠΡΩΤΟΥ ΤΡΙΜΗΝΟΥ ΕΙΝΑΙ ',M);
Wait;
END.

Πιστεύω να σε βοήθησα.

Απάντηση

Επιστροφή στο “Delphi, Pascal”

Μέλη σε σύνδεση

Μέλη σε αυτήν τη Δ. Συζήτηση: Δεν υπάρχουν εγγεγραμμένα μέλη και 0 επισκέπτες