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

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

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

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

17.09.2013, 18:07. Просмотров 366. Ответов 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 нужно)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.09.2013, 18:07     Перевести с Pascal на C++
Посмотрите здесь:

Перевести с pascal в C++ - C++
Помогите кто знает, вот код program pop; uses crt; label 10; var y,xn,xk,dx:real; begin clrscr; xn:=6;

Перевести из 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++
var a,b:string; c,d,i:integer; begin readln(a); for i:=1 to pos(' ',a) do delete(a,1,1); for i:= length(a) downto pos(' ',a)...

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

Перевести с Pascal на C++ - C++
Перевести с Pascal на C++ Var i,j,n : Longint; Fl : Boolean; Begin For n:=5 to 100 do Begin fl:=false;

Перевести с Pascal на С++ - C++
Помогите пожалуйста Дано натуральное число n, переставить местами первую и последнию цифру местами uses crt; var...

После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Пёс
228 / 76 / 4
Регистрация: 03.02.2013
Сообщений: 311
17.09.2013, 18:39     Перевести с Pascal на C++ #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 минуту
З.Ы. Просто перевёл с паскаля на С++
Alexandr1966
25 / 25 / 1
Регистрация: 17.12.2012
Сообщений: 438
18.09.2013, 06:47  [ТС]     Перевести с Pascal на C++ #3
а работает нормально, условие задачи выполняет?)
Alexandr1966
25 / 25 / 1
Регистрация: 17.12.2012
Сообщений: 438
20.09.2013, 13:58  [ТС]     Перевести с Pascal на C++ #4
есть кто может исправить прогу??
rublag
20.09.2013, 16:06     Перевести с Pascal на C++
  #5

Не по теме:

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

Yandex
Объявления
20.09.2013, 16:06     Перевести с Pascal на C++
Ответ Создать тему
Опции темы

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