Нужен пример копирования файлов - Turbo Pascal

  1. Pascal (dos,crt)!? Как копировать файлы в среде Turbo Pascal 7.1? Может использовать модуль dos или стандартный crt такое может?


textual

Код:

const
  Fn1 = 'c:\uzbekova.txt';
  Fn2 = 'c:\uzbekova2.txt';
  Size = 10000;
var
  F1, F2 : File;
  Buff : array[1..Size] of Byte;
  Cnt : Integer;
begin
  Assign(F1, Fn1);
  Reset(F1, 1);
  Assign(F2, Fn2);
  Rewrite(F2, 1);
 
  while not Eof(F1) do begin
    BlockRead(F1, Buff, Size, Cnt);
    BlockWrite(F2, Buff, Cnt);
  end;
 
  Close(F1);
  Close(F2);
end;


Похожие ответы
  1. Здраствуйте. Помогите пожалуйста, я не понимаю, как создать простейший объект (например из двух переменных) в паскале и что для этого нужно. Если я например начинаю писать:

  1. Доброго времени суток, помогите пожалуйста сделать задание: Сформировать квадратную матрицу порядка N по данному образцу:1 1 1 … 1 1 1 1 0 0 … 0 0 1 1 0 0 … 0 0 1 … … … … … … … 1 0 0 … 0 0 1 1 1 1 … 1 1 1

  1. Напишите пожалуйста программу на Турбо Паскале для решения этого задания: Вычислить при заданном , где

  1. 1) 3/2 * arcsin 0.6 + 3.12 + lg4 2) {e^arctg 7,58 - 1/√2 * 1,5^2} 3) (17*e^-2 - 1/3 * PI)^4 4) |12*PI+cos40°/2*e^-3|+10 5) [3/12*(5*ln2+7*ln5)^2] 6) (3,8*PI-5)^e^2 Вот ссылка

  1. Прошу решить эту задачу в крайние сроки. Заранее благодарю.

  1. Доброго времени суток. Прошу помощи с решением этой задачки. Задан текст, состоящий из слов, записанных через пробелы или запятые. Длина текста не больше 255 символов. В тексте могут быть использованы любые символы. Словом считать последовательность символов, не содержащую пробел. Необходимо введенный текст вывести на экран до и после его преобразования. В каждом 5-символьном слове переставить литеры так, чтобы одинаковые находились рядом (например, сосна – ссона). Найти первое цифровое слово и увеличить его значение на 23. Нашел на форуме похожую задачу, только с другим заданием. Подскажите пожалуйста что подредактировать. Кликните здесь для просмотра всего текста Найти одинаковые 5-символьные слова и подсчитать число их повторений. Найти первое цифровое слово и уменьшить его значение в 3 раза.

  1. Условный операторв языке Pascal. Привести пример проверки условия: число должно быть положительным и не входить в диапазон от 33 до 333 включая граничные значения.