Category Archives: Dasturlash tillari

9-sinf Informatika 44-dars

44-dars.

1. Hafta kunlarining nomlarini kiritib, ularni “HAFTA.TXT” fayida saqlab qo’yadigan dastur tuzing.

var hafta:text; kun:string; i:integer;

begin

assign(hafta,’hafta.txt’); rewrite(hafta);

for i:=1 to 7 do begin

write(‘haftaning ‘,i,’-kunini kiriting:’); readln(kun);

writeln(hafta,kun); end;

close(hafta); end.

2. 1-mashqdagi “HAFTA.TXT” faylini ochib, davomidan hafta kunlarining rus tilidagi nomalarini yozuvchi dastur tuzing.

var hafta:text; kun:string; i:integer;

begin

assign(hafta,’hafta.txt’); append(hafta);

writeln(‘Rus tilida yozing’);

for i:=1to 7 do begin

write(‘Haftaning’,i,’-kunini kiriting:’); readln(kun);

writeln(hafta,kun); end;

close(hafta); end.

3. “HAFTA.TXT” faylida berilgan hafta kunlarining nomlarini ekranga chiqaruvchi dastur tuzing.

uses crt;

var hafta:text; kun:string; i:integer;

begin clrscr;

assign(hafta,’hafta.txt’); reset(hafta);

while not(eof(hafta)) do begin

readln(hafta,kun); writeln(kun); end; close(hafta); readln; end.

 

9-sinf Informatika 43-dars

43-dars.

1. O’zbekiston bayrog’i rasmini chizuvchi dastur tuzing

uses graph;

var gd,gm:integer;

begin gd:=0; initgraph(gd,gm,»);

setfillstyle(1,1);

bar(1,1,getmaxX,150);

ellipse(75,75,90,270,50,50);

ellipse(75,75,90,270,30,50); {yarim oy}

outtextxy(150,125,’*’); outtextxy(120,125,’*’); outtextxy(180,125,’*’);

outtextxy(210,125,’*’); outtextxy(240,125,’*’); outtextxy(150,75,’*’);

outtextxy(180,75,’*’); outtextxy(210,75,’*’); outtextxy(240,75,’*’);

outtextxy(180,25,’*’); outtextxy(210,25,’*’);outtextxy(240,25,’*’);

setfillstyle(1,4); bar(1,150, getmaxX,160);

setfillstyle(1,15); bar(1,160, getmaxX, 310);

setfillstyle(1,4); bar(1,310, getmaxX,320);

setfillstyle(1,2); bar(1,320, getmaxX,470);

readln;

closegraph; end.

2. Ekranning to’rtta burchagida eni 60 va bo’yi 40 ga teng qizil rangli to’rtburchaklar chizuvchi dastur tuzing.

uses graph;

var gd,gm:integer;

begin gd:=0; initgraph(gd,gm,»);

setfillstyle(1,4); bar(1,1,60,40);

bar(getmaxx-60,40,getmaxx,1);

bar(60,getmaxy-40,1, getmaxy);

bar(getmaxx-60, getmaxy-40,getmaxx, getmaxy);

readln;closegraph;end.

3. Ekranni teng to’rt bo’lakka bo’lib, ularni mos ravishda qizil, sariq, yashil va ko’k ranglarga bo’yovchi dastur tuzing.

uses graph;

var gd,gm:integer;

begin gd:=0; initgraph(gd,gm,»);

setfillstyle(1,4); bar(1,1,trunc(getmaxx/2), trunc(getmaxy/2));

setfillstyle(1,14); bar(trunc(getmaxx/2), trunc(getmaxy/2),1,getmaxy);

setfillstyle(1,2); bar(trunc(getmaxx/2), trunc(getmaxy/2),getmaxx,1);

setfillstyle(1,1); bar(trunc(getmaxx/2), trunc(getmaxy/2),getmaxx,getmaxy);

readln; closegraph; end.

4. Ekranning o’rtasida radiusi 100 ga teng bo’lgan sariq rangli doira chizuvchi dastur tuzing.

uses graph;

var gd,gm:integer;

ox,oy:integer;

begin gd:=0; initgraph(gd,gm,»);

ox:=trunc(getmaxx/2); oy:=trunc(getmaxy/2);

setcolor(14);

setfillstyle(1,14);

fillellipse(ox,oy,100,100);

readln; closegraph; end.

5. Oy va yulduzlar tasvirlangan kechki osmon manzarasini chizuvchi dastur tuzing.

uses graph;

var gd,gm,i,x,y,k:integer;

begin randomize;

gd:=0; initgraph(gd,gm,»);

ellipse(75,75,90,270,50,50);

ellipse(75,75,90,270,30,50);

repeat

for i:=1 to 15 do

begin x:=25*k*round(random(15));

y:=20*k*round(random(15));

outtextxy(x,y,’*’);

end; k:=k+1;

until k>10; readln; closegraph; end.

6. Dengiz uzra nur taratayotgan Quyosh rasmini chizuvchi dastur tuzing.

uses graph;

var gd,gm,i:integer;

begin

gd:=0; initgraph(gd,gm,»);

setfillstyle(1,14);

fillellipse(trunc(getmaxx/2), getmaxy-150, 150,150);

setcolor(14);

while i<getmaxx do begin line(i,1,trunc(getmaxx/2), getmaxy-150);

i:=i+10; end;

i:=0;

while i<getmaxy do begin line(1,i,trunc(getmaxx/2), getmaxy-150);

line(getmaxx,i,trunc(getmaxx/2), getmaxy-150); i:=i+10; end;

setfillstyle(1,1);

bar(1,getmaxy-150,getmaxx,getmaxy);

readln; closegraph; end.

7. Ichi siyrak qizil nuqtalar bilan to’ldirilgan muntazam oltiburchak chizuvchi dastur tuzing.

uses graph;

var gd,gm:integer; km:array[1..6,1..2] of integer;

begin gd:=0; initgraph(gd,gm,»);

setfillstyle(10,4);

km[1,1]:=1; km[1,2]:=50;

km[2,1]:=50; km[2,2]:=1;

km[3,1]:=125; km[3,2]:=1;

km[4,1]:=175; km[4,2]:=50;

km[5,1]:=125; km[5,2]:=100;

km[6,1]:=50;  km[6,2]:=100;

fillpoly(6,km);

readln; closegraph;

end.

8. 12 xil bo’yash usulini namoyish etuvchi 40×40 o’lchamli 12 ta kvadrat chizuvchi dastur tuzing.

uses graph;

var i,gd,gm,x1,x2,y1,y2: integer;

begin gd:=0;

initgraph(gd,gm,»);

x1:=1; x2:=40; y1:=1; y2:=40;

for i:=1 to 12 do

begin setfillstyle(i,i); bar(x1,y1,x2,y2); x1:=x1+50; x2:=x2+50;

end;

readln; closegraph;

end.

9. Svetafor chiroqlarini ketma-ket yondiradigan svetafor rasmini chizuvchi dastur tuzing.

uses graph,crt;

var gd,gm:integer;

begin

gd:=0; initgraph(gd,gm,»);

rectangle(1,1,100,300);

repeat  setcolor(0); setfillstyle(1,0); fillellipse(50,250,30,30);

setcolor(4); setfillstyle(1,4); fillellipse(50,50,30,30);

delay(65000); setcolor(0); setfillstyle(1,0); fillellipse(50,50,30,30);

setcolor(14); setfillstyle(1,14); fillellipse(50,150,30,30);

delay(65000); setcolor(0); setfillstyle(1,0); fillellipse(50,150,30,30);

setcolor(2); setfillstyle(1,2); fillellipse(50,250,30,30);

delay(65000);

until keypressed;

readln; closegraph; end.

 

9-sinf Informatika 42-dars

1. Ekranning o’rtasidan o’tuvchi gorizontal va vertical chiziq chizuvchi dastur tuzing.

uses graph;

var gd,gm:integer;

begin

gd:=0; initgraph(gd,gm,»);

setcolor(14);

line(1, trunc(getmaxY/2),getmaxX, trunc(getmaxy/2));

setcolor(4);

line(trunc(getmaxX/2),1,trunc(getmaxX/2),getmaxY);

readln; closegraph; end.

2. Ekranning o’rtasida radiusi 100 dan kichik sariq rangli 4 ta aylana chizuvchi dastur tuzing.

uses graph;

var gd,gm:integer; ox,oy:integer; x,y,r:integer;

begin

gd:=0; initgraph(gd,gm,»);

ox:=trunc(getmaxX/2);

oy:=trunc(getmaxY/2);

r:=25;

setcolor(14);

repeat circle(ox,oy,r); r:=r+20;

until r>100; readln; closegraph; end.

3. Ekranni sariq gorizontal chiziqlar bilan to’ldiring.

uses graph;

var gd,gm:integer; y:integer;

begin

gd:=0; initgraph(gd,gm,»);

setcolor(14);

while y<getmaxY do begin

line(1, y,getmaxX,y);

y:=y+2;{Chiziqlar orasi} end;

readln; closegraph; end.

4. Svetafor rasmini chizuvchi dastur tuzing.

uses graph;

var gd,gm:integer;

begin

gd:=0; initgraph(gd,gm,»);

rectangle(1,1,200,getmaxY);

setfillstyle(1,red); setcolor(4);

fillellipse(100,trunc(getmaxY/6),trunc(getmaxY/6),trunc(getmaxY/6));

setfillstyle(1,14); setcolor(14);

fillellipse(100,3*trunc(getmaxY/6),trunc(getmaxY/6),trunc(getmaxY/6));

setfillstyle(1,2); setcolor(2);

fillellipse(100,5*trunc(getmaxY/6),trunc(getmaxY/6),trunc(getmaxY/6));

readln; closegraph; end.

 

9-sinf Informatika 41-dars

41-dars.

1. Tomonlari rangi turlicha bo’lgan to’g’ri to’rtburchak chizish protsedurasi dasturini tuzing

uses graph;     var gd,gm,x,y:integer;

begin

gd:=0; initgraph(gd,gm,»); for x:=1 to 300 do begin putpixel(x,1,1);

putpixel(x,200,2); end;

for y:=1 to 200 do begin putpixel(300,y,15); putpixel(1,y,4); end;

readln; closegraph; end.

2. Grafik koordinatasi bilan berilgan nuqta uchlarining grafik koordinalari orqali orqali berilgan to’g’ri chiziqqa tegishli yoki tegishli emasligini aniqlovchi dastur tuzing. (Yo’llanma: Nuqtaning rangi to’g’ri chiziqning rangiga tengligini aniqlash uchun GetPixel funksiyasidan foydalaning).

uses graph;  var gd,gm:integer;

x0,x1,x2,i,y0,y1,y2,rang,x,y:integer;

begin  gd:=0;  initgraph(gd,gm,»);

writeln(‘Nuqtaning koordinatasi:’);

write(‘x=’); readln(x0);

write(‘y=’); readln(y0);

Writeln(‘To`g`ri chiziq koordinatasi:’);

writeln(‘Boshlang`ich nuqtasi:’);

write(‘x1=’); readln(x1);   write(‘y1=’); readln(y1);

writeln(‘oxirgi nuqtasi:’);

write(‘x2=’); readln(x2);  write(‘y2=’); readln(y2);

gd:=0; initgraph(gd,gm,»);

for x:=x1 to x2 do begin y:=trunc(y2*x/x2); putpixel(x,y,4); end;

rang:=getpixel(x0,y0);

if rang=4 then write(‘Tegishli’) else write(‘Tegishli emas’);

readln; closegraph; end.

3. Turli rangda 15 ta parallel kesmalar chizuvchi dastur tuzing. (Yo’llanma: Kesma koordinatalarini va rangni oshirish uchun takrorlash operatoridan foydalaning).

uses graph;

var gd,gm,x,y:integer;

begin

gd:=0; initgraph(gd,gm,»);

x:=1;

while x<150 do begin x:=x+10;

for y:=1 to 200 do

putpixel(x,y,x); end; readln; closegraph; end.

 

4. Random funksiyasi yordamida «yulduzli osmon» manzarasini hosil qilish dasturini tuzing.

program osmon;

uses graph; var gd,gm,x,y,k,i: integer;

begin   gd:=0;     initgraph(gd,gm,»); randomize;

repeat

for i:=1 to 15 do

begin

x:=25*k*round(random(15));

y:=20*k*round(random(15));

putpixel(x,y,i);

end;

k:=k+1;

until k>10;

readln;     closegraph;

end.

5. Ekran markazidan o’ruvchi koordinalar o’qi, mos joyda koordinatalar o’qi nomini yozuvchi va xє[-7,7] oraliqda  funksiyaning grafigini chizuvchi dastur tuzing.

uses graph,crt;

var gd,gm:integer;

x1,y1,ox,oy:integer; x,y:real;

begin

gd:=0; initgraph(gd,gm,»);

ox:=trunc(getmaxX/2);

oy:=trunc(getmaxY/2);

for x1:=1 to getmaxX do putpixel(x1,oy,1);

for y1:=1 to getmaxY do putpixel(ox,y1,1);

x:=-7;

while x<=7 do begin y:=abs(x);

putpixel(trunc(10*x+ox), trunc(-5*y+oy), red);

x:=x+0.01; end;

readln; closegraph; end.

6. Ichma-ich joylashgan 7 ta aylana chizuvchi dastur tuzing. (Yo’llanma: radiusni oshirish uchun takrorlash operatoridan foydalaning).

uses graph;

var gd,gm:integer; r,n,ox,oy,x,y:integer; alfa:real;

begin

gd:=0; initgraph(gd,gm,»);

write(‘R=’); readln(r);

ox:=trunc(getmaxx/2); oy:=trunc(getmaxy/2);

repeat alfa:=0;

while alfa<=2*pi do begin

x:=ox+trunc(r*cos(alfa));

y:=oy+trunc(r*sin(alfa));

putpixel(x,y,14); alfa:=alfa+0.01; end;

r:=r+10; n:=n+1;

until n=7;

readln; closegraph; end.

7. 7 marta o’chib yonadigan aylana chizuvchi dastur tuzing. (Yo’llanma: Aylana chizish va jarayonni sekinlashtirish uchun bo’sh takrorlash bajaring, avvalgi aylanani fon rangida chizing va jarayonni sekinlashtirish uchun bo’sh takrorlash bajaring, takrorlashni 7 marta bajaring.

uses graph,crt;

var gd,gm:integer; i,ox,oy,x,y:integer; r,alfa:real;

begin gd:=0; initgraph(gd,gm,»);

ox:=trunc(getmaxx/2); oy:=trunc(getmaxy/2);

write(‘R=’); readln(r);

repeat alfa:=0;

while alfa<=2*pi do begin x:=ox+trunc(R*cos(alfa));

y:=oy+trunc(R*sin(alfa)); putpixel(x,y,0); alfa:=alfa+0.01; end;

delay(65000); alfa:=0;

while alfa<=2*pi do begin x:=ox+trunc(R*cos(alfa));

y:=oy+trunc(R*sin(alfa)); putpixel(x,y,15); alfa:=alfa+0.01; end;

delay(65000); i:=i+1;

until i=8; readln;

closegraph; end.

 

9-sinf Informatika 40-dars

40-dars

1.Ekranni grafik holatga o’tkazuvchi va Enter klavishi bosilganda yana matn holatiga qaytaruvchi dastur tuzing.

uses graph,crt;  var gd, gm: integer;

begin  clrscr;

write(‘grafik holatiga o`tish uchun enter ni bosing’);

readln;  gd:=0;  initgraph(gd,gm,»);  readln;

closegraph; clrscr;

write(‘matn holatiga qaytdi’);

readln; end.

2. Ekranning to’rtta burchagida sariq rangli nuqta hosil qiluvchi dastur tuzing.

uses graph; var gd,gm,x,y:integer;

begin gd:=0; initgraph(gd,gm,»);

putpixel(1,1,14);

putpixel (1,getmaxY,14);

putpixel(getmaxX,1,14);

putpixel(getmaxX, getmaxY,14);

readln; closegraph; end.

3. Nuqtalar yordamida ekranni o’rtasidan bo’luvchi gorizontal chiziq hosil qiling.

uses graph;

var gd,gm,x,y:integer;

begin

gd:=0; initgraph(gd,gm,»); y:=trunc(getmaxY/2);

for x:=1 to getmaxX do

putpixel(x,y,14); readln;closegraph; end.

4. Random funksiyasidan foydalanib turli rangli nuqtalarni hosil qilish dasturini tuzing.

uses crt, graph; var gd,gm,x,y: integer;

begin  gd:=0; initgraph(gd,gm,»);

randomize;

repeat

x:=round(random(15)); y:=round(random(15));

putpixel(50*x,50*y, x);

until x=y+1;

readln;

closegraph;  end.

5. xє[-10,10] oraliqda y=3x+5 funksiyaning grafigini chizuvchi dastur tuzing

uses graph;

var gd,gm,ox,oy:integer; x,y:real;

begin

gd:=0; initgraph(gd,gm,»);

ox:=trunc(getmaxx/2); oy:=trunc(getmaxY/2);

x:=-10;

while x<=10 do begin y:=3*x+5;

putpixel(trunc(10*x+ox), trunc(5*y+oy),14);

x:=x+0.01; end; readln; closegraph; end.

 

9-sinf Informatika 39-dars

39-dars.

1. Berilgan so’zning belgilari orasiga bittadan probel qo’yib chiqaruvchi dastur tuzing.

var s:string; i,len:integer;

begin

write(‘so`zni kiriting:’); readln(s);

len:=length(s);

for i:=1 to len do write(s[i],’ ‘); readln; end.

2. S satr berilgan. Undagi “b” harflari sonini aniqlovchi dastur tuzing.

uses crt;   var s:string; a,i,len:integer;

begin   textcolor(14); textbackground(1); clrscr;

write(‘Satrni kiriting:’); readln(s);

len:=length(s);

for i:=1 to len do

begin if s[i]=’b’ then a:=a+1; end;

write(‘Kiritilgan satrda ‘,a,’ ta b harfi ishtirok etgan’);

readln; end. .

3. A[1..N] satrli massiv berilgan. Massiv elementlari ichidan “m” harfidan boshlanadiganlarini ekranga chiqaruvchi dastur tuzing.

uses crt;  var a:array[1..100] of string; b:string; i,j,n:integer;

begin

write(‘n=’); readln(n);

for i:=1 to n do begin

write(‘A(‘,i,’)=’); readln(a[i]); end; clrscr;

for i:=1 to n do begin b:=a[i];

if b[1]=’m’ then writeln(b); end; readln; end.

4. S satr faqat raqamlardan iborat. Satrdagi raqamlardan eng katta sonni hosil qiladigan dastur tuzing.

var a,belgi:string; raqam, len, i,c,max:integer;

begin  write(‘a=’); readln(a);     len:=length(a);

max:=9;   repeat

for i:=1 to len do begin belgi:=copy(a,i,1);

val (belgi,raqam,c); if raqam=max then write(max); end;

max:=max-1; until max<0;

readln; end.

5. A satrdagi belgilarni faqat o’rnini almashtirib B satr hosil qilish mumkin yoki yo’qligini aniqlovchi dastur tuzing.

var suz,suzs:string; sch,ch:char; i,n:integer;

begin   write(‘So`zni kiriting: ‘); readln(suz);

write(‘Hosil qilmoqchi bo`lgan so`zni kiriting: ‘); readln(suzs);

if length(suz)<>length(suzs)  then write(‘Bo`lmaydi’) else

begin i:=0; n:=0;

repeat i:=i+1; ch:=suz[i]; sch:=suzs[i];

if (pos(ch,suzs)>0) and (pos(sch,suz)>0) then n:=n+1;

until i=length(suz);

if n=length(suz) then write(‘Mumkin’) else write(‘Bo`lmaydi’); end;

readln; end.

 

9-sinf Informatika 38-dars

38-dars

1. Quyidagi funksiyalar bajarilish natijasini aniqlang.

a) concat(‘o’, ‘na’);                –    ‘ona’

b) concat(‘ya’, ‘sha’, ‘sin’);    –    ‘yashasin’

d) a:=‘dunyo’; length(a);         –     5

e) Pos(‘o’, ‘bahor’);                 –     4

2. Satrli o’zgaruvchi S ning qiymati ‘Informatika’ bo’lsin. Quyidagi amallar bajarilgach uning qiymatini aniqlang.

a) Delete(s,5,7)                            – ‘Info’

b) Delete(s,1,2); Delete(s,6,4);    – ‘forma’

3. Kiritlgan so’zdan “ona” so’zini hosil qilish imkoniyatini aniqlovchi dastur tuzing.

var suz:string; o,n,a,i,j,len:integer;

begin

write(‘So`zni kiriting:’); readln(suz);

len:=length(suz); for i:=1 to len do begin

if (suz[i]=’o’) or (suz[i]=’O’) then o:=1;

{if (copy(suz,i,1)= ‘o’) or (copy(suz,i,1)= ‘O’ ni ham ishlatsa bo’ladi}

if (suz[i]=’n’) or (suz[i]=’N’) then n:=1;

if (suz[i]=’a’) or (suz[i]=’A’) then a:=1; end;

if o*n*a=1 then write(‘Hosil qilish mumkin’) else

write(‘Hosil qilib bo`lmaydi’); readln; end.

 

9-sinf Informatika 37-dars

37-dars.

1. Quyidagi yig’indining qiymatini berilgan M natural sondan ortiq bo’lguncha hisoblaydigan dastur tuzing.

 

 

var j:integer; y:real; m:byte;

begin

write(‘M ning qiymatini kiriting = ‘); readln(m); j:=1;

while y<m do begin

if odd(j) then y:=y-(1/(j*(2*j+1))) else y:=y+(1/(j*(2*j+1)));

j:=j+1; end;

write(‘y=’,y); readln;

end.

 

2. 1-mashqni parametrli takrorlash operatori, shart bo’yicha takrorlash operatorlaridan foydalanib turlicha hal eting.

 

3. N natural son berilgan. (1/2), (3/4), (5/6),(7/8),… ketma-ketlikning N ta hadi yig’indisini topuvchi dastur tuzing.

var i,n:integer; s:real;

begin

write(‘n=’); readln(n);

for i:=1 to n do s:=s+(2*i-1)/(2*i);

write(‘Yig`indi: ‘,s); readln; end.

4. A musbat son berilgan. Agar k-kvadratning tomoni  bo’lsa (k=1,2,…), k ning qanday qiymatida barcha kvadratlarning yuzalari yig’indisi birincha marta A2 dan katta bo’lishini aniqlovchi dastur tuzing.

var a,s:real; k:longint;

begin

write(‘a=’); readln(a);

K:=0;   repeat k:=k+1;

s:=s+a/k;

until s>sqr(a); write(‘k=’,k); readln; end.

6. N natural son va A[1..N] massiv berilgan. Massivning eng katta va eng kichik elementlarini topuvchi dastur tuzing.

uses crt;  var a:array[1..100] of integer;

n,i,j,max,min:integer;

begin   clrscr;

write(‘n=’); readln(n);

for i:=1 to n do begin write(‘a(‘,i,’)=’); readln(a[i]); end;

max:=a[1]; min:=a[1];

for i:=2 to n do if max<a[i] then max:=a[i];

for i:=2 to n do if min>a[i] then min:=a[i];

write(‘Kattasi: ‘,max,’ Kichigi: ‘,min);

readln; end.

7. Berilgan M natural sonning raqamlari yig’indisini topuvchi dastur tuzing.

program dars37_mashq7;

uses crt;  var a,len,s,b,n:real;

begin  clrscr;

write(‘Sonni kiriting:); readln(a);  n:=0;

while exp(n*ln(10))<a do n:=n+1;

repeat

len:=exp((n-1)*ln(10));  b:=trunc(a/len);  s:=s+b;  a:=a-b*len;  n:=n-1;

until a<9;

write(‘Raqamlari yig`indisi: ‘,s+a:1:0);

readln; end.

8. B,M,A natural son berilgan. Ketma-ketlik Y1=B; , i=2,3,… qonuniyat asosida hosil qilinadi. Ketma-ketlikning B·M·A sonidan kichik bo’lgan barcha hadlarini chop etuvchi dastur tuzing.

var y:array[1..1000] of real;

b,m,a:word; i:integer;

begin

write(‘b=’); readln(b);    write(‘m=’); readln(m);

write(‘a=’); readln(a);    y[1]:=b;

i:=1;

while y[i]<b*m*a do begin y[i+1]:=sqrt(m)+a*y[i]; writeln(i,’-had’);

i:=i+1; end; readln; end.

9. Mijoz bankka B so’m pul qo’ydi. Bankdagi pul yiliga M foiz ustama qo’shiladi. Necha yildan keyin mijozning puli A so’mdan oshishini aniqlovchi dastur tuzing.

Oddiy protsent bilan Murakkab protsent bilan
uses crt;

var a,m,b,n:real;

begin

textcolor(14); textbackground(1); clrscr;

write(‘bankka qo`yilgan pul miqdori:’); readln(b);

write(‘Foiz:’); readln(m);

write(‘Qanchadan oshishi kerak:’); readln(a);

n:=0;

repeat n:=n+1; until b*(1+(m*n/100))>a;

write(n); readln; end.

uses crt;

var a,m,b,n:real;

begin

textcolor(14); textbackground(1); clrscr;

write(‘bankka qo`yilgan pul miqdori:’); readln(b);

write(‘Foiz:’); readln(m);

write(‘Qanchadan oshishi kerak:’); readln(a);

n:=0;

repeat n:=n+1; until b*exp(n*ln(1+m/100))>a;

write(n); readln; end.

 

10. Kichik korxona 1-kun B dona Tovar ishlab chiqardi. Keyingi har bir kun oldingi kundagiga nisbatan M dona ortiq Tovar ishlab chiqardi. Ishlab chiqarilgan barcha tovarning soni rejalangan A donadan birinchi marta necha kundan keyin ortganini aniqlovchi dastur tuzing.

uses crt;  var b,m,a,c,d,n:real;

begin   textcolor(14); textbackground(1); clrscr;

write(‘Birinchi kundagi tovarlar soni:’); readln(b);

Write(‘Necha dona ortiq tovar chiqargani: ‘); readln(m);

write(‘Rejalashtirilgan tovar soni:’); readln(a);

repeat b:=b+m; c:=b+m*n; d:=d+c; n:=n+1; until d>a;

write(n,’ kundan keyin’);

readln; end.

11. Sanayotgan kishi atrofida doira shaklida B ta tartib raqami berilgan odam turibdi. Sanovchi M gacha sanab borgach, M-sanalgan odam doiradan chiqadi va sanovchi kishi keying odamni sanashni 1 dan boshlaydi. Sanash 1 ta odam qolguncha davom etadi. Oxirida nechanchi tartib raqamli odam qolganini aniqlovchi dastur tuzing.

var m,b,i:integer;

qadam,del,_del:integer;

son:array[1..1000] of integer;

begin

write(‘b=’); readln(b);

write(‘m=’); readln(m);

_del:=b-1;

for i:=1 to b do son[i]:=1;

repeat inc(i);

if i>b then i:=i-b;

if son[i]=1 then inc(qadam);

if qadam=m then begin

qadam:=0; son[i]:=0; inc(del); end;

until del=_del;

for i:=1 to b do

if son[i]=1 then

write(i,’-tartibli odam qoladi’); readln;

end.