|
Tasdiqlayman” Qo`shtepa ixtisoslashtirilgan maktabi mmibdo`: S. Egamov
|
| bet | 158/174 | | Sana | 22.05.2024 | | Hajmi | 5,1 Mb. | | #250400 |
Bog'liq Tasdiqlayman” Qo`shtepa ixtisoslashtirilgan maktabi mmibdo` S. Mashqlar
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;
|
| |
