Laboratoriya mashg‘uloti

end.

Dastur yakuni.

Pascal ABC-da dastur ko‘rinishi va natijasi:

Dastur ko‘rinishi	Natijasi

Musta’qil bajarishga berilgan topshiriqlar.

1. 
   Ikkita ixtiyoriy ma’lumotni ekranning chap yuqori va о‘ng quyi burchaklarida chiqaruvchi dastur tuzing. Bunda har bir ma’lumotning rangi о‘zgacha bо‘lsin.
   
2. 
   Bugungi dars jadvalingizni ekranga chiqaruvchi dastur tuzing. Har bir dars alohida satrlarda hosil bo`lsin.
   
3. 
   О‘z familiyangiz, ismingiz va otangizni ismini turli ranglarda ekranga chiqaruvchi dastur tuzing.
   

	№4 – Laboratoriya mashg‘uloti
2-soat	Pascalda massiv va grafikaga doir dasturlar tuzish.

Ishning maqsadi:
Talabalarni Pascalda massiv va tasvirlar yaratuvchi dasturlar tuzish va natija olishga o‘rgatish.

Eslatma:

Massiv - bu bir xil toifali, chekli qiymatlarning tartiblangan to’plamidir.

Massivni e`lon qilishning umumiy tuzulishi:

Massiv_nomi: array[boshlang`ich element tartibi..oxirgi element tartibi] of element tipi;
Massivni e`lon qilishga misollar:

a:array[1..n] of integer;	a – massiv nomi, boshlang`ich element tartibi 1 va oxirgi element tartibi n, elementlar tipi butun (integer). Ya`ni a[1] dan a[n] gacha butun tipli elementlardan tashkil topgan a massiv.
st:array[2..15] of real;	st – massiv nomi, boshlang`ich element tartibi 2 va oxirgi element tartibi 15, elementlar tipi haqiqiy (real). Ya`ni st[2] dan st[15] gacha haqiqiy tipli elementlardan tashkil topgan st massiv.
dd:array[1..25] of string;	dd – massiv nomi, boshlang`ich element tartibi 1 va oxirgi element tartibi 25, elementlar tipi satriy (string). Ya`ni dd[1] dan a[25] gacha satriy tipli elementlardan tashkil topgan dd massiv.

1-topshiriq: Butun tipli 14 elementdan tashkil topgan massiv berilgan. Qiymati bo‘yicha juft elementlar sonini hisoblovchi dastur tuzing.¹
Dasturning umumiy ko`rinishi quyidagicha:
Program dastur_1;
Var i, k: integer;
a:array[1..14] of integer;
begin
for i:=1 to 14 do
begin
a[i]:=random(50);
writeln(a[i]);
end;
k:=0;
for i:=1 to 14 do
if a[i] mod 2 = 0 then k:=k+1;