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

Перевести программу на С++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Одномерный массив http://www.cyberforum.ru/cpp-beginners/thread848999.html
Привет. Подскажите, каким образом написать одномерный массив: У вас есть доллары. Вы хотите обменять их на рубли. Есть информация стоимости купли-продажи в банках города. В городе N банков....
C++ Библиотеки для программы Какие библиотеки нужно подключить? #include "stdafx.h" #include <iostream> using namespace std; int main() { http://www.cyberforum.ru/cpp-beginners/thread848997.html
C++ Пяти мерный динамический массив
Ребят помогите сделать пяти мерный динамический массив, я просто не в курсе как это делать.
C++ создать дерево
Есть такое задание: Дано N-дерево. Найти в дереве длиннейший путь (пути), вдоль которого номера вершин упорядочены по возрастанию. Даже не знаю как его написать (С++)!Помогите пожалуйста)
C++ передача параметра в функцию http://www.cyberforum.ru/cpp-beginners/thread848977.html
Столкнулся с муторной проблемой передачи параметра в функцию. Суть задания такая, что нужно изобрести велосипед написать собственный контейнер, в который будут помещаться фигуры. Вот место где...
C++ Вывести информацию о людях, родившихся в месяц,название которого введено с клавиатуры Даны сведения :фамилия, имя, знак зодиака, дата рождения (массив из трех чисел).Вывести информацию о людях, родившихся в месяц,название которого введено с клавиатуры. Добавлено через 13 минут... подробнее

Показать сообщение отдельно
vasilisa-9090
1 / 1 / 0
Регистрация: 30.03.2013
Сообщений: 108

Перевести программу на С++ - C++

26.04.2013, 07:54. Просмотров 187. Ответов 0
Метки (Все метки)

Помогите перевести программу на С++. Программа на определение, является ли строка последовательностью идущих подряд шестнадцатеричніх чисел. Заранее огромное спасибо.
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
uses crt;
const bt:string='012346789ABCDEF';
var s:string;
    i:byte;
    f:boolean;
    c:char;
begin
repeat
clrscr;
write('Введите строку символов, послеловательность байтов:');
readln(s);
if odd(length(s)) then f:=false
else
 begin
  f:=true;
  i:=1;
  while(i<length(s))and f do
  if (pos(s[i],bt)=0)or(pos(s[i+1],bt)=0) then f:=false
  else inc(i,2);
 end;
if f then writeln('Является') else writeln('Не является');
writeln('Повторить Y/y-да, другое нет');
readln(c);
until UpCase(c)<>'Y';
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru