По условию задачи двигались катер и лодка одинаковое время с момента начала их движения до момента встречи. Но катер за это время на 54 километра больше, чем лодка, так как начал движение от лодочной станции 1, расположенной на расстоянии 54 км от лодочной 2, откуда начала двигаться лодка.
Скорость движения катера известна - составляет 25 км/ час.
Скорость движения лодки тоже известна - составляет 7 км/час.
Время движения катера и лодки с момента начала их движения до момента встречи обозначим через х (часов).
Можно определить расстояние, пройденное катером до встречи с лодкой. Для этого нужно скорость движения катера (25 км/час) перемножить на «х» часов (время движения катера).
Также можно определить расстояние, пройденное лодкой до встречи с катером. Для этого нужно скорость движения лодки (7 км/час) перемножить на «х» часов (время движения лодки).
Разница между расстояниями, пройденными катером и лодкой, составляет 54 километра.
Можно составить уравнение:
25 × х = 7 × х + 54
Решаем составленное уравнение:
25 × х = 7 × х + 54
25 х = 7х + 54
25 х – 7 х = 54
18 х = 54
х = 54 : 18
х = 3 (часа)
Мы узнали, что до встречи лодка и катер двигались 3 часа.
Определяем, сколько километров катер за 3 часа (до встречи с лодкой). Для этого скорость движения катера (25 км/час) перемножаем на время его движения (3 часа).
25 км/час × 3 (часа) = 75 (км катер до встречи с лодкой
ответ: 75 км катер до встречи с лодкой.
По условию задачи двигались катер и лодка одинаковое время с момента начала их движения до момента встречи. Но катер за это время на 54 километра больше, чем лодка, так как начал движение от лодочной станции 1, расположенной на расстоянии 54 км от лодочной 2, откуда начала двигаться лодка.
Скорость движения катера известна - составляет 25 км/ час.
Скорость движения лодки тоже известна - составляет 7 км/час.
Время движения катера и лодки с момента начала их движения до момента встречи обозначим через х (часов).
Можно определить расстояние, пройденное катером до встречи с лодкой. Для этого нужно скорость движения катера (25 км/час) перемножить на «х» часов (время движения катера).
Также можно определить расстояние, пройденное лодкой до встречи с катером. Для этого нужно скорость движения лодки (7 км/час) перемножить на «х» часов (время движения лодки).
Разница между расстояниями, пройденными катером и лодкой, составляет 54 километра.
Можно составить уравнение:
25 × х = 7 × х + 54
Решаем составленное уравнение:
25 × х = 7 × х + 54
25 х = 7х + 54
25 х – 7 х = 54
18 х = 54
х = 54 : 18
х = 3 (часа)
Мы узнали, что до встречи лодка и катер двигались 3 часа.
Определяем, сколько километров катер за 3 часа (до встречи с лодкой). Для этого скорость движения катера (25 км/час) перемножаем на время его движения (3 часа).
25 км/час × 3 (часа) = 75 (км катер до встречи с лодкой
ответ: 75 км катер до встречи с лодкой.
Текстовые файлы состоят из символов. Каждый текстовый файл разделяется на строки неопределенной длины, которые заканчиваются символом конец строки. Весь файл заканчивается символом конец файла.
К текстовым файлам возможен только последовательный доступ. С текстовыми файлами работают различные редакторы текстов. Текстовые файлы имеют стандартный тип TEXT.
VAR <имя файла>: TEXT;
Посимвольные операции ввода-вывода выполняются для текстовых файлов процедурами readиwrite.Строки обрабатываются специальными процедурами для текстовых файлов readlnиwriteln.Кроме того, для текстовых файлов применяются процедуры ASSIGN, RESET, REWRITE, CLOSE, EOF, eoln.Процедураappendоткрывает существующий текстовый файл для добавления записей. Для текстовых файлов нельзя использовать процедуры и функции SEEK, FILEPOS, FILESIZE,т.к. элементы имеют разную длину.
inputи outputстандартные текстовые файлы для ввода с клавиатуры и вывода на экран.
Рассмотрим программу, реализующую следующую задачу. Дан текстовый файл F1.Необходимо заменить во всех записях этого файла код группы ДС-101 на ДС-201. Скорректированные записи поместить в файл F2.
var f1,f2: text;
pole:string;
name:string[12];
pz: integer;
begin write(‘ввод имени входного файла:’);
Readln(name);
Assign(f1,name);
write(‘ввод имени выходного файла:’);
Readln(name);
Assign(f2,name);
Reset(f1); rewrite(f2);
While not eof(f1) do
Begin
Readln(f1,pole);
while pos(‘дс-101’, pole) <> 0 do
Begin
pz:= pos(‘дс-101’, pole);
delete(pole,pz+3,1);
insert(‘2’,pole,pz+3);
End;
Writeln(f2,pole)
End;
Close(f1);
Close(f2);
End.
Здесь читаются последовательно строки из входного файла и в каждой строке в номере группы заменяется символ 1 на 2. Скорректированные строки выводятся в новый файл.
Файлы без типа.
Любой файл может быть представлен в виде последовательности символов кода ASCII. Турбо Паскаль позволяет рассматривать файл с любой организацией как бы состоящим из блоков по 128 байт.
Файлы без типа используются обычно при копировании файлов, когда не важна внутренняя структура записи файла. Если длина сегмента на диске 1024 байта, то количество блоков в группе равно 8 при длине блока 128 символов.