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

Основные операции с текстовыми файлами - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Известна оценка каждого ученика по физике... http://www.cyberforum.ru/cpp-beginners/thread391939.html
Известна оценка каждого ученика по физике, посчитать сколько пятерок, количество человек в классе, четверок, трояк, и двоек..
C++ Квадратная матрица Помогите решить: Дана квадратная матрица. Найти строчку с наибольшим и наименьшим произведением элементов. Вывести на печать полученные суммы их элементов. http://www.cyberforum.ru/cpp-beginners/thread391927.html
C++ в файл записать элементы массива
Привет. Ребята, пожалуйста, помоготе. У меня уже мозг едет, не могу написать программу. Задача така: Надо в файл записать элементы массыва, которые кратные 5. У меня туго с программированием (меня...
C++ Заменить заданную строку матрицы а на вектор b
Дана 4х4 , вектор b размерностью 4. Заменить заданную строку матрицы а на вектор b. Номер строки матрицы а вводить с клавиатуры. Матрицу и вектор инициализировать в программе. Добавлено через...
C++ Проверить, совпадают ли два введённых слова http://www.cyberforum.ru/cpp-beginners/thread391919.html
1. Проверить, совпадают ли два введённых слова (есть решённая) 2. Вставить вместо "т", стоячей на нечётном месте букву "у". Помогите со вторым вопросом
C++ Класс квадратных уравнений Всем привет. Написал класс квадратных уравнений и программу, которая его использует (решает их). Все работает, но по возможности проверьте, пожалуйста и не скажите, где и почему я не прав.... подробнее

Показать сообщение отдельно
-=Дрюня=-
0 / 0 / 0
Регистрация: 11.10.2011
Сообщений: 17

Основные операции с текстовыми файлами - C++

25.11.2011, 22:31. Просмотров 415. Ответов 0
Метки (Все метки)

Доброго времени суток!
Помогите перевести программку с паскаля на С++.
Зарание большое спасибо.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Program Text;
const
 add1='test.txt';
 add2='test2.txt';
var
 f,f2:text;
 s:string;
Begin
 Assign(f,add1);
 Assign(f2,add2);
 reset(f);
 rewrite(f2);
 while not eof(f)do
 begin
 readln(f,s);
 writeln(f2,s);
 end;
 close(f2);
 close(f);
 Erase(f);
 rewrite(f);
 write('Введите строку: '); readln(s);
 writeln(f,s);
 reset(f2);
 while not eof(f2)do
 begin
 readln(f2,s);
 writeln(f,s);
 end;
 close(f2);
 close(f);
 Erase(f2);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru