Файл және оны баптау, құрылымдық мәліметтер

1. Сынып оқушыларына жағымды ахуал туғызу 2. Топқа бөлу №1есеп Program Esep; {сынып журналы} var f: text; t:string[30]; 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. №2 есеп Program Esep; {сынып журналы} Аты-жөні (t) Бағалар Физика (fi) Математика (та) Информатика (inf) Тарих (ist) Кәршов A 5 4 3 2 Kөшеров Б 5 5 5 5 Мерекенов Т 4 5 5 4 ТР-да Program Esep1; {Үздик окушыларды тандау} var f: text; t:string[30]; n,i,fi,ma,inf,ist: byte; begin assign(f,'c:\klass.txt'); reset(f); readln(n); for i:=l to n do begin readln(f,t); readln(f,fi,ma,inf,ist); if fi+ma+inf+ist=20 then writeln (f,fi,ma,inf,ist); end; close(f); end. Бағалаудың іске асуын бақылайды. Тақырыпты мазмұндап, оқып келу. integer типті N элементтен тұратын файлды жасайтын программа құрыңдар. Тек жұп элeмeттepi ғана шығару. program_6;{^oi' yeaiai6oa6} var f:text;m,s,i,n:integer; begin assign(f, 'c :\kl,txt') ;rewrite(f) ;readln(n); for i:=l to n do begin readln(m) ;writeln(f,m); end; close(f); reset(f); for i:=l to n do readln(f,m);if not odd(m) then writeln(m); end; close(f); end. Тақырып түсінікті болды. Себебі... Тақырып түсініксіз болды. Себебі...