ы. Мәтіндікфайл үшін көрсеткіш оның кезекті символының номеpi болып саналады. Файл ашылғаннан кейін көрсеткіш оның бірінші символын көрсетеді. Read(f,c) операторы жолды 6ip символ арқылы оқып, оны с (char munmi) айнымалыға жазады. Мысал қарастырайъщ: Бip жол жазып мәтіндік файл құрайық. Құрылған файлды екінші жолмен толықтырайық.
Program Рrim;Матиндик файлды кұру
var f:text;
s:string; c:char; begin
write(l-жолды енгизу);файлды жазу
readln(s);
assign(f,ln. text);
rewrite(f);writeln(f,s);
close(f);
write (2-жолды енгизу1);
readln(s);
append(f);
writeln(f,s);
close(f);
reset(f);
while not eof(f) do begin
read(f,c);writeln(c);
end;
close(f);
readln;
end.
Жаңа сабақты бекту сұрақтары:
Файл дегеніміз не?
Қандай операторлар қолданылады?
Файл қалай сипатталады?
Есептер шығару: 1.
Аты-жөні (t)
Бағалар
Физика (fi)
Математика (та)
Информатика (inf)
Тарих (ist)
Кәршов A
5
4
3
2
Kөшеров Б
5
5
5
5
Мерекенов T
4
5
5
4
Program Esep; сынып журналы
var f: text;
t:string30;
n,i,fi,ma,inf, ist: byte;
begin
assign(f,c:klass. txt); write(окушылар саны);
rewrite(f); readln(n);
writeln(Окушьшардын аты-жони, онын бағалары:);
файлды жазу;
for i:l to n do
begin
readln(t);writeln(f,t);
readln(f,fi,ma,inf,ist); writeln (f,fi,ma,inf,ist);
end;
close(f);
файлдан оку;
Reset(f); for i:l to n do
begin
readln(f,t); writeln(t);
readln(f,fi,ma,inf,ist); writeln (f,fi,ma,inf,ist);
end;
close(f);
end.
ТР-да
Program Esep1; Үздик окушыларды тандау
var f: text;
t:string30;
n,i,fi,
Страницы: << < 1 | 2 | 3 | 4 > >>