Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Напишите программу вычисления N-го члена последовательности https://www.cyberforum.ru/ pascal/ thread150673.html
Напишите программу вычисления N-го члена последовательности, начинающейся с единицы, в которой каждый следующий член равен сумме обратных величин всех предыдущих;
Pascal Записи и множества
1.Составить программу, выводящую на экран график отпусков (Ф. И. О., дата начала отпуска, дата выхода на работу, количество дней). 2.Сформировать запись, имеющую следующую структуру type спортсмен=record фамилия:string; страна:string; тренер:string; год рождения:ineger; результат:integer; end; и определить: o найти самого молодого спортсмена, занимающегося у данного тренера; o найти...
Pascal Массив https://www.cyberforum.ru/ pascal/ thread150671.html
Если в заданном целочисленном векторе A(N) есть элементы со значением, равным заданному числу B, то переменной С присвоить значение, равное сумме всех элементов, предшествующих первому по порядку такому элементу; в противном случае вывести соответствующий текст.
Pascal количество положительных и отрицательных элементов https://www.cyberforum.ru/ pascal/ thread150669.html
1. С клавиатуры вводится последовательность из n целых чисел (n вводится с клавиатуры). Найти количество положительных и отрицательных элементов данной последовательности.
Методом Гаусса решить системы линейных алгебраических уравнений Pascal
1. Методом Гаусса решить системы линейных алгебраических уравнений Ax=b. матрица А размера 3 на 3,
Pascal Дано 2 действительных числа Х и Y вывести первое чилсло, если x>y и два числа, если это не так Дано 2 числа Х и Y. Вывести на экран первое число, если х>y и два числа, если это не так https://www.cyberforum.ru/ pascal/ thread150652.html
Pascal Конечный автомат нужен для зачёта!!! Помогите пожалуйста бедному студенту - которому необходима данная программа для зачёта... Вот задание: Программа проверки описания перечислимого и ограниченного типа. За ранее Огромное спасибо. https://www.cyberforum.ru/ pascal/ thread150650.html Pascal Определить, является ли введенное число N четным
Определить является ли введенное вами число N четным. Для четного числа извлечь квадратный корень, если оно положительное, в противном случае - возвести в куб. Для нечетного числа вывести соответствующее сообщение.
Pascal составить блок схему для данной программы uses crt; const n=5; var a:array of integer; i,j:byte; s:integer; begin clrscr; randomize; writeln('Исходная матрица:'); s:=0; https://www.cyberforum.ru/ pascal/ thread150634.html Pascal выходной или рабочий день https://www.cyberforum.ru/ pascal/ thread150627.html
для любого числа текущего месяца определить - выходной или рабочий день или выдать сообщения о том, что в етом месяце такого числа нет.. Добавлено через 19 часов 40 минут для любого числа текущего месяца определить - выходной или рабочий день или выдать сообщения о том, что в етом месяце такого числа нет..
Написать программу Pascal
Написать программу, которая по заданным трем числам определяет, является ли сумма каких-либо двух из них положительным.
Pascal Вычислить сумму и произведение элементов матрицы Дана целочисленная матрица A(N,M). Вычислить сумму и произвести тех её элементов, которые при делении на два дают нечётные числа. https://www.cyberforum.ru/ pascal/ thread150614.html
2835 / 1644 / 254
Регистрация: 03.12.2007
Сообщений: 4,222
30.06.2010, 21:57 0

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

30.06.2010, 21:57. Показов 3695. Ответов 1
Метки (Все метки)

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

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var
  fin, fout: Text;
  c: Char;
begin
  Assign(fin, 'input.txt');
  Assign(fout, 'output.txt');
  Reset(fin);
  Rewrite(fout);
  while not eof(fin) do
  begin
    Read(fin, c);
    case c of
      '0': c := '1';
      '1': c := '0';
    end;
    Write(fout, c);
  end;
  Close(fin);
  Close(fout);
end.


Вернуться к обсуждению:
Имеется текстовый файл. Переписать в другой файл все его строки с заменой в них символа 0 на символ 1 и наоборот. Pascal
2
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.06.2010, 21:57
Готовые ответы и решения:

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

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

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

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

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

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

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

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

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

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