Laboratoriya mashg’uloti №3 3-Mavzu: kompyuterning dasturiy ta’minoti. Microsoft ofiss dasturlarida ishlash

LABORATORIYA MASHG’ULOTI №3


3-Mavzu:KOMPYUTERNING DASTURIY TA’MINOTI. MICROSOFT OFISS DASTURLARIDA ISHLASH
Ishdan maqsad: Talabalarda pascal muhitiga sodda masala dasturlarini kiritish va ulami tahrirlash. pascal muhitiga shartli operatorlar yordamida masalani yechish dasturini tuzishni o’rganish.
Masalaning qo’yilishi: Pascal muhitiga sodda masala dasturlarini kiritish va ulami tahrirlash, pascal muhitiga shartli operatorlar yordamida masalani yechish dasturini tuzish.
Nazariy qism
Takrorlanish ichida kiymatlari uzgarib boradigan uzgaruvchini takrorlanish uzgaruvchisi yoki takrorlanishning boshkaruvchi uzgaruvchisi (tsikl parametri) deb yuritiladi.
Takrorlanuvchi jarayonning algoritmi umumiy xolda kuyidagilarni uz ichiga olishi kerak:
1.Takrorlanishni tayyorlash – takrorlanishni boshlashdan oldin, tak-rorlanishda katnashadigan uzgaruvchilarning boshlangich kiymatlari yoki takrorlanish uzgaruvchisining boshlangich kiymati urnatiladi, takrorlanish uzgaruvchisining uzgarish kadami belgilanadi.
2.Takrorlanish tanasi – takrorlanish uzgaruvchilarining turli kiymatlari uchun takror bajariladigan amallar ketma-ketligi kursatiladi.
3.Takrorlanish uzgaruvchisiga yangi kiymat berish – xar bir takror-lanishdan avval uzgaruvchiga uzgarish kadamiga mos ravishda yangi kiymat beriladi.
4.Takrorlanishni boshkarish – takrorlanishni davom ettirish sharti tekshiriladi, takrorlanishning boshiga utish kursatiladi.
2.Takrorlanish operatorining uch xil kurinishlari va Paskalning ularga mos operatorlari.


Turbo Pascaldagi dasturi:
Program Quadrat;
Var a, b, c : Real;
Discr : Real;
x1, x2 : Real;
BEGIN
ReadLn(a, b, c);
If (a=0) and (b=0) and (c=0)
then begin Write('Hamma koefitsientlari nolga teng');
WriteLn('x – ixtiyoriy son')
end
else
If (a=0) and (b<>0)
then WriteLn('Chiziqli tenglama.Yagona yechim: x =', -c/b:6:2)
else
If (a=0) and (b=0) and (c<>0)
then WriteLn('Noto’’g’’ri tenglama.')
else
begin
Discr := b*b - 4*a*c;
If Discr > 0 
then begin
x1:=(-b + Sqrt(Discr)) / (2*a);
x2:=(-b - Sqrt(Discr)) / (2*a);
WriteLn('x1=' , x1:6:2 , '; x2=' , x2:6:2)
end
else
If Discr = 0
then begin
x1 := -b/(2*a); 
WriteLn('Karrali ildizlar: x1=', x1:6:2, ' x2=', x1:6:2)
end
else WriteLn('Haqiqiy ildizlari mavjud emas');
end; 
ReadLn
END.
Mustaqil ishlash uchun masalalar