Free Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Free Pascal "Illegal expression" при использовании процедуры Str https://www.cyberforum.ru/ free-pascal/ thread1682569.html numY , numX integer; sY,sX string if numY+numX = sum then begin Str(numY , sY); Str(numX , sX); result:=result+sY+','+sX+';'; end; Illegal expresion	Free Pascal Вычислить результат каждого сложения и подставить его в строку вместо знака вопроса Требования к выполнению задания: нельзя использовать циклы; нельзя использовать оператор IF; из всего множества подпрограмм языка Паскаль надо использовать только функции и процедуры для работы со строками. при выполнении работы использовать средства отладки Free Pascal. Задание:
Free Pascal Windows 8.1: При запуске любой программы на fpc, загружается user screen https://www.cyberforum.ru/ free-pascal/ thread1681897.html При запуске любой программы на fpc , загружается user screen и всё	Free Pascal ООП: вывести информацию обо всех введенных словах, начинающихся на букву "А" https://www.cyberforum.ru/ free-pascal/ thread1681867.html Подскажите пожалуйста. Вводится любое кол-во слов, для существительных указывается род, для глагола - спряжение. Вывести информацию обо всех словах начинающихся на букву "А". Сделать с использованием объектов и списков.
Выход из доступного диапазона при использовании побитовой операции Free Pascal Тип Byte вмещает в себя 8 бит, в данной программе я узнаю число, как оно выглядит в двоичном коде, Для этого я число 7 (грубо говоря) умножаю на (знак доллара это переход к шестнадцатеричной системе) 8=1000(ДК) + 0=0000(ДК), т. е умножаем на 10000000, если получается то, на что машина умножает ,то пишем единицу, если нет, то 0. Затем смещаем старший бит(после проверки) влево. Вопрос= Почему с...	Free Pascal Остановите бесконечный while Проблема такова: С помощью цикла while я вывожу нужные мне значения, но проблема в том, что он выводит их Бесконечное число раз, а мне нужно только 1 раз вывести. Как это сделать? Через цикл for я не знаю как именно в данном случае сделать...Вот вам пример кода на c++, код рабочий, но в pascal я редко программирую...Не смог написать на pascal через for, потому что в c++ мы типа не учитывали нач.... https://www.cyberforum.ru/ free-pascal/ thread1681756.html
Free Pascal Вывести на экран N окружностей (координаты центра, цвет, радиус окружности генерируются случайным образом) Помогите с контрольной: Вывести на экран N окружностей (координаты центра, цвет, радиус окружности генерируются случайным образом). (Free Pascal) https://www.cyberforum.ru/ free-pascal/ thread1681328.html	Определите минимальное и максимальное значение, среднее арифметическое Free Pascal Добрый вечер(день). Очень нужна помощь с процедурой (её и функцию просто не понимаю :( ) Есть готовый код решенной задачи и нужно её переделать под процедуру. Зарание спасибо. Вот условие задачи: Напишите программу анализа значений температуры больного за сутки: определите минимальное и максимальное значение, среднее арифметическое. Замеры температуры производятся шесть раз в сутки и...
Free Pascal Построение равностороннего треугольника и заполнение его некоторым цветом Написать программу построения равностороннего треугольника и заполнения его некоторым цветом после нажатия на клавишу Enter. https://www.cyberforum.ru/ free-pascal/ thread1680250.html	Free Pascal Модуль для вычисления логарифма https://www.cyberforum.ru/ free-pascal/ thread1679745.html Создать свой модуль для вычисления логарифма числа и программу, проверяющую работоспособность модуля: вычисление значений функции z=(x!+y!)/(lg(x-1)) , где x, y вводятся с клавиатуры.
Вывести оценки студента за семестр в виде таблицы Free Pascal Тематика: "Оценки определенного студента из 15 предметов за семестр (целые положительные числа от 1-12)". Массив выводится в виде таблицы со всеми подписями столбца и рядка. Добавлено через 1 час 12 минут НУЖНО: 1 окно - стартовая страничка – данные о программе и её разработчике. Посля запуска данного окна происходит загадывание массива случайным образом. 2 окно - главное меню программы...	Free Pascal Создать функцию, которая у каждой строки из введенного набора удаляет все символы, совпадающие с первым https://www.cyberforum.ru/ free-pascal/ thread1679011.html Разработать функцию DelFirst(const S:string):string, возвращающую строку, в которой удалены все символы, совпадающие с первым в строке S (также и первый символ). С помощью данной функции у каждой строки из введенного набора удалить все символы, совпадающие с первым.

bormant

Модератор

7795 / 4618 / 2831

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

Сообщений: 13,114

Записей в блоге: 1

17.03.2016, 17:58

Создать новый файл, в котором чередовались бы элементы исходных файлов - Free Pascal - Ответ 8895801

17.03.2016, 17:58. Показов 1625. Ответов 14

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

Ответ

Hikari,
для числовых данных там проблема несколько другого свойства, именно из-за нее введены SeekEoF и SeekEoLn.

Суть проблемы: если после последнего числа во входном потоке есть пробельные символы (разделитель строк -- он же возврат каретки+перевод строки либо по отдельности -- входит в их число), то из потока будет прочитан лишний 0. Если для проверки на конец файла используется EoF, то в этом случае указатель стоит не в конце файла, EoF=False; но стоит попытаться прочитать очередное число, Read пропустит все пробельные символы, упрется в конец файла, закончит чтение, считываемая числовая переменная будет равна 0.
Комбинация EoF/ReadLn способна помочь в этой ситуации только в одном случае, когда после последнего числа стоит перевод строки и конец файла, именно в этой ситуации Read даст отсутствующий в данных 0. Если же перед концом файла есть хоть один пробельный символ, ошибочное поведение будет точно такое же, как и у Read.

SeekEoF полностью избавляет от подобной ошибки, сдвигая указатель до первого непробельного символа перед проверкой на EoF.

Сообщение от Hikari

попадались мне случаи, когда read() не делал этого именно текстовых файлах.

Здесь речь про чтение строковой переменной (string) -- в этом случае, в отличие от числовых переменных, Read сам не перейдет на новую строку без ReadLn. Но мы же сейчас про числа, не про строки?

То есть, для TP/FPC вполне годится:

Pascal

var
  fa, fb, fc, fd, fe: Text;
  a, b, c, d: Integer;
...
while not SeekEoF(fa) and not SeekEoF(fb) and not SeekEoF(fc) and not SeekEoF(fd) do begin
  Read(fa,a); Read(fb,b); Read(fc,c); Read(fd,d); WriteLn(fe, a, b, c, d);
end;
...

Добавлено через 17 минут
В сухом остатке:

Pascal

const W=4;
var
 f: array [1..5] of file of Integer;
 i, j, e: Integer;
 b: Boolean;
 s: String;
begin
  Randomize;
  for i:=1 to 5 do begin
    Write('S',Chr(Ord('A')+i-1),': '); ReadLn(s); 
    Assign(f[i],s); Rewrite(f[i]);
  end;
  for i:=1 to 4 do begin
    Write('F',Chr(Ord('A')+i-1),':');
    for j:=1 to 5+Random(6) do begin
      e:=Random(1000); Write(f[i],e); Write(e:W);
    end; WriteLn;
  end;
  for i:=1 to 4 do Seek(f[i],0);
  WriteLn('FE:');
  repeat
    b:=False; for i:=1 to 4 do b:=b or EoF(f[i]);
    if b then Break;
    for i:=1 to 4 do begin
      Read(f[i],e); Write(f[5],e); Write(e:W);
    end; WriteLn;
  until False;
  for i:=1 to 5 do Close(f[i]);
end.

Вернуться к обсуждению:
Создать новый файл, в котором чередовались бы элементы исходных файлов Free Pascal

Следующий ответ

Заказать работу у эксперта

cpp_developer

Эксперт

20123 / 5690 / 1417

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

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

Блог

17.03.2016, 17:58

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

Создать новый файл с именем NameD, в котором чередовались бы элементы исходных файлов
Доброе время суток друзья! Надеюсь на ваше мастерство,вот значит задачка.... Даны три файла...

Работа с файлами. Даны три файла целых чисел. Создать новый файл, в котором чередовались бы элементы исходных файлов
Даны три файла целых чисел одинакового размера с именами SA, SB, SC и строка SD. Создать новый файл...

Создать файл, в котором чередовались бы элементы исходных файлов
Даны три файла целых чисел одинакового размера с именами NameA, NameB и NameC. Создать новый файл с...

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

	17.03.2016, 17:58

raxper

Эксперт

30234 / 6612 / 1498

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

Сообщений: 21,154

Блог

17.03.2016, 17:58

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

Файлы. Создать новый текстовый файл, являющийся объединением содержимого исходных файлов
Помогите пожалуйсто с программой 1.Даны два текстовых файла с именами Name1 и Name2. Создать новый...

Используя стек, создать другой текстовый файл, в котором бы числа и слова чередовались
Помогите пожалуйста решить задачу,Создать текстовые файлы, содержащие один текстовую, а другой...

написать функцию которая на основе двух списков формирует новый список в котором чередуются элементы исходных
написать функцию которая на основе двух списков формирует новый список в котором чередуются...

Файлы: В новый файл записать все латинские буквы исходных файлов
3. Даны символьные файлы F и G. В файл H записать все латинские буквы (большие и маленькие) файлов...

Cравнить два файла, создать новый файл, в котором одинаковые данные сравниваемых файлов должны быть заполнены "нулями"
есть код using System; using System.IO; using System.Text; using System.Windows.Forms; ...

Файл: Создать новый файл, в котором будут содержаться фамилии с итоговой оценкой
Дан файл со списком класса и несколькими оценками на каждого в виде: Иванов 3 4 5 5 4 Петров 4 4...

Новые блоги и статьи
Telegram бот на C# InfoMaster 08.01.2025 Разработка ботов для Telegram стала неотъемлемой частью современной экосистемы мессенджеров. C# предоставляет мощный и удобный инструментарий для создания разнообразных ботов, от простых. . .	Использование GraphQL в Go (Golang) InfoMaster 08.01.2025 Go (Golang) является одним из наиболее популярных языков программирования, используемых для создания высокопроизводительных серверных приложений. Его архитектурные особенности и встроенные. . .	Что лучше использовать при создании класса в Java: сеттеры или конструктор? Alexander-7 08.01.2025 Вопрос подробнее: На вопрос: «Когда одновременно создаются конструктор и сеттеры в классе – это нормально?» куратор уточнил: «Ваш класс может вообще не иметь сеттеров, а только конструктор и геттеры. . .	Как работать с GraphQL на TypeScript InfoMaster 08.01.2025 Введение в GraphQL и TypeScript В современной разработке веб-приложений GraphQL стал мощным инструментом для создания гибких и эффективных API. В сочетании с TypeScript, эта технология. . .	Счётчик на базе сумматоров + регистров и генератора сигналов согласования. Hrethgir 07.01.2025 Создан с целью проверки скорости асинхронной логики: ранее описанного сумматора и предополагаемых fast регистров. Регистры созданы на базе ранее описанного, предполагаемого fast триггера. То-есть. . .	Как перейти с Options API на Composition API в Vue.js BasicMan 06.01.2025 Почему переход на Composition API актуален В мире современной веб-разработки фреймворк Vue. js продолжает эволюционировать, предлагая разработчикам все более совершенные инструменты для создания. . .
Архитектура современных процессоров inter-admin 06.01.2025 Процессор (центральный процессор, ЦП) является основным вычислительным устройством компьютера, которое выполняет обработку данных и управляет работой всех остальных компонентов системы. Архитектура. . .	История создания реляционной модели баз данных, правила Кодда Programming 06.01.2025 Предпосылки создания реляционной модели В конце 1960-х годов компьютерная индустрия столкнулась с серьезными проблемами в области управления данными. Существовавшие на тот момент модели данных -. . .	Полезные поделки на Arduino, которые можно сделать самому raxper 06.01.2025 Arduino как платформа для творчества Arduino представляет собой удивительную платформу для технического творчества, которая открывает безграничные возможности для создания уникальных проектов. Эта. . .	Подборка решений задач на Python IT_Exp 06.01.2025 Целью данной подборки является предоставление возможности ознакомиться с различными задачами и их решениями на Python, что может быть полезно как для начинающих, так и для опытных программистов. . . .	С чего начать программировать микроконтроллеры raxper 06.01.2025 Введение в мир микроконтроллеров Микроконтроллеры стали неотъемлемой частью современного мира, окружая нас повсюду: от простых бытовых приборов до сложных промышленных систем. Эти маленькие. . .	Из чего собрать игровой компьютер inter-admin 06.01.2025 Сборка игрового компьютера требует особого внимания к выбору комплектующих и их совместимости. Правильно собранный игровой ПК не только обеспечивает комфортный геймплей в современных играх, но и. . .

Наверх