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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Графическая задача. Массивы (добавление, поиск, перестановка) http://www.cyberforum.ru/cpp-beginners/thread1307478.html
В сообщении должна быть ОДНА задача! 1) 2) добавление N элементов, начиная с номера К 3) Перестановка положительные элементы переставить в начало массива, отрицательные - в конец 4) поиск...
C++ С++ Файлы Имеются два типизированных файла, элементами которых являются отдельные буквы. Записать в третий файл все начальные совпадающие элементы имеющихся файлов. Напишите код на С++, пожалуйста! http://www.cyberforum.ru/cpp-beginners/thread1307476.html
Работа с типизированным файлом, элементами которого являются отдельные символы C++
По теме файлы! Имеется типизированный файл, элементами которого являются отдельные символы. а) Выяснить, являются ли первые два символа цифрами. Если да, то установить, является ли число,...
Файлы С++ C++
Записать в файл последовательного доступа N натуральных чисел: а1,а2,..., аn, (числа получить с помощью датчика случайных чисел). Сформировать новый файл последовательного доступа, элементами...
C++ Оператор if http://www.cyberforum.ru/cpp-beginners/thread1307467.html
Все задания этого пункта нужно выполнить, используя оператор if. 1. Написать программу, получающую double x и вычисляющую . 2. Написать программу, получающую double a, b и вычисляющую: max{a;b} ;...
C++ Ошибка в функции Вот программа проблема с функцией "ras" не правильно работает надо вернуть значения vi,vj,v. #include <stdio.h> #include <conio.h> #include <math.h> #include <iostream.h> const int n=5; void... подробнее

Показать сообщение отдельно
Pro100 Andrei
4 / 4 / 0
Регистрация: 19.05.2014
Сообщений: 43

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

22.11.2014, 11:30. Просмотров 212. Ответов 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
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru