Bigsemite Package Studio Home               Software                About Us

Bigsemite enjoys exchanging ideals with colleagues. Most of my friend and some others bring questions on different course and Bigsemite uses the available resource to solve the problem.
If you've been battling with particular Module, subroutine, function or you are encontering problem on your software design, you too can submit your Task with some explanation so that we exchange ideals in other to move forward. Let's share knowledge with each other

The following are few of the simple questions asked by some people.

Some questions on Data Processing

Question:    Write a program to compute Average of numbers. -Adelabu Lukman, University of Ado-Ekiti

Solution

 QBASIC Input "How many Nos?", N S=0 For I=1 to N Input "Enter a No."; K Let S=S + K next I Let A = S/N Print "Average = ",A C- Language #include main() { int n,i,k,s,a; s=0; printf("How many Nos?"); scanf("%d",&n); for (i=1; i<=n; i++) { printf("\nEnter a no.?"); scanf("%d",&k); s+=k; } a=s/n; printf("\nAverage = %d", a); Return 0; } FORTRAN INTEGER N, I, K, S, A Read (*,*) N DO 10 I=1, N Read(*,*) K S=S + K 10 CONTINUE A= S/N Write(*,*) 'Average = ',A End

Using Visual solutions  (Visual Basic and Visual C++)

Enter The Number Here

Average is

Note: names of Textboxes are m_no and m_av respectively

Having the form designed as above, Then insert the following code on clicking each command button:

 Visual Basic Module Public s, n s=0: n=0 Sub Okbutton() s = s + m_no.text n= n + 1 m_no.text= 0 End sub Sub Onsolve() m_av.text =  s / n End sub Sub Onrefresh() s=0: n=0: m_no.text=0: m_av.text=0 End sub Visual C++ global int n, s; n=0; s=0; Okbutton() { UpdateData(True); s+=m_no; n++; m_no=0; UpdateData(False); } Onsolve(){ m_av = s /n; UpdateData(False); } Onrefresh(){ m_av=0: m_no=0: s=0: n=0; UpdateData(False);  }

Question:    Write a program to Calculate the Roots of a Quadratic Equation    - Adepoju Akeem, Federal Polytechnics Offa, Nigeria

Solution

X2 + X + = 0

1st Root is    2nd Root is
Textboxes are A, B, C, X1, X2 respectively.

Using Almighty Formula X = (-B+-SQR(B2 - 4AC))/(2A)

 VISUAL BASIC Sub onsolve() a1= A.text b1=B.text c1=C.text D=b1*b1 - 4 * a1 * c1 if D<0 Then 'Complex Root X1.text = -b1/(2*a1) X2.text = (-SQR(-D)) & "i" Elseif D=0 Then X1.text = b1/(2*a1) X2.text=X1.text Else X1.text=(-b1+SQR(D))/(2*a1) X2.text=(-b1-SQR(D))/(2*a1) End if End sub C-Language #include #include int main() { int a,b,c,x1,x2; printf("\nEnter the value of A, B, C"); scanf("%d %d %d", &a, &b, &c); d = b**2-4*a*c; if (d<0){ //Complex Root x1= -b/(2*a); x2= (-d)**0.5; } if (d=0) {//Equal roots x1= -b/(2*a); x2=x1;    } if (d>0) {//Normal Quadratic  x1= (-b + sqrt(d))/(2*a); x2= (-b-+ sqrt(d))/(2*a);  } printf("\n The 1st root is %d\n2nd root is %di",x1,x2); return 0; } FORTRAN INTEGER A, B,C, X1, X2 READ(*,*) A, B, C D= B*B -4*A*C IF (D .LT. 0) THEN X1= -B/(2*A) X2 = SQRT(-D) ELSE IF (D .EQ. 0) THEN X1 = -B/(2*A) X2 = X1 ELSE X1 = (-B+SQRT(D))/(2*A) X2 = (-B-SQRT(D))/(2*A) END IF WRITE(*,10) X1, X2 10 FORMAT('1ST ROOT IS ',I2,' 2ND ROOT IS ',I2) END

In case if you try any of the solution above and it doesn't work, do not shake, are you sure you did not make any syntax Error while typing the code?
Are you sure you are using the right compiler for the correct code? For example, Visual Basic coding may not work with QBasic Compiler/interpreter.

If you are free of all faults, then you can send your complain to bigsemite. Click below.

Meet with Bigsemite let's share knowledge with each other. Click below: