Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Free Pascal Ввести двумерный массив 10х10 и создать одномерный массив с упорядоченными по убыванию элементами двумерного массива. Здравствуйте, срочно нужна помощь! 1. Ввести двумерный массив 10х10 и создать одномерный массив с упорядоченными по убыванию элементами двумерного массива. 2. Определить является ли сумма цифр заданного числа нечетной.Запрещено создавать темы с множеством вопросов во всех разделах, кроме разделов платных услуг. Один вопрос - одна тема. https://www.cyberforum.ru/ free-pascal/ thread512758.html проверка дурака Free Pascal
uses crt; type telem=real; var soz:integer; f:file of telem; i,j,i1,ns1,ns2,c:integer; el,max:single;
Free Pascal Не хватает памяти Здравствуйте! В задаче "E. ОПТОВОЛОКНО 2" (условия прикрепляю) во входных данных оговорено, что максимально может быть 4*10^6=4 000 000 посёлков, каждый имеет координаты X,Y и значение каждой из координат по модулю максимально равно 10^4=10 000. Ограничение по памяти - 32 МБ. Один только массив для координаты X для каждого посёлка будет в Паскале занимать 4 000 000*4=16 000 000 (т.е.,... https://www.cyberforum.ru/ free-pascal/ thread512524.html Free Pascal Найти наибольшее значение n, при котором U становится меньше числа a=10^-6 Напишите в Паскале плиз!!Найти наибольшее значение n, при котором U становится меньше числа a=10^-6 U=n/ln(n!) Заранее спасибо!!! https://www.cyberforum.ru/ free-pascal/ thread512388.html
Free Pascal Записать матрицу в файл
как матрицу записать в файл ?? у меня выдает ошибку когда я пытаюсь вставить массив сюда\ Код: .................. for i:=1 to n do begin for j:=1 to n do write(f,mas);
Free Pascal вычислить выражение на отрезке xє[Xn,Xk] с шагом дельта x https://www.cyberforum.ru/ free-pascal/ thread512369.html
Напишите в Паскале плиз: вычислить выражение на отрезке xє с шагом дельта x. Исходные данные задать самостоятельно.
Free Pascal вычислить выражение на отрезке с xє[Xn,Xk] с шагом дельта x https://www.cyberforum.ru/ free-pascal/ thread512363.html
Напишите пожалуйста программу: вычислить выражение на отрезке с xє с шагом дельта x. Исходные данные задать самостоятельно
Free Pascal Определить какой из взносов наиболее прибыльный для вкладчика
Банк предлагает три вида срочных вкладов: на 3 месяца под p1 процентов, на 6 месяцев под p2 процентов и на год под p3процентив.Визначити какой из взносов наиболее прибыльный для вкладчика Заранее спасибо!!!!
Free Pascal Ошибка в программе из под компилятора FPC https://www.cyberforum.ru/ free-pascal/ thread512179.html
Люди помогите с кодом. При компиляции в FPC, программа завершает работу с ошибкой Runtime error 216, при компиляции кода в BP7 программа работает без ошибок. Ошибка в стр.158 процедуре pr_DirectFusion. program lab3; uses Crt; const chis=;{Массив для работы меню} type PInf = ^TInf; TInf = record {Запись для элемента очереди}
Free Pascal две задачи по Free Pascal Помогите по задачам 1)Составить программу для решения следующей задачи, используя цикл for: Дано n-значное целое число, записать его цифры в обратном порядке 2)Составить программу для решения следующей задачи, используя цикл while или repeat: Дано натуральное число п. Определить, сколько в числе нулей. https://www.cyberforum.ru/ free-pascal/ thread512110.html
Free Pascal Не компилируется FreePascal 2.0.4 С ключем -Mdelphi
Код не компилируется имеено этим компилятором. Что делать? Program A; var number: string; K: integer; M:longint; i: integer; Vivod: array of string; z: byte; dlina: byte; digit: byte;
Free Pascal В последовательности с N В последовательности с N целых положительных элементов найти число с наибольшим количеством нулей в своей записи https://www.cyberforum.ru/ free-pascal/ thread512082.html
Mobile Software Engineer
Эксперт С++
5381 / 1585 / 956
Регистрация: 23.01.2011
Сообщений: 3,214
06.03.2012, 18:53 0

Переписать в файл g все компоненты файла f с заменой в них символа 0 на символ 1 и наоборот - Free Pascal - Ответ 2765830

06.03.2012, 18:53. Показов 3527. Ответов 1
Метки (Все метки)

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

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
const
  DirectionA = 'C:\FileA.txt';
  DirectionB = 'C:\FileB.txt';
var
  FileA, FileB: text;
  Str: string;
  i: byte;
begin
  assign(FileA, DirectionA);
  reset(FileA);
  assign(FileB, DirectionB);
  rewrite(FileB);
  while not EOF(FileA) do
  begin
    readln(FileA, Str);
    for i:=1 to length(Str) do
      if Str[i] = '0' then Str[i]:='1'
        else if Str[i] = '1' then Str[i]:='0';
    write(FileB, Str);
  end;
  close(FileB);
  close(FileA);
end.


Вернуться к обсуждению:
Переписать в файл g все компоненты файла f с заменой в них символа 0 на символ 1 и наоборот Free Pascal
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.03.2012, 18:53
Готовые ответы и решения:

Переписать в файл g все компоненты файла f с заменой символа 0 на символ 1 и наоборот
дан текстовый файл f.переписать в файл g все компоненты файла f с заменой в них символа 0 на...

Дан текстовый файл Т1. Переписать в файл Т2 все компоненты файла Т1 с заменой в них символа «0» на символ «1» и наоборот.
Добрый вечер. Есть такая вот задачка. Помогите пожалуйста... Дан текстовый файл Т1. Переписать...

Имеется текстовый файл. Переписать в другой файл все его строки с заменой в них символа 0 на символ 1 и наоборот.
Имеется текстовый файл. Переписать в другой файл все его строки с заменой в них символа 0 на...

Даны два символьных файла. Переписать с сохранением порядка следования компоненты первого файла во второй файл и наоборот.
Плиз прошу помочь с задачами: 1)Из введенного текста распечатать только те слова, которые...

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

Задан текстовый файл F. Переписать компоненты файла F в файл H, вставить в начале и середине строк символ пробела. Порядок компонентов сохранить
Задан текстовый файл F. Переписать компоненты файла F в файл H, вставить в начале и середине строк...

Переписать в файл G все компоненты файла F, меняя местами соседние элементы
Здравствуйте, помогите пожалуйста решить данную задачу. Дан файл F, компонентами которого...

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

Переписать с сохранением порядка следования компоненты файла f1 в файл f2, а компоненты файла f2 в файл f1
Даны текстовые файлы f1 и f2. Переписать с сохранением порядка следования компоненты файла f1 в...

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