|
Siz informatika va axborot texnologiyalarini fani ta’lim tizimiga kirib kelishi va rivojlanishi tarixi haqida ma’lumot
|
| bet | 51/61 | | Sana | 02.02.2024 | | Hajmi | 313,96 Kb. | | #150561 |
Bog'liq Siz informatika va axborot texnologiyalarini fani ta’lim tizimig-fayllar.org (1)Yechim:
Quyidagicha Paskal dasturlash tili yordamida irratsional tenglamaning yechimi topish dasturi tuziladi:
2. Program irrasionaltenglama;
var x,a,b,c,D,X1,X2:real;
label 1,2,3;
Begin
Writeln(‘sqrt(x)=x-2 irrasional tenglama yechimlarini toping’);
Write ('c -ga 4 sonini kiriting='); Readln(c);
Write ('a-ga 1 sonini kiriting='); Readln(a);
Write ('b-ga -5 sonini kiriting='); Readln(b);
D:=sqr(b)-4*a*c;
If D>=0 Then goto 2 else goto 1;
1: Writeln('Tenglama yechimga ega emas');goto 3;
2: X1:=(-b+sqr(D))/(2*a);
X2=(-b-sqr(D))/(2*a);
Writeln('X1=',X1);
Writeln('X2=',X2);
Begin
If sqrt(x1)=x1-2 then writeln(x1, ‘-soni irrasional tenglama yechimi’)
else writeln(x1, ‘-soni irrasional tenglamaning chet ildizi’);
end;
Begin
If sqrt(x2)=x2-2 then writeln(x2, ‘-soni irrasional tenglama yechimi’)
else writeln(x2, ‘-soni irrasional tenglamaning chet ildizi’);
end;
3:end.
Izoh:
var x,a,b,c,D,X1,X2:real; - x,a,b,c,D,X1,X2-o’zgaruvchilarni haqiqiy sonlar to’plamiga tegishli ekanligini e’lon qilib olamiz;
label 1,2,3; - 1,2,3 – kerakli joyga o’tish uchun oldindan belgilarni e’lon qilib olamiz;
Begin
dasturning asosiy qismi
end.
Dasturning asosiy qismida masalaning yechimini topish yuzasidan to’liq dastur tuzilgan bo’lib, unda kerakli shartlar bajarilish va shartlar bajarilganda qilinishi kerak bo’lgan ishlar aniq ko’rsatilgan. Paskal dasturini yuklab unga tuzilgan dasturni kiritib, CTRL+F9 tugmalari baravar bosilsa, ekranda quyidagi savol hosil bo’ladi.
sqrt(x)=x-2 irrasional tenglama yechimlarini toping
c -ga 4 sonini kiriting= (4 sonini kiritib Enter tugmasi bosiladi)
|
|
Bosh sahifa
Aloqalar
Bosh sahifa
Siz informatika va axborot texnologiyalarini fani ta’lim tizimiga kirib kelishi va rivojlanishi tarixi haqida ma’lumot
|
