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

Переписать из Паскаля в С++(считывание и запись в файл) - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ В двумерном массиве подсчитать http://www.cyberforum.ru/cpp-beginners/thread584432.html
Для каждой строки в двумерном массиве подсчитать количество положительных элементов и записать данные в новый массив. Помогите плз, а то в голову ничего не лезет!( (Желательно как можно проще)
C++ Улитка.Матрицу M (m,n) заполнить натуральными числами от 1 до m*n по спирали, начинающей в левом верх Помогите пожалуйста решить задачу по BORLAND С++ Улитка.Матрицу M (m,n) заполнить натуральными числами от 1 до m*n по спирали, начинающей в левом верхнем углу и закрученной на часовой стрелке. http://www.cyberforum.ru/cpp-beginners/thread584429.html
построить результат сглаживания заданной вещественной матрицы C++
Здравствуйте! пожалуйста, кто-нибудь помогите с задачкой
Ошибка компиляции программы C++
Всем доброго вечера. Не получается запустить программу, в чем может быть дело ? Компилятор Турбо Си++ 3.0 #include <iostream.h> template < typename T > T max( T a, T b ) { return ( ( a > b...
C++ Переменная-счетчик http://www.cyberforum.ru/cpp-beginners/thread584421.html
Как в файл записать переменную счетчик, чтобы при выходе из программы она сохраняла свое значение и могла изменяться и вновь записывать в файл? Добавлено через 18 секунд Ооочень нужно=)
C++ Определить: количество цифр в тексте #include <stdio.h> main() { char s; // текущий символ текста char prs; // предыдущий символ short net=1; // признак, имеется ли "BA" в тексте //... подробнее

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

Переписать из Паскаля в С++(считывание и запись в файл) - C++

23.05.2012, 18:15. Просмотров 208. Ответов 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
34
35
36
uses crt;
var f,g: text;
    s,sp: string;
    et,i: byte;
begin
assign(f,'C:\in.txt');
assign(g,'C:\out.txt');
reset(f);
rewrite(g);
while (not(eof(f))) and (et=0) do
      begin
      readln(f,s);
      if pos('.',s)<>0 then
         begin
         inc(et);
         delete(s,pos('.',s),length(s)-pos('.',s)+1);
         end;
      repeat
      if length(s)<=20 then
         begin
         write(g,s);
         for i:=1 to 20-length(s) do
             write(g,'*');
         writeln(g);
         s:='';
         end else
         begin
         sp:=copy(s,1,20);
         writeln(g,sp);
         delete(s,1,20);
         end;
      until s='';
      end;
close(f);
close(g);
end.
Её нужно перевести в C++, но я сам на си ещё не разу не программировал. На паскале я пару задач сделал сам, эту предоставленную помогли сделать тут на форуме. Как оказалось её как раз надо переписать под си а остальные оставить на паскале...незадача.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.