Θεματα εξετασεων

[JimGer]

άρα όντως δεν χρειάζεσαι προγραμματισμό....

[A_panM]

δεν χρειαζομαι αλλα το μαθημα υπαρχει κ πρεπει να το περασω....θα με βοηθησει κανενας?

[virxen75]

θέμα 1ο

===========================

χ=val("0")=0

χ=val("3")=3

χ=val("5.5")=5.5

χ=val("-4")=-4

x=val("καλημέρα")=0

χ=val("καλημέρα")=0

 

άρα για τιμές "0","καλημέρα","καλημέρα" θα έχουμε το ίδιο αποτέλεσμα.

=============================================================

πάμε στις πράξεις για "0"

 

χ=val("0")=0

i=12-> 12 mod 5=2 < 3 =>x=x+5=0+5= 5 ,x=x+3=5+3=8

i=11-> 11 mod 5=1 < 3 =>x=x+5=8+5= 13 ,x=x+3=13+3=16

i=10-> 10 mod 5=0 < 3 =>x=x+5=16+5= 21 ,x=x+3=21+3=24

i=9-> 9 mod 5=4 > 3 =>x=x-1=24-1= 23 ,x=x+3=23+3=26

i=8-> 8 mod 5=3 = 3 =>x=x-1=26-1= 25 ,x=x+3=25+3=28

i=7-> 7 mod 5=2 < 3 =>x=x+5=28+5=33 ,x=x+3=33+3=36

i=6-> 6 mod 5=1 < 3 =>x=x+5=36+5=41 ,x=x+3=41+3=44

i=5-> 5 mod 5=0 < 3 =>x=x+5=44+5=49 ,x=x+3=49+3=52

άρα για "0" έχω χ=52

 

ομοίως για "3" -->χ=55

για "5.5" -->χ=57.5

για "-4" -->χ=48

 

σημείωση

========

το "5.5" βέβαια χρειάζεται διευκρίνηση.

τα παραπάνω ισχύουν αν το χ έχει οριστεί σαν πραγματικός αριθμός.

Αν έχει οριστεί σαν ακέραιος τότε τι αλλάζει:

χ=val("5.5")=6 και τελικά χ=58

[A_panM]

Σε ευχαριστω πολυ φιλε μ για το πρωτο θεμα!παμε για τα υπολοιπα...

[virxen75]

2ο

==========================

souma = 0 '<---ο μηδενισμός δεν πρέπει να γίνεται μέσα στην for για να έχουμε

την έννοια του αθροίσματος ( Σ)

For m = 1 To 10

parag = 1

For k = 1 To m

parag = parag * k

Next k

souma = souma + (m - 1) ^ 2 / parag 'εδώ είχε γραφεί λάθος 1-m και δεν είχε υψωθεί στο

τετράγωνο

Next m

 

---------- Προσθήκη στις 02:19 ---------- Προηγούμενο μήνυμα στις 02:17 ----------

 

απάντηση στο 3 θα πάρεις όταν μου στείλεις εδώ την φόρμα που σου ζητάει η άσκηση

σε ένα αρχείο .zip

[A_panM]

Εδω ειναι η φορμα!

ΘΕΜΑ 3.zip

[virxen75]

>
Private Sub Command1_Click()
X1 = Val(Text1.Text)
X2 = Val(Text2.Text)
If (X1 > X2) Then
temp = X1
X1 = X2
X2 = temp
End If
ginomeno = 1
For i = X1 To X2
If (i <> 0) Then ginomeno = ginomeno * i
Next
MsgBox Str(ginomeno), , "ΓΙΝΟΜΕΝΟ " + Str(X1) + " έως " + Str(X2)
End Sub

[vasilisga]

πω πω παρεχει και τετοιες υπηρεσιες το φορουμ??? μπραβο ρε παιδια

κανενας λογιστης υπαρχει να βοηθησει και εμας??? :lol:

[A_panM]

Φιλε virxen75 δεν εχω λογια....ΟΤΙ ΚΑΙ ΝΑ ΠΩ ΕΙΝΑΙ ΛΙΓΟ!

Σ ΕΥΧΑΡΙΣΤΩ ΠΟΛΥ!!!!

 

ας κλειδωθει!