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

Переделать в с++ - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ Работа с текстовыми файлами. - С/С++ http://www.cyberforum.ru/cpp-beginners/thread135672.html
В заданном тексте,содержащем числа,определить целое число,состоящее из наибольшего количества цифр. С++ Иначе допсессия....
C++ Dll Доброго времени суток, столкнулся с такой проблемой, есть ддл-ка libfftw3-3.dll, мне нужно ей воспользоваться. Но не получается подключить. Visual Studio 2010, C++ Из def файла я сделал lib такой командой: lib /def:libfftw3-3.def Получившийся lib файл подключаю к проекту: http://www.cyberforum.ru/cpp-beginners/thread135604.html
C++ функции наптшите пожалуйста
Для заданного числа N>1 построить последовательность чисел фибоначчи А(0), А(1), .... А(n), которые изменяются по закону А(0)=А(i-1)+A(i-2). Определить значение третьего четного числа.
Робота с файлом в С C++
Необходимо создать файл с столбцами/строками 1. туристический тур 2. количество туристов Реализовать возможность редактирования файла через блокнот и самое важное - Написать программу (на С) для работы с файлом которая должна искать максимальное значение в столбце количество туристов и выводить соответствующий тур. Надеюсь на помощь.
C++ Двумерные массивы http://www.cyberforum.ru/cpp-beginners/thread135372.html
сформировать квадратную матрицу порядка n по заданному образцу: 100...001 110...011 111...111 ............ 110...011 100...011 Помогите плиз, а то полный пи..
C++ динамическая память, работа с текстом. Помогите, пожалуйста, найти ошибку. Программа считывает входной файл с текстом, создаёт два двусвязных списка чьи элементы - слова. В первой список поместить слова с четным кол-вом символов, во второй все остальные. Отсортировать слова по азбуке. Вывести в отдельные файлы. Вроде всё компилируется, но ничего не выводит и не создаёт файлы . Помогите найти в чем проблема! Спасибо больше за... подробнее

Показать сообщение отдельно
montib
0 / 0 / 0
Регистрация: 17.05.2010
Сообщений: 6
26.05.2010, 03:57     Переделать в с++
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
30
31
32
uses
  crt;
const
  dividers=[' ',',','.',';',':','-','=','+'];{дописать нужные}
var
  s,temp,min:string;
  m:set of char;
  i:integer;
begin
  clrscr;
  readln(s);
  temp:='';
  min:=s;
  for i:=1 to length(s) do
  begin
    if not (s[i] in dividers) then
      temp:=temp+s[i];
    if ((s[i] in dividers) or (i=length(s))) and (temp<>'') then
    begin
      if Length(temp)<Length(min) then
        min:=temp;
      temp:='';
    end;
  end;
  for i:=1 to Length(min) do
    if not (min[i] in m) and (min[i] in ['А','Е','Ё','У','Ю','а','е','ё','у','ю']) then
    begin
      include(m,min[i]);
      write(min[i],' ')
    end;
  WriteLn
end.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 02:29. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru