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

ZX Spectrum-128

6803 / 4562 / 4817

Регистрация: 05.06.2014

Сообщений: 22,438

07.04.2016, 11:58

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

07.04.2016, 11:58. Показов 1520. Ответов 1

Метки (Все метки)

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

Решение

Взято из встроенной справки:

Pascal

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

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

07.04.2016, 11:58

Готовые ответы и решения:

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

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

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

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

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

07.04.2016, 11:58

Помогаю со студенческими работами здесь

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

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

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

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

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

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

Наверх