22-fevral Dars: Ona tili Mavzu: Mustahkamlash mashqlari. Tez aytishlar. 213-214-mashqlar. Darsning maqsadi: Ta`limiy

V. Darsni yakunlash: O`quvchilarni yig`gan ballariga ko`ra baholandi.
VI. Vazifa. Ikkita, uchta tez aytish topib daftaringizga yozib keling va harakatni bildirgan so`zlarni belgilang.


1.Sinfdoshlaringizning familiya va ismlaridan tashkil topgan «SINF.TXT» nomli matnli fayl hosil qiluvchi dastur tuzing.

Program Sinf;

Uses crt;

var f : Text; i : Integer; ism : String;

Begin

Assign(fio, 'c:sinf.txt'); Rewrite(f); For i:=l to 7 Do begin

WriteLn(I,'-o^’quvchining familiyasi va ismini kiriting='); ReadLn(ism);

Writeln(f,ism);end;

Close(fio); readln; End.

2.«sinf.txt» faylida berilgan 9-sinf o'quvchilarning familiyalari ichidan «M» harfi bilan boshlanadiganlarini ekranga chiqaruvchi dastur tuzing.

Program misol_2;

Uses crt;

var hafta: array[1..7]of string; f : Text; s: string ; I: integer;

Begin clrscr

Assign(f, 'c:sinf.txt'); Reset(f);

For i:=1 to 7 do begin

Readln(f,s); if s[1]= ‘M’ then Writeln(s); end;

Close(f); readln; End.

3.«sinf.txt» faylida berilgan 9-sinf o'quvchilarning familiyalari ichidan «B» harfi bilan boshlanadiganlarini ajratib olib, ulardan «bsinf.txt» faylini hosil qiluvchi dastur tuzing.

Program misol_3;

Uses crt;

var hafta: array[1..7]of string; f1,f2 : Text; s: string ; I: integer;

Begin clrscr

Assign(f1, 'c:sinf.txt'); Reset(f1);

Assign(f2, 'c:bsinf.txt'); Reset(f2);

For i:=1 to 7 do begin Readln(f1,s); if s[1]= ‘B’ then Writeln(f2); end;

Close(f1); Close(f2); readln; End.

“Tasdiqlayman”

Maktab direktori
Qodirova Sh.M
“_____”______________2018 yil

Zarafshon shahar
3-umumiy o`rta ta`lim maktab
boshlang`ich sinf o`qituvchisi
Qodirova Dilorom Namozovnaning
2-“B” sinfda ona tili fanidan
“Barkamol avlod tayanchimiz va suyanchimiz”
mavzusida o`tkazilgan ochiq dars ishlanmasi


Mavzu: Mustahkamlash mashqlar. Tez aytishlar
213-214-mashqlar.