4 / 4 / 0
Регистрация: 19.05.2014
Сообщений: 43
1

Перевод из Паскаля в С++

22.11.2014, 11:30. Показов 1066. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
const
RusLit = ['А'..'Я', 'Ё', 'а'..'я', 'ё'];
EngLit = ['A'..'Z', 'a'..'z'];
var
Str: string;

procedure StringClear(var Str: string);
var
ResStr: string;
i: byte;
begin
for i:=1 to length(Str) do
if not ((Str[i] in RusLit) or (Str[i] in EngLit)) then
ResStr:=ResStr+Str[i];
for i:=1 to length(ResStr) do
while pos(ResStr[i], Str) <> 0 do
delete(Str, pos(ResStr[i], Str), 1);
end;

begin
write(' Строка : ');
readln(Str);
StringClear(Str);
writeln('Результат: ', Str);
end.

Доброго времени суток. Помогите перевести программу из паскаля в С++!

Добавлено через 8 минут
Вот само задание!!!!
После ввода с клавиатуры произвольного строки вывести на экран эту строку с отобранными у него символами, не является буквами . C++
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.11.2014, 11:30
Ответы с готовыми решениями:

Перевод с паскаля в с++
переводил код с паскаля в с++ и столкнулся с проблемой, помогите разобраться, пожалуйста!...

Перевод с паскаля на С++
const BASE16 = 16; var HexValue : string; Ostatok: Integer; Chastnoe: Integer; begin...

Перевод из Паскаля в C++
Переведите программу из Паскаля в С++, пожалусйта Вот код : const nmax=100; var a: array...

Перевод с Паскаля на C++
Здравствуйте. Помогите,пожалуйста,перевести код на С++. var z,x,v: text; st: string; ...

1
What a waste!
1608 / 1300 / 180
Регистрация: 21.04.2012
Сообщений: 2,729
22.11.2014, 11:49 2
Лучший ответ Сообщение было отмечено Pro100 Andrei как решение

Решение

Цитата Сообщение от Pro100 Andrei Посмотреть сообщение
После ввода с клавиатуры произвольного строки вывести на экран эту строку с отобранными у него символами, не является буквами . C++
Если только с латиницей, то можно так:
C++
1
2
3
4
5
6
7
8
9
10
11
12
#include <iostream>
#include <locale>
 
 
int main() {
   for (char ch; std::cin.get(ch) && ch != '\n'; ) {
      if (std::isalpha(ch)) {
         std::cout << ch;
      }
   }
   std::cout << std::endl;
}
1
22.11.2014, 11:49
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.11.2014, 11:49
Помогаю со студенческими работами здесь

Перевод с Паскаля на С++
Не могу ни как перевести полностью вот этот кусок кода на Паскале на си++ function h(var key:...

Перевод из Паскаля в СИ.
Доброго времени суток. Помогите перевести программу из паскаля в СИ. 1 программа: Program...

Перевод с Паскаля в С++
uses crt; type prm=record {прямая с полями, коэффициентами} a,b,c:real; end; ...

Перевод с Паскаля на С++
Кому не трудно. Помогите перевести пару задач несложных. 1 var a,b,c,tmp:real; begin ...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru