24- dars. Ma‟lumotlarni xotiraga muloqot usulida kiritish operatori mavzusini takrorlash
mavzusiga
M-l. Quyidagi dasturda a o‗zgaruvchining ―ozod‖; ―obod‖ qiymat- larini xotiraga qulay usulda kiritib
natija oling.
Var a, b, g: string;
Begin
b:= ‗Bizdan ‗; g:= I vatan qolsin! ‗; write(b, a, g); readln;
End.
Yechim. Begin dan keyin Write(‗a ni qiymatini kiriting: ‗); Readln(a); operatorlari yoziladi.
M-2. Quyidagi dasturdagi so‗roq belgisi o‗rniga joriy yilni m o‗zgaruvchi yordamida kiriting va
mustaqilligimiz bilan tabriklovchi natija oling.
Var a, b, g: string; m: word;
Begin write(‗Joriy yilni kiriting: ‗); ?;
a:= ‗Mustaqillikning g:= ‗ yilligi bilan ‗; b:=‘tabriк 1 aymiz! !; writeln(a); writeln(m-1991, g); write(b);
readln;
End.
Yechim. So‗roq belgisi o‗miga Readln(m); operatori yoziladi. Das- tumi ishlatish uchun |Ctrl|+[F9[
tugmachalari birgalikda bosiladi yoki RUN menyusidan Run buyrug‗ini tanlanadi. Ekranda ―Joriy yilni
kirit- ing: ‖
matni aks etganda joriy yil, masalan 2012, yoziladi va [ENTER| klavishi bosiladi.
M-3. Agar jismga ta‘sir etayotgan kuch F, olgan tezlanishi a boisa, quyidagi qiymatlarda jismni
massasini hisoblash dasturini kiri- -tish operatoridan foydalanib tuzing (yo‗llanma m=F/a) va natijalar
ol¬ing.
a) F=15, a=55; b) F=55, a-15; d) F=10, a=100; e) F=100, a=10; Yechim. Quyidagi dastur kompyuter
xotirasiga kiritilgach F va a o‗zgaruvchilar juftligi uchun dastur qayta ishlatiladi va natijalar olina- di.
Var F, a: integer; m: real;
Begin write(‗F kuch qiymatini kiriting: ‗); readln(F);
write(‗Tezlanish a ni qiymatini kiriting: ‗); readln(a); m:=F/a; write(‗ Jismning massasi m= m:0:2,);
readln;
End.
M-4. a=19, b~2, d=1950 qiymatlami xotiraga qulay usulda kiritib quyidagi ifodalaming qiymatini
hisoblash dasturini tuzing.
a)
y = a + b
2
+ad;
Topshiriq shartidagi barcha o‗zgaruvchilar va у o‗zgaruvchi qiy¬mati butun, shuning uchun integer
turidan foydalanamiz. var a, b, d, y: integer;
Begin Write(‗a= ‗); Readln(a); Write(‗b= ‗); ReadLn(b); Write(‗d= ‗);
ReadLn(d); y:=a+sqr(b)+a*d; Write(‗y= ‗, y);
End.
b)
t = Va + b - л/d-a ;
Topshiriq shartidagi barcha o‗zgaruvchilar butun va t o‗zgaruvchi qiymati ildiz qatnashganligi sababli
haqiqiy, a+b=l 9+2=21>0 va d- a=1950-19=1931>0 o‗rinU. var a, b, d: integer; t: real;
Begin Write(‗a= ‗); Readln(a); Write(‗b= ‗); ReadLn(b);
Write(‗d= ‗); ReadLn(d);
T=sqrt(a+b)-exp((l/3)*ln(d-a)); Write(‗t= \ t:0;2);
End.
.
d)
s = b cos a + sin d;
Topshiriq shartidagi barcha o‗zgaruvchilar butun va s o'zgaruvchi qiymati trigonometrik funksiyalar
qatnashganligi sababli haqiqiy. var a, b, d: integer; s: real;
Begin Write(‗a= ‗); Readln(a); Write(‗b= ‗); ReadLn(b);
Write(‗d= ‗); ReadLn(d); S:=b*cos(a)+sin(d); Write(‗s= s:0:2); End.
c)
n
= jid +ab.
Topshiriq shartidagi barcha o‗zgaruvchilar butun va n o‗zgaruvchi qiymati n soni qataashganligi sababli
haqiqiy.
var a, b, d: integer; n: real;
Begin Write(‗a= ‗); Readln(a); Write(‗b= ‗); ReadLn(b);
Write(‗d= ‗); ReadLn(d); n:=pi*sqr(d)+a*b; Write(‗n= ‗,n:0:2);
End. . . ,
.
M-5. Tomonlari a, b, с bo‗lgan uchburchakning yuzini hisoblash dasturini kiritish operatoridan
foydalanib tuzing va natijalar oling. a) a=5, b=7, c=4;
b) a=8, b=6, c=lO;
d)
a=3, b=4, c=5; e) a=10, b=8, c=10;
Yechim. Kiritish operatori deganda maTumotlami xotiraga mulo¬qot usulida kiritish, ya‘ni Read yoki
Readln operatorlaridan foydala¬nish, tushuniladi. Topshiriq shartidagi a, b, с o‗zgaravchilar butun va s
o‗zgaruvchi qiymati ildiz qatnashganligi sababli haqiqiy.
Vara, b, c: integer; p, §:real;
Begin Write(‗a ni kiriting= ‗); Readln(a); Write(‗b ni kiriting= ‗); Readln(b); Write(‗c ni kiriting= ‗);
Readln(c); p:=(a+b+c)/2; s:=sqrt(p*(p-a)*(p-b)*(p-c)); 1 Write(‗Uchburchk yuzi s= s:0:3); readln;
End.
M-6. y==23-x+l funksiyaning qiymatini x ning -5, ~4, -3, —2, -1, 0, 1, 2, 3, 4, 5 qiymatlanni xotiraga
qulay usulda kiritib hisoblash dasiu- rini tuzing va natijalar oling.
Yechim. MaTumotlami xotiraga kiritishni qulay usuli muloqot usulidir, ya‘ni Read yoki Readln
operatorlaridan foydalanishdir. X o‗zgaruvchining berilgan har bir qiymati uchun
dastur qayta ishlatiladi
va natijalar olinadi.
Var x, у: integer;
Begin Write(‗x ning qiymatini kiriting= ‗); ReadLn(x);
y:=23:*!x+l; write(‗x= x, ‗-da ‗, ‗yf5 ‗,y ); readln; end.
M-7. y = 21-x2 +7 • x + 1963 funksiyaning qiymatini x ning -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5 qiymatlarini
xotiraga qulay usulda kiritib hi¬soblash dasturini tuzing va natijalar oling.
Yechim. Avvalgi topshiriq dasturida y:=23*x+l; o‗miga y:= 21 *sqr(x)+7*x+1963; yoziladi.
Do'stlaringiz bilan baham: 
