x0=b boshlangich ildiz bo’lganda esa x=а kuzgalmas nuqta deb olinadi va ildiz
formula bilan hisoblanadi.
Amaliy qism
Tenglamaning ildizini urinmalar usulida taqribiy hisoblash algoritmining blok–sxemasini va paskal tilidagi dasturini tuzamiz.
Program Nyuton(input,output);
Uses crt;
label 2
var x0, x, y, fx, f1x, eps :real;
n: integer;
begin
clrscr;
textcolor(15);
writeln(‘Nyuton usuli’); writeln;
write(‘boshlang’ich echim x0=’);
readln(x0); writeln;
write(‘taqribiy echim aniqligi eps=’);
readln(eps); writeln;
n:=0; x:=x0;
2: fx:=x*x-x-1;
f1x:=2*x-1;
y:=fx/f1x;
n:=n+1;
x:=x-y; textcolor(13);
if abs(y)>eps then goto 2;
writeln(‘yaqinlashishlar soni n=’ ,n);
writeln(‘taqribiy ildiz x=’ ,x:3:4);
end.
Ushbu dasturni kompyuterga kiritib natijalar olinganda x2-x-1=0 tenglamaning x0=b=2,5 boshlangich nuqtadagi va =0,0001 aniqlikdagi ildizi х=1,6180 ekanligiga eshonch hosil qilish mumkin. Buni esa berilgan chizmadan ham ko’rish mumkin.
Topshiriqlar:
1. Ifodani qiymatini chiqaruvchi dasturini tuzing e1, e2, …, e20.
2. Quidagi sonlarni chiqaruvchi algoritmini tuzing: 1.1, 2.1, …, 21.1.
3. Quidagi sonlarni chiqaruvchi algoritmini tuzing: 2.1, 2.2, …, 2,9.
4. Birinchi 25ta juft sonlarni chiqaruvchi algoritmni tuzing.
5. Birinchi 15ta toq sonlarni chiqaruvchi algoritmni tuzing.
6. Ifodalarni qiymatini xisoblovchi dasturini tuzing: …,
7. Qiymatini chiqaruvchi dastur tuzing 2, 3, …, 10 kg olma (1 kg olmaning narxi ixtiyoriy kiritiladi).
8. Funktsiyalar jadvalini tuzish algoritmini yarating [a;b] oralig’ida. a, b qiymatlar o’garishi mumkin.
9. Funktsiyalar jadvalini tuzish algoritmini yarating y = ex − 1 [a;b] oralig’ida. a, b qiymatlar o’garishi mumkin.
10. Funktsiyalar jadvalini tuzish algoritmini yarating [a;b] oralig’ida. a, b qiymatlar o’garishi mumkin.
Dastur kodi:
kg = int(input("[1,10] oralig'ida son kiriting: "))
Narx = int(input("1 kg olma narxini kiriting: "))
Summa = Narx * kg
print("Natija: ", Summa)
Dostları ilə paylaş: |