Программирование - это вторая грамотность. представляет собой последовательность элементов одного типа. Длина файла не задается, место элемента не определяется. - презентация

1 Программирование - это вторая грамотность

2 представляет собой последовательность элементов одного типа. Длина файла не задается, место элемента не определяется индексом.

3

4

5 Создать файл D1.txt, компонентами которого являются целые числа ( количество чисел ввести с клавиатуры). Program pr1; var i,n,a :integer; f: text; begin readln(n); assign(f, D1.txt); rewrite(f); i:=1; repeat readln(a); write(f,a:4); i:=i+1; until i>n; close(f); end. В файл D2. txt записать сумму чисел, находящихся в файле D1. txt Program pr1_1; var a,s :integer; f1,f2: text; Begin s:=0; assign(f1, D1.txt); assign(f2, D2.txt); reset(f1); rewrite(f2); while not eof(f1) do begin read(f1,a); s:=s+a; end; write(f2,s); close(f1); close(f2); end.

6 На диске имеется файл с DAN.dat, в котором записана скороговорка. Посчитать количество букв «к» в тексте. Program pr2; var s :integer; sim: char; f: text; Begin S:=0; assign(f, DAN.dat); reset(f); while not eof(f1) do begin while not eoln(f) do begin read(f,sim); if sim = k then s:=s+1; end; readln(f); end; close(f); write(число букв k в скороговорке,s:3); end.

7 Создать файл с именем VEL1.dat, в котором хранится информация: Создать файл с именем VEL2.dat, в котором должна быть представлена информация: заголовок таблицы, вся исходная информация; скорость движения в м/с и в км/ч. улитка:0,0015 черепаха:0,02 рыба:1 скорость вид скорость м/скорость км/ч улитка:0,00150,0054 черепаха:0,020,0720 рыба:13,600

8 Написать программу, которая открывает текстовый файл (тип файла - text) и считывает из него строку. Если файл не удается открыть (например, файл не существует), тогда программа сама создает этот файл и записывает в него строку. Программу написать с применением директив компилятора {$I-} и {$I+}. VAR f: text; st: string; BEGIN assign(f, 'my_file.txt'); reset(f); if ioresult=0 then begin readln(f, st); writeln('Файл "my_file.txt" существовал!'); writeln('Считанная из файла строка: ', st); end else begin rewrite(f); st:='This was in file!'; writeln(f, st); writeln('Файл "my_file.txt" не существовал!'); writeln('Записанная в файл строка: ', st); end; close(f); END.