Algoritma ödev

Serkn57 · 3 Ara 2013

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 · 3 Ara 2013

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 · 4 Ara 2013

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 · 3 Nis 2020

lothen' Alıntı:
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.

Algoritma ödev

Serkn57

Üye

lothen

Üye

Buraktek

Üye

başakylm

Üye

Benzer Konular

Algoritma ödev

Serkn57

Üye

lothen

Üye

Buraktek

Üye

başakylm

Üye

Benzer Konular

Privacy & Transparency

Privacy & Transparency