Ma`lumotlarni xotiraga muloqot usulida kiritish operatorlari mavzusini takrorlashga doir topshiriqlar.
Quyidagi dasturda a o'zgaruvchining «ozod»; «obod» qiymatlarini xotiraga qulay usulda kiritib natija oling.
Var a, b, g: string;
Begin
Write (`a ni qiymatini kiriting:`); readln(a);
b:= 'Bizdan '; g:= ' vatan qolsin!';
write(b, a, g); readln;
End.
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: '); readln (m);
a:= 'Mustaqillikning '; g:= ' yilligi bilan '; b:='tabriklaymiz!';
writeln(a); writeln(m-1991, g); write(b); readln;
End.
3. Agar jismga ta'sir etayotgan kuch F, olgan tezlanishi a bo'lsa, quyidagi qiymatlarda jismning massasini hisoblash dasturini kiritish operatoridan foydalanib tuzing (yo'llanma m=F/a) va natijalar oling.
a) F=15, a=55; b) F=55, a=15;
d) F=10, a=100; e) F=100, a=10;
Program 24/3;
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(`m=`,m); readln;
end.
4. a=19, b=2, d=1950 qiymatlarni xotiraga qulay usulda kiritib, quyidagi ifodalarning qiymatini hisoblash dasturini tuzing.
a) y = a + b2 + ad; b)
Program 24/4; Program 24/4;
Var a,b,d,y: integer; Var a,b,d: integer; t: real;
Begin Begin
Read(a,b,d); Read(a,b,d);
Y:=a+b*b+a*d; t:=sqrt(a+b)-exp((1/3)ln(d-a));
Write(`y=`,y); Write(`t=`,t);
End. End.
d) s = b cos a + sin e) n = nd2 + ab.
5. Tomonlari a, b, c 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=10; d) a=3, b=4, c=5; e) a=10, b=8, c=10;
Program 24/5;
Var a,b,c: integer; P,S: real;
Begin
Read(a,b,c);
P:=(a+b+c)/2;
S:=sqrt(p*(P-a)*(P-b)*(P-c));
Write(`uchburchak yuzi S=`,S);
End.
6. y=23x+l funksiyaning qiymatini x ning —5, —4, —3, —2, —1, 0, 1, 2, 3, 4, 5 qiymatlarini xotiraga qulay usulda kiritib, hisoblash dasturini tuzing va natijalar oling.
Program 24/6;
Var x,y: integer;
Begin
Write (` x ning qiymatini kiriting=`); Readln(x);
y:=23*x+1;
Write(`y=`,y);
End.
7. y= 2*x2 + 7x + 1963 funksiyaning qiymatini x ning —5, —4, —3, — 2, —1, 0, 1, 2, 3, 4, 5 qiymatlarini xotiraga qulay usulda kiritib hisoblash dasturini tuzing va natijalar oling.
|
