Bajaruvchi: 19-io‘M3 guruh talabasi Tojiyeva Saboxon. Laboratoriya topshirg‘i

Bajaruvchi: 19-IO‘M3 guruh talabasi Tojiyeva Saboxon.


Laboratoriya topshirg‘i: Pascal dasturlash tilida matnli fayllar bilan ishlash.
Maqsad: Pascal tilida matnli fayllar bilan ishlash, ular ustida amallar bajarish ko‘nikmalarini hosil qilish.


Kerakli jihozlar: Nazariy materiallar, PascalABC dasuri, fikriy va falsafiy qobilyatlar.


Topshiriq mavzusi: Vaqt.
Dasturi:
Uses crt;
Var a,b:string; fayl:Text; y:byte;
begin
Assign(fayl, 'Savollar.txt');
Rewrite(fayl);
Writeln('Assalomu alaykum');
Readln(a);
Writeln(fayl,a);
Writeln('Siz vaqtni qanday tushunasiz?');
Readln(a);
Writeln(fayl,a);
Writeln('Vaqt nima?');
Readln(a);
Writeln(fayl,a);
Writeln('Vaqt nimalarda o‘lchanadi?');
readln(a);
writeln(fayl,a);
Writeln('Bo‘sh vaqtingizda nimalar bilan shug‘ullanasiz?'); {Bu yerda (') belgi ishlamadi}
Readln(a);
Writeln(fayl,a);
Writeln('Vaqtingizni to‘g‘ri taqsimlay olasizmi?');
Readln(a);
Writeln(fayl,a);
Writeln('Siz bir kunda oilangizga qancha vaqt ajratishni hohlar edingiz?');
Readln(b);
Writeln(fayl,b);
Writeln('Demak' ,b, 'soat ekanda?');
Readln(a);
Writeln(fayl,a);
Writeln('Suhbat uchun katta rahmat!');
Readln(a);
Writeln(fayl,a);
close(fayl);
end.