Форум программистов, компьютерный форум CyberForum.ru

Перевести код паскаля в с++ - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ Вычислить значение составной функции http://www.cyberforum.ru/cpp-beginners/thread673785.html
здравствуйте помогите пожалуйста надо вычислить по формуле данное уравнение благодарю за помощь
C++ Инверсия строк Помогите найти ошибку,почему выводиться строки с лишними символами ? #include "stdafx.h" #include <cstdlib> #include <iostream> #include <string> using namespace std; char * reverse(string str) http://www.cyberforum.ru/cpp-beginners/thread673781.html
C++ репр
Напишіть програму, що сортує символи введені з клавіатури рядка в порядку зростання їх номерів в ASCII-таблиці.
Что данная программа на печатает на screen? C++
Подскажите, пл что данная программа на печатает на screen? int tenure = -5; if (tenure + 5) printf("Congratulations!"); else printf("Sorry"); Question options: A) Congratulations!
C++ Подскажите, пожалуйста, с ответами http://www.cyberforum.ru/cpp-beginners/thread673768.html
Какая из перечисленных функций конвертирует ASCII string в целое число: A) string itoa (int) B) double atof (string) C) int atoi (string) D) int toupper (int)? Какая из перечисленных функций читает внутреннее компьютерное время в секундах: A) stime () B) time (SECONDS) C) time ()
C++ Удаление начальных и конечных пробелов в строке Доброго времени суток! Задание: предложите 2 вар-та функции, удаляющие начальные и концевые пробелы в строке. шапка: #include "stdafx.h" #include <iostream> #include <string> using namespace std; using namespace System; подробнее

Показать сообщение отдельно
xzibit777999
1 / 1 / 0
Регистрация: 17.09.2012
Сообщений: 68
17.10.2012, 23:34     Перевести код паскаля в с++
Нужно перевести данный код паскаля в с++. Задание: Найти в строке все заданные последовательности символов и заменить их другой последовательностью.

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
var
    s_out, s_in, str: string;
    f     : text;
    i, len : integer;
begin
    assign(f,'c:/text.txt');
    reset(f);
    writeln('What cut? ');
    readln(s_out);
    writeln('What paste? ');
    readln(s_in);
    len := length(s_out);
    while not Eof(f) do begin
        readln(f,str);
        i := 1;
        while i<>0 do begin
            i := pos(s_out,str);
            if i<>0 then begin
                delete(str,i,len);
                insert(s_in,str,i);
            end;
        end;
 
    end;
    writeln(str);
    close(f);
readln
end.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 21:24. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru