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

Pascal to C++ - C++

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

Показать сообщение отдельно
i_SamSky
 Аватар для i_SamSky
6 / 6 / 0
Регистрация: 13.04.2012
Сообщений: 57
21.04.2012, 20:46     Pascal to C++
Может кто-нибудь перевести из 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.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 09:24. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru