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

Перевод от PASCAL C++ - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ Проблемы с созданием нового проекта в Visual C++ 2010 Express http://www.cyberforum.ru/cpp-beginners/thread705179.html
Сегодня захотел создать новый проект в VS и он выдал: No items found. Может, кто-нибудь сталкивался с этим? Что делать?
C++ Объединение двух массивов Ребята,срочно. Даны два масссива b и c как их объединить в один третий массив d например? http://www.cyberforum.ru/cpp-beginners/thread705176.html
Визуальное программирование. Считывание теста C++
Создать программу, которая могла бы считывать введённую функцию и потом рассчитать по ней. Как сие реализовать?
Уплотнить матрицу C++
Доброго всем времени суток. Хотелось бы разобраться с одним вопросом. Задание звучит так Дана целочисленная прямоугольная матрица: m = {{ -16, -78, 0, -6, -29, -19, 0, -65, -88, -51}, { -79, -22, 0, -25, -62, -69, 0, -59, -75, -89}, { -87, -95, 0, -85, -49, -75, 0, -73, -59, -52},
C++ Использование строк.Использование структур http://www.cyberforum.ru/cpp-beginners/thread705153.html
Задачка: Дана строка,состоящая из групп нулей и едениц. Найти и вывести на экран группы с нечетным количеством символов. И еще одна: В справочной автовокзала хранится расписание движения автобусов. Для каждого рейса указаны его номер, тип автобуса, пункт назначения, время отправления и прибытия. Вывести информацию о рейсах, которыми можно воспользоваться для прибытия в пункт назначения раньше...
C++ Visual C++ 2012 Ultimate Доброго времени суток. Скачал сегодня Вижуал с++ 2012. Разъясните по хардкору, как в нем работать, а то до этого в билдере работал. Для начала, что не так в этой программе ? подробнее

Показать сообщение отдельно
airesjke
0 / 0 / 0
Регистрация: 30.10.2011
Сообщений: 20
22.11.2012, 06:06     Перевод от PASCAL C++
уважаемые программисты C++

Добавлено через 1 минуту
sub:='';
k:=0;
c:=0;
for I := 1 to length(s) do
if (s[i]=' ') and (sub<>'') then begin inc(k); a[k]:=sub;sub:='';end
else if s[i]<>' ' then sub:=sub+s[i];
if sub<>'' then begin inc(k);a[k]:=sub; end;
for i := 1 to k do
if pos('pok',a[i]) then writeln(a[i]);
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 18:39. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru