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

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

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

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

22.12.2013, 14:36. Просмотров 312. Ответов 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='';
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.12.2013, 14:36
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Паскаль/С++ (C++):

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

Перевести с Паскаль на С++ - C++
uses crt; var s:string; i:integer; a: set of char; begin clrscr; a:=; writeln('vvedite stroku'); readln(s);

перевод из си++ в паскаль - C++
for (int j = max(0, i - (n - m)); j &lt;= i &amp;&amp; j &lt;= m; ++j) Как перевести эту строчку, а именно &quot;j &lt;= i &amp;&amp; j &lt;=...

8
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());
1
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());
А можете дописать все, что нужно, чтобы это был рабочий код?..
0
taras atavin
3569 / 1752 / 91
Регистрация: 24.11.2009
Сообщений: 27,619
22.12.2013, 15:26 #4
А исходный рабочий? Я перевёл фрагмент, разумеется и получился фрагмент.
1
Kostia1012
1 / 1 / 0
Регистрация: 17.11.2013
Сообщений: 96
22.12.2013, 15:45  [ТС] #5
Цитата Сообщение от taras atavin Посмотреть сообщение
А исходный рабочий? Я перевёл фрагмент, разумеется и получился фрагмент.
Помогите, пожалуйста, сделайте из фрагмента рабочий код...
0
taras atavin
3569 / 1752 / 91
Регистрация: 24.11.2009
Сообщений: 27,619
22.12.2013, 15:49 #6
Так не пойдёт. Если нужен полный текст, то или давай полный же исходник, или ставь задачу на разработку с ноля, тогда будет перевод уже с русского на плюсы.
0
rangerx
1933 / 1542 / 141
Регистрация: 31.05.2009
Сообщений: 2,913
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);  
}
1
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));
0
rangerx
1933 / 1542 / 141
Регистрация: 31.05.2009
Сообщений: 2,913
23.12.2013, 22:42 #9
Цитата Сообщение от Kostia1012 Посмотреть сообщение
Рас шифруйте, пожалуйста, подробно что значит эта строка
sizeof - применительно к символьному(char) массиву возвращает его размер. Насчёт cin.getline см. ссылку
http://www.cplusplus.com/reference/i...tream/getline/
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.12.2013, 22:42
Привет! Вот еще темы с ответами:

Перевод из Паскаль в C++ - C++
uses crt; const nmax=100;{при 100 считает довольно долго, ждите} e=0.01; type Point=record {точка} ...

Перевод с Паскаль на С++ - C++
Помогите перевести с паскаля на C++ этот код: var s:string; i,c:integer; begin readln(s); c:=0; for i:=1 to...

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

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


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

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

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