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

Pascal to C++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Сумма по строкам в матрице и индексы http://www.cyberforum.ru/cpp-beginners/thread554583.html
Есть программа, решение слау, не суть важно, нужно выяснить, есть ли в матрице А диагональное преобладание (а если нет - то вывести номер строки, где оно нарушается), т.е. модуль элементов на гл....
C++ Позиция элемента в контейнере STL кон. SET, поиск контейнер set словарь позиция Есть код №1. Он выводить на экран позицию нужного мне слова (только если в середине 1 слово а не 2 и больше например только "privet". А когда "privet kak dela" - он не хочет работать), которое я ищу... http://www.cyberforum.ru/cpp-beginners/thread554580.html
Узнать, есть ли элемент на определенной позиции в экземпляре std::vector C++
Подскажите пожалуйста, как узнать есть ли элемент на определенной позиции в экземпляре std::vector? Например есть: vector<int> intVector; Нужно узнать есть ли что нибудь на позиции i: intVector ...
C++ Консольная программа тестирования [работа с текстовыми файлами]
Здравствуйте. Первый раз программирую на С++. Есть "ТЗ": разработать программу для тестирования знаний учащихся (курсач). Подскажите, есть ли на этом форуме похожие темы? Поиском пользовался, но то...
C++ Метод Милна. Расчет по нескольким уравнениям. http://www.cyberforum.ru/cpp-beginners/thread554559.html
Приветствую вас. Очень помощь нужна мне © Йода XD. Нужно модернизировать программку, чтобы можно было производить расчет по нескольким уравнениям, а не по одному, заданному программой. Ниже вложено...
C++ Описаие класса Задание: Классы Террит единица, область, растение, дерево, цветок,страна. запросы: вывести перечень растений указанного вида, произросшего в террит единице указанного вида; вывести... подробнее

Показать сообщение отдельно
i_SamSky
6 / 6 / 0
Регистрация: 13.04.2012
Сообщений: 57

Pascal to C++ - C++

21.04.2012, 20:46. Просмотров 766. Ответов 7
Метки (Все метки)

Может кто-нибудь перевести из Pascal на C++?
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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
var 
    os: string; 
    s: string; 
    p: integer; 
    ts: string; 
    c: boolean; 
begin 
    Assign(input, 'input.txt'); 
    reset(input); 
    Assign(output, 'output.txt'); 
    rewrite(output); 
 
    while not EOF(input) do 
    begin 
        readln(os); 
        c:= false; 
        s:=os; 
 
        repeat 
            p := Pos(' ', s); 
            if p>0 then Delete(s, p, 1); 
        until p=0; 
 
        ts := Copy(s, Length(s)-2, 3); 
        if (ts='+1;') or (ts='-1;') then 
        begin 
          Delete(s, Length(s)-2, 3); 
          p := pos(':=', s); 
          if p>0 then 
          begin 
            if Length(S) mod 2 = 0 then 
            begin 
                if Copy(s, 1, Length(s) div 2-1) = Copy(s, 2+Length(s) div 2, Length(s)) then 
                begin 
                    c:= true; 
                    if ts[1] = '-' then 
                        s := 'Dec('+Copy(s, 1, Length(s) div 2-1)+');' 
                    else 
                        s := 'Inc('+Copy(s, 1, Length(s) div 2-1)+');' 
 
                end; 
            end; 
          end; 
 
        end; 
        if c then 
            writeln(s) 
        else 
            writeln(os); 
    end; 
 
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru