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

Перевести с Паскаль на С++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Написать программу работы с двумерным динамическим вещественным массивом http://www.cyberforum.ru/cpp-beginners/thread1168194.html
Помогите решить пару задач. 1)Написать программу работы с двумерным динамическим вещественным массивом. Предусмотреть динамическое распределение памяти под массив перед работой с масси-вом...
C++ Построение фигуры методом Монте-Карло Помогите исправить кнопку для построение фигуры.Не получается сделать как дано в задание ! Слева рисунок как должно быть,справа как у меня получается http://www.cyberforum.ru/cpp-beginners/thread1168193.html
C++ Зашифровать набранный текст
Здравствуйте. Суть такая, надо составить программу, которая зашифрует и выведет на экран введенный с клавиатуры текст. Слова разделяются знаком минус. В качестве шифра используется замена символа...
Создать файл, записать в него инф, и вывести записанное на экран C++
Кто может помочь написать код,создать файл -> записать в него инф,и потом что то записали вывести на экран.Заранее,большое спасибо.(С++)
C++ Сделать, чтобы программа работала определенное количество времени http://www.cyberforum.ru/cpp-beginners/thread1168177.html
Прошу помощи. Искал в инете способы решения, но к сожалению не нашел. Цель: Сделать, чтобы программа работала определенное количество времени. Пример while(/*пока не прошло 10 секунд...
C++ Отсортировать элементы структуры по дате(дням) Здравствуйте! Помогите пожалуйста с алгоритмом цифровой сортировки. Задача отсортировать элементы структуры по дате(дням),структура считывается из файла, для сортировки создается индексный массив.... подробнее

Показать сообщение отдельно
nikita7991
0 / 0 / 0
Регистрация: 16.04.2013
Сообщений: 120

Перевести с Паскаль на С++ - C++

06.05.2014, 17:08. Просмотров 181. Ответов 2
Метки (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
uses crt;
var
s:string;
i:integer;
a: set of char;
begin
clrscr;
a:=['A'..'Z','a'..'z'];
writeln('vvedite stroku');
readln(s);
for i:=1 to length(s) do
if s[i] in a then write(s[i]);
readln;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru