Sirdaryo viloyati Guliston shahar 16-umumiy o’rta ta’lim maktabining Informatikafani o’qituvchisi

Mashqlarning bajarilishi

1.Sinfdoshlaringiz familiya va ismlaridan tashkil topgan “SINF.TXT ”nomli matnli fayl hosil qiluvchi dastur tuzing.

Program misol1;

var f:text;

H:string;

N,I:INTEGER;

begin

assign (f,'sinf.txt');

rewrite(f);

WRITELN('sinfdoshlaringiz sonini KIRITING');

READLN(N);

writeln(f,'9-SINF O`QUVCHILARI');

FOR I:=1 TO N DO BEGIN

READLN (H);

writeln(f,H);

END;

close(f);

end.

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

Program misol2;

var f:text;

H:string;

I:INTEGER;

begin

assign (f,'hafta.txt');

rewrite(f);

WRITELN('HAFTA KUNLARINI KIRITING');

writeln(f,'HAFTA KUNLARI');

FOR I:=1 TO 7 DO BEGIN

READLN (H);

writeln(f,H);

END;

close(f);

end.

V. Darsga yakun yasash, baholash metodlari va ajratilgan vaqt: 3 minut darsda faol qatnashgan o’quvchilarni rag’batlantirish.

VI. Uyga vazifa berish va ajratilgan vaqt: 2 minut mashq bajarish.

Savol va topshiriqlar:

1. 
   Haftakunlariningnomlarinikiritib, ularni “HAFTA.TXT” fayilidasaqlabqo’yadigandasturtuzing?
   
2. 
   Sinifdoshlaringizningfamiliyavaismlaridantashkiltopgan“ SINF.TXT” nomlimatinlifaylhosilqiluvchidasturtuzing?
   

Uyga vazifa uchun topshiriqlar:

“Massiv.in” faylli 12 satirdaniborat.Uning har-bir satrida 9 tadan o’zaro probel bilan ajiratib yozilgan.A(12,9) –ikki o’lchamli massiv elementlarining qiymatlarini “massiv.in” fayilidan o’qib oluvchi dastur tuzing.