Форум программистов, компьютерный форум, киберфорум
Наши страницы

Заменить в файле все знаки "+" на знаки "-", а знаки "-" на знаки "+" - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Не используя функций определить члены последовательности, являющиеся квадратами четных чисел http://www.cyberforum.ru/cpp-beginners/thread751022.html
Даны натуральные числа n, a,...,a. Определить количество членов a последовательности a,...,a, являющихся квадра- тами четных чисел. Не используя функций
C++ Ссылки в С++ void swap(int& i, int& j) { int tmp = i; i = j; j = tmp; } int main() { int x, y; http://www.cyberforum.ru/cpp-beginners/thread751019.html
Как доделать длинную целочисленную арифметику? C++
Операторы: сравнения присваивания, сложения, вычитания, левого и правого сдвига, деления, остатка, умножения, приведения к обычному целому, унарный минус, деструктор и конструкторы реализованы, тесты...
C++ Найти 100 первых простых чисел
найти 100 первых простых чисел
C++ Оператор while http://www.cyberforum.ru/cpp-beginners/thread751001.html
Поскольку я еще начинающий, то задам такой вопрос: В цикл while мне нужно поставить несколько условий, вот, что я пишу: while (a1 = a2; a1 = a3; a1 = a4; a1 = a5; a1 = a6; a1 = a7; a1 = a8; a1 =...
C++ По результату определить загаданное число Клоун предложил каждому из публики задумать число. Потом он сказал: «Прибавьте к задуманному числу 5. Теперь из результата вычтите 2. А теперь к результату прибавьте 7». Потом клоун спросил у... подробнее

Показать сообщение отдельно
Buuren
0 / 0 / 0
Регистрация: 02.12.2012
Сообщений: 12

Заменить в файле все знаки "+" на знаки "-", а знаки "-" на знаки "+" - C++

02.01.2013, 12:23. Просмотров 641. Ответов 16
Метки (Все метки)

Добрый день помогите перевести код на Паскале на язык C++.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
uses crt;
const
a='+';
b='-';
var
f : Text;
st: String;
i: Byte;
begin
Writeln('Введите текст: ');
Readln(st);
   Assign(f, 'File.txt');
   Rewrite(f);
   Writeln(f, st);
   Close(f);
for i:=1 to Length(st) do
 if st[i]=b then st[i]:=a;
   Writeln(st);
   Rewrite(f);
   Writeln(f, st);
   Close(f);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru