Program Matematica

qwertyuiop123467890, on 04 octombrie 2015 - 10:51, said:

Salut! Am facut acum ceva timp (Acum 2 saptamani) un program care ajuta profesori, dar si elevi, etc.

acest program calculeaza media unu-i elev, dar are incorporat si un mic algoritm care e in beta momentat si nu isi are inca nici un rost, dar ii voi da eu unul .

Module Module1

Sub main()
	 Dim what As String
	 Console.WriteLine("Scrie ce algoritm doresti sa folosesti!")
	 Console.WriteLine("Unul dintre algoritme este: alg1 = algoritm calculare medii!")
	 Console.WriteLine("Altul este: alg2 = algoritm problema matematica!")
	 'Console.WriteLine("Scrie changelog sau log pentru a vedea schimbarile fiecarei versiuni!" -> NEADAUGAT
	 Console.Write("Deci, ce algoritm doresti?: ")
	 what = Console.ReadLine
	 If what = "alg1" Or what = "Alg1" Or what = "Medi" Or what = "Medii" Or what = "^alg1" Or what = "^Alg1" Then
		 Console.WriteLine("Ai ales mediile!")
		 alg_medii()
	 ElseIf what = "alg2" Or what = "Alg2" Or what = "^alg2" Or what = "^Alg2" Then
		 Console.WriteLine("Ai ales problema, atentie e in beta!")
		 alg_prbl()
	 Else
		 Console.WriteLine("Algoritmul introdus nu a fost recunoscut! Te rugam sa il introduci din nou!")
		 main()
	 End If
End Sub
Sub alg_prbl()
	 Dim val1 As Double
	 Dim val2 As Double
	 Dim r1 As Double
	 Dim r2 As Double
	 Dim r3 As Double
	 Dim r4 As Double
	 Dim max As Double
	 Dim txt As String
	 Dim problem As Boolean = False
	 Dim MyMin As Integer = 1, MyMax As Integer = 2, nr As Integer
	 Dim Generator As System.Random = New System.Random()
	 Console.Write("Introdu valoarea #1: ")
	 val1 = Console.ReadLine
	 Console.Write("Introdu valoarea #2: ")
	 val2 = Console.ReadLine
	 Console.Write("Introdu valoarea #3: ")
	 max = Console.ReadLine
	 r1 = val1 + val2
	 r2 = max / r1
	 r3 = r2 * val1
	 r4 = r2 * val2
	 Console.WriteLine("Rezolvarea este: #1 = " & r3 & " / #2 = " & r4)
	 Console.Write("Doresti un text?: ")
	 txt = Console.ReadLine
	 If txt = "da" Or txt = "Da" Then
		 nr = Generator.Next(MyMin, MyMax + 1)
		 If nr = 1 Then
			 Console.WriteLine("Daca Ana mananca " & val1 & " mere, iar Dan " & val2 & " mere, cate mere manca fiecare, stiind ca in total sunt " & max)
			 Dim alt As String
			 Console.Write("Doresti alt text?: ")
			 alt = Console.ReadLine
			 If alt = "da" Or alt = "Da" Then
				 nr = Generator.Next(MyMin, MyMax + 1)
				 If nr = 1 Then
					 Console.WriteLine("Daca Ana rezolva " & val1 & " probleme, iar Dan " & val2 & " probleme, cate probleme rezolva fiecare, stiind ca in total sunt " & max)
				 Else
					 Console.WriteLine("Nu mai sunt alte probleme!")
					 Main()
				 End If
			 End If
		 ElseIf nr = 2 Then
			 Console.WriteLine("Daca Ana rezolva " & val1 & " probleme, iar Dan " & val2 & " probleme, cate probleme rezolva fiecare, stiind ca in total sunt " & max)
			 Dim alt As String
			 Console.Write("Doresti alt text?: ")
			 alt = Console.ReadLine
			 If alt = "da" Or alt = "Da" Then
				 nr = Generator.Next(MyMin, MyMax + 1)
				 If nr = 1 Then
					 Console.WriteLine("Daca Ana mananca " & val1 & " mere, iar Dan " & val2 & " mere, cate mere manca fiecare, stiind ca in total sunt " & max)
				 Else
					 Console.WriteLine("Nu mai sunt alte probleme!")
					 Main()
				 End If
			 End If
		 Else
			 Console.WriteLine("Crash")
			 Main()
		 End If
	 End If
	 Console.ReadLine()
End Sub
Sub alg_medii()
	 Dim rsp As String
	 Dim scoala As String, profesor As String, materie As String
	 Dim elevi As Integer = 0
	 Dim note As Integer = 0
	 Dim nota As Double = 0
	 Dim are_teza As Boolean = False
	 'Dim scoala As String, profesor As String, materie As String, are_teza As Boolean, elevi As Integer, note As Integer, nota As Double
	 Console.Write("La ce scoala predai?: ")
	 scoala = Console.ReadLine
	 Console.Write("Cum te numesti?: ")
	 profesor = Console.ReadLine
	 Console.Write("Ce materie predai?: ")
	 materie = Console.ReadLine
	 Console.Write("Calculezi impreuna cu teza? (da/nu): ")
	 rsp = Console.ReadLine
	 If rsp = "da" Or rsp = "Da" Then
		 are_teza = True
	 Else
		 are_teza = False
	 End If
	 Console.Write("Cati elevi sunt in clasa?: ")
	 elevi = Console.ReadLine
	
	 For nmx = 1 To elevi
		 Dim x As Double
		 Dim i As Integer
		 Dim numere As Integer
		 Dim teza As Integer = 0
		 Dim r1 As Double = 0
		 Dim r2 As Double = 0
		 Console.Write("Cate note are elevul " & nmx & " ?: ")
		 numere = Console.ReadLine
		 Dim rezultat As Integer = 0
		 If numere > 10 Or numere < 2 Then
			 Console.WriteLine("Numarul " & numere & " este prea mare sau prea mic!")
			 nmx -= 1
		 Else
			 For i = 1 To numere
				 Console.Write("Nota " & i & " este: ")
				 x = Console.ReadLine
				 If x >= 11 Or x <= 0 Then
					 Console.WriteLine("Numarul " & x & " este mult prea mare sau mult prea mic.")
					 i -= 1
				 Else
					 rezultat += x
				 End If
			 Next
			 If are_teza = True Then
				 Dim medie As Double = 0
				 medie = rezultat / numere
				 Console.Write("Ce nota are in teza elevul #" & nmx & ": ")
				 teza = Console.ReadLine
				 r1 = teza * 3
				 r2 = r1 + medie
				 Dim r3 As Double
				 r3 = r2 / 4
				 Console.WriteLine("Media elevului la " & materie & " este: " & r3)
			 ElseIf are_teza = False Then
				 Dim medie As Double = 0
				 medie = rezultat / numere
				 Console.WriteLine("Media elevului la " & materie & " este: " & medie)
			 End If
		 End If
	 Next
	 Dim rsp1 As String
	 Dim crd As String
	 Console.WriteLine("Lucrezi pentru scoala " & scoala)
	 Console.WriteLine("Numele tau este " & profesor)
	 Console.Write("Doresti sa vezi creditele? (Da/Nu): ")
	 crd = Console.ReadLine
	 If crd = "da" Or crd = "Da" Or crd = "Yes" Then
		 Console.WriteLine("Program Creat si configurat de qwertyuiop123467890 A.K.A uNknow123!")
		 Console.Write("Doresti sa incepi algoritmul de la inceput?: ")
		 rsp1 = Console.ReadLine
		 If rsp1 = "Da" Or rsp1 = "da" Or rsp1 = "Yes" Then
			 main()
		 Else
			 Console.WriteLine("Apasa enter pentru a iesi!")
		 End If
	 Else
		 Console.Write("Doresti sa incepi algoritmul de la inceput?: ")
		 rsp1 = Console.ReadLine
		 If rsp1 = "Da" Or rsp1 = "da" Or rsp1 = "Yes" Then
			 main()
		 Else
			 Console.WriteLine("Apasa enter pentru a iesi!")
		 End If
	 End If
	 Console.ReadLine()
End Sub


End Module

Edited by qwertyuiop123467890, 04 October 2015 - 11:38.

jegmihai, on 04 octombrie 2015 - 12:06, said:

jegmihai, on 04 octombrie 2015 - 12:17, said:

For nmx = 1 To elevi
				 Dim x As Double
				 Dim i As Integer
				 Dim numere As Integer
				 Dim teza As Integer = 0
				 Dim r1 As Double = 0
				 Dim r2 As Double = 0
				 Console.Write("Cate note are elevul " & nmx & " ?: ")
				 numere = Console.ReadLine
				 Dim rezultat As Integer = 0
				 If numere > 10 Or numere < 2 Then
						 Console.WriteLine("Numarul " & numere & " este prea mare sau prea mic!")
						 nmx -= 1
				 Else
						 For i = 1 To numere
								 Console.Write("Nota " & i & " este: ")
								 x = Console.ReadLine
								 If x >= 11 Or x <= 0 Then
										 Console.WriteLine("Numarul " & x & " este mult prea mare sau mult prea mic.")
										 i -= 1
								 Else
										 rezultat += x
								 End If
						 Next
						 If are_teza = True Then
								 Dim medie As Double = 0
								 medie = rezultat / numere
								 Console.Write("Ce nota are in teza elevul #" & nmx & ": ")
								 teza = Console.ReadLine
								 r1 = teza * 3
								 r2 = r1 + medie
								 Dim r3 As Double
								 r3 = r2 / 4
								 Console.WriteLine("Media elevului la " & materie & " este: " & r3)
						 ElseIf are_teza = False Then
								 Dim medie As Double = 0
								 medie = rezultat / numere
								 Console.WriteLine("Media elevului la " & materie & " este: " & medie)
						 End If
				 End If
		 Next

jegmihai, on 04 octombrie 2015 - 12:29, said:

qwertyuiop123467890, on 04 octombrie 2015 - 10:51, said:

qwertyuiop123467890, on 04 octombrie 2015 - 11:36, said:

qwertyuiop123467890, on 04 octombrie 2015 - 12:16, said:

_Smiley_, on 04 octombrie 2015 - 12:33, said:

neur0, on 04 octombrie 2015 - 12:33, said:

Edited by qwertyuiop123467890, 04 October 2015 - 12:46.

qwertyuiop123467890, on 04 octombrie 2015 - 12:46, said:

Edited by MarianG, 04 October 2015 - 13:16.

MarianG, on 04 octombrie 2015 - 13:15, said:

qwertyuiop123467890, on 04 octombrie 2015 - 12:46, said: