Форум программистов, компьютерный форум, киберфорум
Наши страницы
С++ для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
Alona18
0 / 0 / 0
Регистрация: 26.02.2016
Сообщений: 2
1

Перевести с pascal на с++

26.02.2016, 00:39. Просмотров 758. Ответов 1
Метки нет (Все метки)

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
uses crt;
var i_put,o_put:string;
    i,s_ch,n:byte;
    flag:boolean;
Begin
 ClrScr;
 writeln('Vvedite stroku:');
 readln(i_put);
 flag:=true;
 while flag do
  begin
   flag:=false;
   s_ch:=pos(' ',i_put);
   if s_ch<>0
    then begin
          delete(i_put,s_ch,1);
          flag:=true;
         end;
  end;
 n:=length(i_put);
 o_put[0]:=i_put[0];
 for i:=1 to n do
  o_put[i]:=i_put[n+1-i];
 if (i_put=o_put) then writeln('yes') else writeln('no');
 ReadKey;
End.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.02.2016, 00:39
Ответы с готовыми решениями:

перевести с pascal на С++
Помогите пожалуйста перевести на c++ Само задание : Пусть дан файл целых чисел. Создайте файл...

Перевести с Pascal на C++
uses crt; var a,y:extended; i:longint; begin clrscr; write('a=');readln(a); if a&lt;1 then ...

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

Перевести из Pascal в С++
Помогите перевести программу на C++ Исходник Pascal: Program Posled; Uses winCRT; Var...

Перевести с Pascal на c++
uses crt; var n1,n2,i,j,r: integer; begin r:=0; write('n1='); readln(n1); write('n2=');...

1
wendstor
133 / 133 / 64
Регистрация: 15.05.2012
Сообщений: 502
26.02.2016, 04:08 2
Лучший ответ Сообщение было отмечено gru74ik как решение

Решение

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
27
28
29
30
#include "stdafx.h"
#include <iostream>
#include  <string>
 
int _tmain(int argc, _TCHAR* argv[])
{
    std::cout << "Please enter text: ";
    std::string i_put;
    std::getline( std::cin, i_put);
 
    for (std::string::iterator it = i_put.begin(); it < i_put.end(); ++it)
    {
        if (*it == ' ') i_put.erase(it);
    }
 
    std::string o_put;
    o_put = i_put.substr(0, 1);
 
    for (std::string::reverse_iterator rit = i_put.rbegin(); rit != i_put.rend()-1; ++rit)
    {
        o_put.resize(o_put.length() + 1);
        o_put[o_put.length()-1] = *rit;
    }
 
    if (strcmp(i_put.c_str(), o_put.c_str()) == 0)
        std::cout << "Yes" << std::endl; else std::cout << "No" << std::endl;
 
    std::cin.get();
    return 0;
}
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.02.2016, 04:08

Перевести на C++ из Pascal
Буду очень рад тому, кто переведет из Pascal на C++ :) procedure ChangeToInc(var st:string); var...

Перевести из Pascal на С++
условие: Данная целочисленные квадратная матрица. Вычислить: 1) сумму элементов в тех строках,...

Перевести c Pascal в C++
Помогите перевести в Си++ uses crt; var st:string; k,i:integer;f:boolean; begin clrscr;...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

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