| Yangi mavzuni mustaxkamlash.
Mashqlar
Hafta kunlarining nomlarini kiritib, ularni «HAFTA.TXT» faylida saqlab qo'yadigan dastur tuzing.
Program misol_1;
Uses crt;
var kun : String; f : Text; I: integer;
Begin clrscr
Assign(f, 'hafta.txt'); Resete(f);
For i:=1 to 7 do begin WriteLn(I,’-kun nomini kiriting=’); readln(kun);
Writeln(f,kun); end;
Close(f); readln;
End.
2. 1-mashqdagi «HAFTA.TXT» faylini ochib, davomidan hafta kunlarining rus tilidagi nomlarini yozuvchi dastur tuzing.
3. «HAFTA.TXT» faylida berilgan hafta kunlarining nomlarini ekranga chiqaruvchi dastur tuzing.
Program misol_1;
Uses crt;
var hafta:array[1..7]of string; f : Text; s: string ; I: integer;
Begin clrscr
Assign(f, 'hafta.txt'); Reset(f);
For i:=1 to 7 do begin
Readln(f,s); Writeln(s); end;
Close(f); readln;
End.
Uyga vazifa: 2- mashqni dasturini tuzish.
Sana :______________
Sinf :_______________
| 