Algoritma ödev

[Serkn57]

Klavyeden girilen b tamsayısına göre a3 – a2 = b şartını sağlayan a değerlerini bulan
programı kodlayınız. (a değeri 0’dan 100’e kadar giden bir döngüdür, b sayısı kullanıcı
tarafından girilen bir tam sayıdır.)

şu örneğe yardımcı olurmusunuz.

Microsoft Visual Studio Program dilinde

 

[lothen]

Dim b As Integer
Dim x As Double
Dim tt As Double
Dim i As Double




Private Sub CommandButton1_Click()
b = Val(TextBox1.Text)
For x = 1 To 100
tt = x ^ 3 - x ^ 2
If b < tt Then
tt = x
Exit For
End If
Next
TextBox3.Text = x


For i = (x - 1) To x Step 0.001
tt = i ^ 3 - i ^ 2
If (tt < b * 1.001) And (tt > b * 0.999) Then
TextBox2.Text = i
Exit For
End If
Next


End Sub


Daha hassas ve hızlı çözümler için step değerleri ile oynayabilirsin. Senin sorundan ben bunu anladım, farklı ise ödevin yardımcı olmaya çalışırım.

 

[Buraktek]

Bu da C++ için

#include<stdio.h>
#include<conio.h>
#include<math.h>
main(){
int b,c;
printf("Sayinizi giriniz: ");
scanf("%d",&b);
for (float i=0;i<=100;i=i+0.001){
c=pow(i,3)-pow(i,2);
if(b==c){
printf("%f\n",i);}
}
getch();
}

 

[başakylm]

Dim b As Integer
Dim x As Double
Dim tt As Double
Dim i As Double




Private Sub CommandButton1_Click()
b = Val(TextBox1.Text)
For x = 1 To 100
tt = x ^ 3 - x ^ 2
If b < tt Then
tt = x
Exit For
End If
Next
TextBox3.Text = x


For i = (x - 1) To x Step 0.001
tt = i ^ 3 - i ^ 2
If (tt < b * 1.001) And (tt > b * 0.999) Then
TextBox2.Text = i
Exit For
End If
Next


End Sub


Daha hassas ve hızlı çözümler için step değerleri ile oynayabilirsin. Senin sorundan ben bunu anladım, farklı ise ödevin yardımcı olmaya çalışırım.