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

@Pro100 Andrei · Регистрация: 19.05.2014

Студворк — интернет-сервис помощи студентам

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++

@gray_fox · 22.11.2014, 11:49

Сообщение от 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;
}

Новые блоги и статьи Все статьи Все блоги /
Мой 7 минутный ролик с крамольным предложением про шахматы, предлагаю заценить _Ivana 18.07.2025 p2UhJNMGY94	Десять Middleware Node.js для эффективного кодинга Reangularity 18.07.2025 Когда я только начинал работать с Node. js, количество пакетов в npm меня буквально парализовало. Сегодня их больше 1,3 миллиона — попробуй разберись, что стоит твоего внимания, а что нет. Я потратил. . .	Context и глубины Android mobDevWorks 18.07.2025 В Android разработки Context напоминает воздух - он везде, жизненно необходим, но мало кто может детально объяснить его природу. Мы привыкли получать его как параметр, передавать дальше и. . .	Результаты исследования от команды MCM (июль 2025 г.) Programma_Boinc 18.07.2025 Результаты исследования от команды MCM (июль 2025 г. ) Как сообщалось в наших предыдущих публикациях, мы изучаем гены, которые имеют наибольший рейтинг и ассоциируются с различными видами рака, в. . .	ИИ-чатбот на React с OpenAI и LangChain.js Reangularity 17.07.2025 React давно стал для меня золотым стандартом фронтенд-разработки. Его компонентная структура, виртуальный DOM и однонаправленный поток данных идеально подходят для создания динамичных интерфейсов. . .
Пишем адаптер для локального хранилища S3 на C# stackOverflow 16.07.2025 Разработка современных приложений часто требует интеграции с объектными хранилищами, и Amazon S3 стал де-факто стандартом в этой области. Однако работа с облачными сервисами в процессе разработки. . .	Старые замки kumehtar 16.07.2025 Смотрел тут фото, попались пара старых замков. И сразу бросилось в глаза из отличие. Например: Замок Бистон, в англии. Разрушенное сооружение. Но - не испорченное людьми, по крайней мере - на. . .	Java и Eclipse Store: Сверхбыстрые приложения с In-Memory DB Javaican 15.07.2025 Eclipse Store — это микро-движок персистентности для Java, который позволяет хранить и извлекать нативные Java-объекты без необходимости преобразования данных или использования объектно-реляционного. . .	EmBitz, создание проекта, отладка, прошивка locm 15.07.2025 Создание проекта для Blue Pill (STM32F103C8T6) в EmBitz 2. 30, написания кода blink, запуск отладки в ОЗУ, заливка релизной прошивки во flash используя ST-Link и др. . . .	Трассировка корутин Kotlin с OpenTelemetry mobDevWorks 14.07.2025 Асинхронное программирование меняет правила игры, особенно когда речь заходит о трассировке операций. В Kotlin с его корутинами эта проблема приобретает особый оттенок, который я хотел бы детально. . .

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

	Перевод из Паскаля в С++ 22.11.2014, 11:30. Показов 1130. Ответов 1 Метки нет (Все метки) 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

Опции темы

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

Решение