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

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
Alexandr1966
25 / 25 / 1
Регистрация: 17.12.2012
Сообщений: 438
#1

Перевести с Pascal на C++ - C++

17.09.2013, 18:07. Просмотров 371. Ответов 4
Метки нет (Все метки)

Всем привет) есть задачи:
2) Слова, содержащие сочетание ‘кот’, расположить в конце последовательности, сохраняя исходный порядок следования слов.

Есть решение этих задач, но нужно мне помочь перевести их на C или C++. Помогите пожалуйста, очень нужно) коды ниже:

2 задача:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program OverLord;
 
uses crt;
var s,s1,s2:string;
    i,j,k:integer;
BEGIN
  clrscr;
  repeat
    clrscr;
    writeln('Напечатайте exit для выхода из программы ');
    writeln('Слово состоит ', s1);
    write('Введите слово: ');
    readln(s);
    s1:='из парных';
    for i:=1 to length(s) do
      begin
        k:=0;
        for j:=1 to length(s) do
          if s[i]=s[j] then k:=k+1;
        if k=1 then s1:='не из парных символов'
      end;
  until s='exit';
END.
Или может как то по другому эти задачи можно правильно решить, буду очень признаетелен если поможете)))

Добавлено через 6 минут
реализовать в консольном приложении VS 2008 нужно)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.09.2013, 18:07
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перевести с Pascal на C++ (C++):

Перевести из Pascal в С++ - C++
Заранее благодарен var s, a, x :real;i,j, fac: integer; begin cls; readln(x); begin for j:=1 to 15 do fac:=fac*(j*2+1); ...

Перевести с pascal на с++ - C++
uses crt; var i_put,o_put:string; i,s_ch,n:byte; flag:boolean; Begin ClrScr; writeln('Vvedite stroku:'); ...

Перевести с Pascal на C++ - C++
Есть код на Паскале, хотел бы сам перевести его в С++, но подчистую забыл, что такое Паскаль. Помоги, люди добрые) procedure sort(var...

Перевести с Pascal на C++ - C++
Здравствуйте! Переведите пожалуйста данный код с Pascal на C++: var n, i, j, cnt, p, found, best, first, ind : longint; s :...

Перевести с pascal на c++ - C++
Помогите тоже перевести из Pascal в с+ visual studio 6.0 Нашел тут похожую на свою задачу, хочу разобраться, но учу только с++ (( ...

Перевести с Pascal на C++ - C++
var n:longint;max:integer; begin writeln('n='); readln(n); max:=0 ; while n>0 do begin if max<n mod 10...

4
Пёс
228 / 76 / 4
Регистрация: 03.02.2013
Сообщений: 311
17.09.2013, 18:39 #2
Вот 2я
C++
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
#include <iostream>
#include <string>
using namespace std;
 
int main()
{
    string s1 = "";
    do
    {
        cout << "Напечатайте exit для выхода из программы" 
             << "Слово состоит " << s1 << "\nВведите слово: ";
        string s;
        cin >> s;
        s1 = "из парных";
        for(int i = 0; i < s.size(); i++)
        {
            int k = 0;
            for(int j = 0; s.size(); j++)
                if(s[i]==s[j])
                    k++;
                if(k==1)
                    s1 = "не из парных символов";
        }
    }while(s!="exit")
    return 0;
}
Добавлено через 1 минуту
З.Ы. Просто перевёл с паскаля на С++
0
Alexandr1966
25 / 25 / 1
Регистрация: 17.12.2012
Сообщений: 438
18.09.2013, 06:47  [ТС] #3
а работает нормально, условие задачи выполняет?)
0
Alexandr1966
25 / 25 / 1
Регистрация: 17.12.2012
Сообщений: 438
20.09.2013, 13:58  [ТС] #4
есть кто может исправить прогу??
0
rublag
20.09.2013, 16:06     Перевести с Pascal на C++
  #5

Не по теме:

я же в соседней теме написал код, неужели так сложно переделать по аналогии и проверить?

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.09.2013, 16:06
Привет! Вот еще темы с ответами:

Перевести с Pascal на C++ - C++
Была цепь длиной L, N рыбин. Зная координаты головы и хвоста каждой из них, подсчитайте, на какие сутки у собаки появится голод, если он...

Перевести с Pascal на С++ - C++
Нужно перевести начало, хотяб до процедур из Pascal на С++ Я застрял на пункте x:array of pp; и не могу понять, как это в С++ прописать...

Перевести из Pascal на C++ - C++
Var n,p1,p2,i,k,j:integer; Begin write('Введите N: ');readln(n); For i:=n-1 downto 2 do Begin k:=0; For...

перевести с Pascal на С++ - C++
переведите пожалуйста на С++ uses crt; var a,s,x:real; i:integer; eps:real; function fct(n:integer): real; var f: real;...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
Yandex
Объявления
20.09.2013, 16:06
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru