Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Определить максимальный элемент в произвольно заданной матрице https://www.cyberforum.ru/ pascalabc/ thread1704653.html
Определить максимальный элемент в произвольно заданной матрице Z размера m*n и обнулить все элементы строки и столбца, на пересечении которых расположено найденное значение. Я искал пример в разделе...
Написать процедуру поиска значений в списке Pascal ABC
Не могу написать процедуру для поиска значений в списке, вот сама программа, а именно сделать процедуру для 3 и 4 пунктов. Program Sss; uses crt; Type AvtoS=record name,addr,date:string;...
Pascal ABC Создать блок схему var n,i,k:integer; x,y:real; begin write('Количество точек n='); readln(n); writeln('Введите координаты ',n,' точек'); k:=0; for i:=1 to n do begin writeln('Точка ',i); https://www.cyberforum.ru/ pascalabc/ thread1704538.html Pascal ABC Начертить электрическую схему Нужно начертить схему в таких программах как LibreCad или QElectroTech или Dia. Заранее спасибо https://www.cyberforum.ru/ pascalabc/ thread1704536.html
Pascal ABC Выдайте на экран 10 случайных равномерно распределенных чисел в диапазоне
Выдайте на экран 10 случайных равномерно распределенных чисел в диапазоне: 1) От 3 до 12, целые. 2) Из множества {–3, 0, 6, 9, 12, 15}. 3) От 3 до 12, вещественные. 4) От –2,3 до 10,7 с шагом...
Pascal ABC Увеличить значение каждого числа на 8 Последовательно вводятся n чисел. Увеличить значение каждого числа на 8 https://www.cyberforum.ru/ pascalabc/ thread1704484.html
Pascal ABC Вывести на экран наибольшее четное число https://www.cyberforum.ru/ pascalabc/ thread1704171.html
Здравствуйте! Не получается сделать программу :Даны 3 целых числа. Вывести на экран наибольшее четное число,если хотя бы 1 такое число есть,в противном случае сообщить об отсутствии четных чисел....
Решение системы уравнений методом Гаусса Pascal ABC
Создать программу для решения системы уравнений методом Гаусса
Pascal ABC Вывести список книг с фамилиями авторов в алфавитном порядке, изданных после 2003 года Создать файл, содержащий сведения о книгах, хранящихся в библиотеке. Для каждой записи задаются: автор, название, год издания. Вывести на экран и в отдельные файлы: список книг с фамилиями авторов в... https://www.cyberforum.ru/ pascalabc/ thread1704104.html Pascal ABC Напечатать те слова, которые отличны от последнего слова https://www.cyberforum.ru/ pascalabc/ thread1704103.html
Дан текст. Группы символов, разделенные пробелами и не содержащие пробелы внутри себя, будем называть словами. Напечатать те слова, которые отличны от последнего слова и удовлетворяют следующему...
Pascal ABC Найти все числа, каждое из которых встречается во всех столбцах матрицы
Найти все числа, каждое из которых встречается во всех столбцах матрицы А.
Pascal ABC Вычислить сумму ряда с заданной точностью Вычислить сумму ряда с точностью ε=10-4 Контрольная на носу, помогите пожалуйста!! https://www.cyberforum.ru/ pascalabc/ thread1704100.html
Эксперт Pascal/Delphi
6803 / 4562 / 4817
Регистрация: 05.06.2014
Сообщений: 22,438
07.04.2016, 11:58 0

Создать программу считывания произвольного файла и создание нового нетипизированного файла, копируя блоками - Pascal ABC - Ответ 8990383

07.04.2016, 11:58. Показов 1520. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Взято из встроенной справки:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Program Example6;
{ Program to demonstrate the BlockRead and BlockWrite functions. }
Var Fin, fout : File;
    NumRead,NumWritten : Word;
    Buf : Array[1..2048] of byte;
    Total : Longint;
begin
  Assign (Fin, Paramstr(1));
  Assign (Fout,Paramstr(2));
  Reset (Fin,1);
  Rewrite (Fout,1);
  Total:=0;
  Repeat
    BlockRead (Fin,buf,Sizeof(buf),NumRead);
    BlockWrite (Fout,Buf,NumRead,NumWritten);
    inc(Total,NumWritten);
  Until (NumRead=0) or (NumWritten<>NumRead);
  Write ('Copied ',Total,' bytes from file ',paramstr(1));
  Writeln (' to file ',paramstr(2));
  close(fin);
  close(fout);
end.


Вернуться к обсуждению:
Создать программу считывания произвольного файла и создание нового нетипизированного файла, копируя блоками Pascal ABC
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.04.2016, 11:58
Готовые ответы и решения:

Поогите написать программу считывания произвольного количества строк из текстового файла
Ну вводиш в программу файл например формата txt. В этом файле что то написанно. И нажимая enter...

Написать текстовый редактор, в котором продемонстрировать открытие файла, сохранение файла, создание нового файла
№ 5. Написать текстовый редактор, в котором продемонстрировать открытие файла, сохранение файла,...

Создать программу, реализующую: создание файла, просмотр файла, поиск по файлу, выход
Создать программу, которая может осуществлять такие действия(меня программы): создание файла,...

Создать копию элементов нетипизированного файла f и поместить в файл g
Нетипизированные файлы. . Составить программу, которая создает копию элементов нетипизированного...

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.04.2016, 11:58
Помогаю со студенческими работами здесь

Поиск в каталоге нужного файла и создание при его наличии нового файла с тем же именем, но с другим раширением
Нужно сделелать проверку на наличие файла &quot;Пример.т01&quot; в катологе D:\Temp\ и при условии что они...

Создать программу для считывания нового фото для паспорта
Написать программу для обработки паспортных данных. Информация включает в себя: Фамилия. Имя....

Создание динамического названия для считывания и создания файла
Вопрос такой, необходимо сделать функцию, чтобы пользователь мог сам вводить название файла для его...

Создание в debug текстового файла для считывания шестнадцатеричных значений
Добрый день, волнует вопрос как создать файл, с которого можно было бы считать шестнадцатеричные...

Создание файла произвольного доступа.
#include &lt;iostream.h&gt; #include &lt;fstream.h&gt; #include &lt;stdlib.h&gt; #define number 100 struct...

Создание файла произвольного доступа
Здравствуйте.Ни как не могу разобраться с файлами произвольного доступа.Но эта тема посвящена...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru