2-laboratoriya ishi. Paskal tilida sikl operatorlari yordamida dasturlar tuzish. Ishdan maqsad

---

2-laboratoriya ishi. Paskal tilida sikl operatorlari yordamida dasturlar tuzish. 

 

Ishdan  maqsad:  Talabalarga  Paskal  tilining  sikl  operatorlari  haqida 

ma’lumot berish va dasturiy vositalar yaratishda ulardan foydalanish ko’nikmasini 

hosil qilish. 

Kerakli  asbob-uskunalar  va  jihozlar:  fan  bo’yicha  O’UM,  dasturlash 

bo’yicha topshiriqlar to’plami, kompyuter, videoproektor, pascal dasturi. 

Masalaning  qo’yilishi:  Paskal  tilida  takrorlanish  operatorlari  bo’yicha 

tushunchalar  berish  va  ularni  dasturiy  vositalar  yaratishda  qo’llashni  ko’rsatib 

berish. 

 

Qisqacha nazariy ma’lumot. 

Bizga  ma’lumki,  Paskal tilida  for,  while, until repeat  kabi  sikl  (takrorlash) 

operatorlari  mavjud.  Quyida  ushbu  sikl  operatorlarini  aralash  qo’llashga  doir 

masalani  qaraymiz.  Dastur  kodining  biror  qismining  ko’p  marta  bajalishi  sikl 

hisoblanadi.  Dastur  kodining  qandaydir  qismini  qandaydir  shart  asosida  birnecha 

marta  bajartirish uchun dasturlashda  sikldan  foydalaniladi.  Agar  shart  rost  bo’lsa 

sikl  davom  qiladi.  Aks  holda  to’xtatiladi.  Agar  shart  hamisha  rost  bo’lsa  bunday 

sikl cheksiz sikl deb ataladi.  

Eslatma:  Qiymatlarni  kiritishda  ular  soni  bir  nechta  bo‘lsa  bitta  satrda 

orasiga  bo‘sh  joylar  tashlangan  holda  kiritilish  kerak.  Sonlar  nabori  bilan 

ishlaganda nabordagi elementlar alohida satrda bo‘sh joylar bilan kiritiladi. Natija 

ham xuddi shu ko‘rinishda chiqariladi. 

 

Topshiriqlarni bajarish uchun namuna. 

Masala.  n  butun  son  va  sonlar  o‘qida  2  ta  a,  b 

(a

teng  kesmachalarga  ajratilgan.  Har  bir  kesma 

uzunligi  h  ni  hamda  [a,b]  kesmani  bo‘luvchi 

nuqtalardagi  f(x)=1-sin(x)  funksiyaning  qiymati 

chiqarilsin. 

Borland delphi tilida 

Borland C++ tilida 

program for30; 

{$APPTYPE 

CONSOLE} 

uses 

 SysUtils; 

var n,i:word; 

 x,a,b,h,fx:real; 

 begin 

 read(n,a,b); 

 h:=(b-a)/2; 

 write(h:2:2,'‘); 

 x:=a; 

 for i:=0 to n do 

#pragma for30 

#include  

int  main(int  argc,  char 

**argv) 

{ 

static short int n,i; 

 static float x,a,b,h,fx; 

 cin>>n>>a>>b; 

 h=(b-a)/2; 

 cout<

 x=a; 

 for (i=0;i<=n;i++) 

 { 

---

 begin 

 fx:=1-sin(x); 

 write(fx:2:3,'‘); 

 x:=x+h; 

 end; 

 readln; 

 readln; 

end. 

 fx=1-sin(x); 

 cout<

 x=x+h; 

 } 

 cin>>"\n"; 

 return 0; 

}