1. Hafta kunlarining nomlarini kiritib, ularni “HAFTA.TXT” faylida saqlab qo‘yadigan dastur tuzing.
Program hafta_1;
Var f : Text; kun : String; m:integer;
Begin
Assign(f, ‘hafta.txt’); Rewrite(f);
For m:=1 to 7 do begin
Write(‘Haftning ‘, m, ‘kuni nomini kiriting: ‘); ReadLn(kun);
WriteLn(f,kun); end;
Close(f);
End.
2. 1-mashqdagi “HAFTA.TXT” faylini ochib, davomidan hafta kunlarining rus tilidagi nomlarini yozuvchi dastur tuzing.
Program Hafta2;
Var f : Text; kun: String; m:integer;
Begin
Assign(f, ‘hafta.txt’); Append(f);
For m:=1 to 7 do begin
Write(‘Haftaning ‘, m, ‘-kuni rus tilidagi nomini kiriting: ‘); ReadLn(kun);
WriteLn(f, kun); end;
Close(f);
End.
V. Uyga vazifa 3-mashq. “HAFTA.TXT” faylida berilgan hafta kunlarining nomlarini ekranga chiqaruvchi dastur tuzing.
program masala61_3;
uses crt;
var hafta: array[1..7] of string;
f: text;
s: string;
i: integer;
begin
clrscr;
assign(f,'textlar\hafta.txt');
reset(f);
for i:=1 to 7 do
begin readln(f,s); writeln(s); end;
close(f);
readln;
end.
Qabul qildi : MMIDO` _________S.Egamov Sana:__________________ Mavzu:Protsedura va funksiyalar Maqsad: 1) ta’limiy: o`quvchilarga Protsedura va funksiyalar haqida ma’lumot berish;
2) tarbiyaviy: o`quvchilarga iqtisodiy tejamkorlik tarbiyasi berish;
3) rivojlantiruvchi: o’quvchilarda dasturlashda protsedura va funksiyalardan foydalanidh ko`nukmalarini rivojlantirish
1. Axborotlarni izlash va elektron vositalarda yig‘ish kompetensiyasi Axborotlar ustida bajariladigan amallarga oid vazifalarni bajara oladi;
2. Axborotlarni elektron vositalarda qayta ishlash va saqlash kompetensiyasi axborot hajmi, uzatish tezligi bilan bog‘liq masalalarni, axborotlarni qayta ishlashni mustaqil bajara oladi;
