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

Из Pascal в C++ - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ Быстрая сортировка с использованием стека http://www.cyberforum.ru/cpp-beginners/thread407562.html
Задача поставлена так: отсортировать элементы массива (именно массива!) с помощью стека пользуясь алгоритмом быстрой сортировки. И еще - если не затруднит, вставьте короткие комментарии.
C++ Представления графов в ЭВМ. Всем привет.Хотелось бы обсудить в этом топике различные способы представления графов в ЭВМ. С моей точки зрения наиболее удобный способ в общем случае представить граф в виде масива дуг или списка смежности.Как вы считаете? http://www.cyberforum.ru/cpp-beginners/thread407553.html
C++ Чтение нескольких клавиш с клавиатуры
В общем нужно читать клавиши с клавиатуры, с++ win 32 console project, как можно получить нажатие нескольких кнопок сразу и вариант одну кнопку зажимаем и нажимаем вторую?
C++ Контест "Массивы. Вставка и удаление элементов"
Контест "Массивы. Вставка и удаление элементов"
C++ Подкорректируйте код http://www.cyberforum.ru/cpp-beginners/thread407538.html
Уплотнить матрицу, удаляя из нее строки и столбцы заполненные нулями. Пока сделал только удаление строк с нулями, только ничего не удаляется) подскажите в чем причина #include <iostream.h> #include <conio.h> #include <iomanip.h> #include <windows.h> int rus(char str_c) {char *str=new char; AnsiToOem(str_c,str); cout<<'\n'<<str; return(0);
C++ Работа с файлами и директориями. Как копировать директорию с ее содержимым в другую директорию? _mkdir("papka1"); _mkdir("papka2"); FILE *a=fopen("papka1/1.txt","a")как копировать *papka1* в *papka2* со всеми вложенными в нее файлами? И как скопировать только лишь содержимое *papka1* в *papka2*. Помогите, пожалуйста. подробнее

Показать сообщение отдельно
gepatozz
0 / 0 / 0
Регистрация: 01.10.2011
Сообщений: 4
14.12.2011, 21:11     Из Pascal в C++
Помогите пжлста написать тоже самое в С++

Программа находит слова, начинающиеся и заканчивающиеся на одну и ту же букву.

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
26
27
28
29
program string_12;
 
var sl,s:string; i:integer;
 
begin write('введите строку:'); readln(s);
 
sl:='';i:=1;s:=s+'.';
 
repeat
 
{for i:=1 to length(s) do}
 
if (s[i]=' ') or (s[i]=',') or (s[i]=';') or (s[i]='.') or (s[i]='!') or (s[i]='?')
 
then begin if sl[1]=sl[length(sl)] then writeln(sl);
 
sl:='';
 
end
 
else sl:=sl+s[i];
 
i:=i+1
 
until i>length(s);
 
readln;
 
end.
 Комментарий модератора 
Используйте теги форматирования кода!
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 01:32. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru