Program wr_text; var f: text; st: integer; i:integer; begin assign(f,'l1.TXT'); rewrite(f); write('вводите поочередно числа, после ввода очередного числа. - презентация

1 program wr_text; var f: text; st: integer; i:integer; begin assign(f,'l1.TXT'); rewrite(f); write('вводите поочередно числа, после ввода очередного числа нажимайте ENTER'); writeln; for i:=1 to 5 do begin readln(st); {читаем число с клавиатуры} writeln(f,st); {записываем число в файл } end; close(f); end. Создание файла, в который записаны числа.

2 program read_txt; var f: text; s: char; begin assign(f, 'LLL.TXT'); reset(f); while not eof (f) do begin read(f,s); write(s); end; close(f) end. Чтение файла LLL.TXT

3 Program primer; Var f1:text; I,n: integer; S: string; Begin Assign(f1, 'file2.txt'); {устанавливаем связь файловой переменной с физическим файлом} Reset(f1); {открываем файл для чтения} While not eof(f1) do Begin Readln(f1,s); {считываем очередную строку из файла} If (s[1]='A') or (s[1]='a') then Writeln(s); {записываем строки, удовлетворяющие условию} End; Close(f1); {заканчиваем работу с файлами} end. Прочитать файл и вывести на экран строки, начинающиеся с буквы а или А.

4 program my_file; Var F:text; p,b,i,max, k:integer; S:string; begin assign(f,'f2.txt'); reset(f); i:=1;p:=0; max:=0; while not eof(f) do begin readln(f,s); Writeln(s); k:=length(s); if k > max then begin max:=k; b:=i end; inc(i); if s[1]= upcase(s[1]) then p:=p+1; end; writeln ('самая длинная строка ',b); writeln ('количество строк с заглавной буквы ',p); close(f); end. Прочитать файл, состоящий из нескольких сток, определить самую длинную строку и количество строк, начинающихся с заглавной буквы.

5 Program Task_13_12; Var f, t : Text; s : String; min : Byte; Begin Assign (f, 'test.txt');'test.txt' Assign (t, 'test2.txt');'test2.txt' ReSet(f); min := 256; While Not Eof(f) Do Begin ReadLn(f, s); If Length(s)

6 program tekst1; uses crt; var k,i,p:integer; st: string[16]; f:text; BEGIN clrscr; assign(f,'stroka.txt'); reset(f); i:=1; p:=0; repeat readln(f,st); writeln(i,' ',st); if st[1]= 'j' then p:=i; inc(i); until eof(f); writeln('номер строки нач. с буквы j p=',p) ; close(f); end. Прочитать файл и определить номер строки, начинающейся с буквы j.