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

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

Войти
Регистрация
Восстановить пароль
 
Kostia1012
1 / 1 / 0
Регистрация: 17.11.2013
Сообщений: 96
#1

Паскаль/С++ - C++

22.12.2013, 14:36. Просмотров 301. Ответов 8
Метки нет (Все метки)

Привет всем, помогите, пожалуйста...
Нужно перевести код программы из паскаля в с++
код:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
 repeat
    Write('Введите строку (пустая строка - конец программы): ');
    Readln(s);
    if s<>'' then begin
       for i:=1 to (Length(s) div 2)  do begin
         ch := s[i];
         s[i] := s[ Length(s)+1-i ];
         s[ Length(s)+1-i ] := ch;
      end;
      WriteLn('Перевёрнутая строка: ', s);
   end;
  until s='';
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.12.2013, 14:36     Паскаль/С++
Посмотрите здесь:

Паскаль и С++ - C++
Напечатать в растущем порядке все трехзначные натуральные числа, в записи которых нет одинаковых цифр. Мы перешли с Паскаля на С++.На...

из Паскаль в С++ - C++
1. program zada4a11; uses crt; type mas=array of integer; var a:mas; kol, sd,i,j,k,n,m,max,s:integer; begin randomize; ...

Паскаль - C++
вычислить значения функции у=х в квадрате, для всех х от 1 до n с шагом 1.

из Паскаль в С++ - C++
Помогите перевести задачи из Паскаля в С++: 1.uses graph; var y1,x1,x2,y2,d,m,r,i:integer; x,y:real ; begin detectGraph(D,M); ...

Перевести с Паскаль на С++ - C++
Само задание: вводить массив малых латинских букв, и отсортировать в алфавитном порядке program sort; var s:string; i,j:integer; ...

перевести с С на паскаль - C++
Переведете пожалуйста код с С++ на паскаль. Очень нужно! Программа должна удалять лишние элементы в последовательности, так, чтобы после...

После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
taras atavin
Ушёл с форума.
3569 / 1752 / 91
Регистрация: 24.11.2009
Сообщений: 27,619
22.12.2013, 14:45     Паскаль/С++ #2
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
do
{
 std::cout<<"Введите строку (пустая строка - конец программы): "<<std::endl;
 std::cin>>s; std::cout<<std:;endl;
 if (!s.empty())
 {
  for (i=1; i<= s.len()/2; ++i)
  {
   ch=s[i];
   s[i]=s[s.len()+1-i];
   s[s.len()+1-i]=ch;
  }
  std::cout<<"Перевёрнутая строка: "<<s<<std::endl;
 }
} while (!s.empty());
Kostia1012
1 / 1 / 0
Регистрация: 17.11.2013
Сообщений: 96
22.12.2013, 15:22  [ТС]     Паскаль/С++ #3
Цитата Сообщение от taras atavin Посмотреть сообщение
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
do
{
 std::cout<<"Введите строку (пустая строка - конец программы): "<<std::endl;
 std::cin>>s; std::cout<<std:;endl;
 if (!s.empty())
 {
  for (i=1; i<= s.len()/2; ++i)
  {
   ch=s[i];
   s[i]=s[s.len()+1-i];
   s[s.len()+1-i]=ch;
  }
  std::cout<<"Перевёрнутая строка: "<<s<<std::endl;
 }
} while (!s.empty());
А можете дописать все, что нужно, чтобы это был рабочий код?..
taras atavin
Ушёл с форума.
3569 / 1752 / 91
Регистрация: 24.11.2009
Сообщений: 27,619
22.12.2013, 15:26     Паскаль/С++ #4
А исходный рабочий? Я перевёл фрагмент, разумеется и получился фрагмент.
Kostia1012
1 / 1 / 0
Регистрация: 17.11.2013
Сообщений: 96
22.12.2013, 15:45  [ТС]     Паскаль/С++ #5
Цитата Сообщение от taras atavin Посмотреть сообщение
А исходный рабочий? Я перевёл фрагмент, разумеется и получился фрагмент.
Помогите, пожалуйста, сделайте из фрагмента рабочий код...
taras atavin
Ушёл с форума.
3569 / 1752 / 91
Регистрация: 24.11.2009
Сообщений: 27,619
22.12.2013, 15:49     Паскаль/С++ #6
Так не пойдёт. Если нужен полный текст, то или давай полный же исходник, или ставь задачу на разработку с ноля, тогда будет перевод уже с русского на плюсы.
rangerx
1932 / 1541 / 141
Регистрация: 31.05.2009
Сообщений: 2,909
23.12.2013, 01:17     Паскаль/С++ #7
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
#include <cstring>
#include <iostream>
 
using namespace std;
 
int main() {       
  char t;
  int i, j, sn;
  char s[256];  
  
  do {
    cout << "Введите строку (пустая строка - конец программы): "; 
    cin.getline(s, sizeof(s));  
    sn = strlen(s);
    if(sn != 0) {      
      i = 0; j = sn - 1;
      while(i < j) {
        t = s[i]; s[i] = s[j]; s[j] = t;
        ++i; --j;
      }      
      cout << s << endl;
    }    
  } while(sn != 0);  
}
Kostia1012
1 / 1 / 0
Регистрация: 17.11.2013
Сообщений: 96
23.12.2013, 19:44  [ТС]     Паскаль/С++ #8
Цитата Сообщение от rangerx Посмотреть сообщение
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
#include <cstring>
#include <iostream>
 
using namespace std;
 
int main() {       
  char t;
  int i, j, sn;
  char s[256];  
  
  do {
    cout << "Введите строку (пустая строка - конец программы): "; 
    cin.getline(s, sizeof(s));  
    sn = strlen(s);
    if(sn != 0) {      
      i = 0; j = sn - 1;
      while(i < j) {
        t = s[i]; s[i] = s[j]; s[j] = t;
        ++i; --j;
      }      
      cout << s << endl;
    }    
  } while(sn != 0);  
}
Благодарю! Рас шифруйте, пожалуйста, подробно что значит эта строка
C++
1
    cin.getline(s, sizeof(s));
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.12.2013, 22:42     Паскаль/С++
Еще ссылки по теме:

Перевод з С++ в Паскаль)) - C++
#include &quot;stdafx.h&quot; #include &lt;iomanip&gt; #include &lt;iostream&gt; using namespace std; #define n 67 void main() { int p,q, a,i=0; ...

Перевести с Паскаль на С++ - C++
я не знал извините то поможете

Перевести с паскаль на С++ - C++
uses crt; var m,k, a, b, c, d,v: integer; n,p,z, i,q: real; s:string; function NOD(x,y:integer):integer; Begin If x&lt;&gt;0 then...

Перевод с С++ на Паскаль - C++
Нужно написать программу на C++, но мне удалось найти только вариант на паскале, его мы не изучали, помогите перевести. var a,b:real;...


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

Или воспользуйтесь поиском по форуму:
rangerx
1932 / 1541 / 141
Регистрация: 31.05.2009
Сообщений: 2,909
23.12.2013, 22:42     Паскаль/С++ #9
Цитата Сообщение от Kostia1012 Посмотреть сообщение
Рас шифруйте, пожалуйста, подробно что значит эта строка
sizeof - применительно к символьному(char) массиву возвращает его размер. Насчёт cin.getline см. ссылку
http://www.cplusplus.com/reference/i...tream/getline/
Yandex
Объявления
23.12.2013, 22:42     Паскаль/С++
Ответ Создать тему
Опции темы

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