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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Деструктор, освобождение памяти http://www.cyberforum.ru/cpp-beginners/thread135693.html
Привет всем, пишу класс "вещественная матрица", написал деструктор и программа стала вылетать после его выполнения( Помогите разобраться где ошибка, вот код: Matrica.h #include <iostream> using...
C++ сапёр здравствуйте извините, если повторяюсь (видела, что подобная тема была, причём не одна, но не нашла там того, что надо), но мне срочно нужна помощь надвигается конец семестра, нам дали задачу... http://www.cyberforum.ru/cpp-beginners/thread135681.html
C++ Сортировка справочника по фамилиям
как сделать следующее: есть *.txt файл в котором записан примитивный телефонный справочник (в каждой строке записана фамилия, имя, город и номер телефона). Нужно чтобы программа сортировала этот...
элементы массива C++
надо чтоб элемент массива MAS был равен 5, а остальные равны 1, в чём ошибка? { int row,column; std::cout << "vvedite stroki: "; std::cin >> row; std::cout << "vvedite stolbci: "; std::cin...
C++ Редактирование строк в файлах http://www.cyberforum.ru/cpp-beginners/thread135642.html
Доброго вечера! Помогите пожалуйста написать программу, со строками, и как можно примитивнее (Предпочтительней на Си, с элементами С++). Свои наброски почти на нуле, поэтому не выкладываю. ...
C++ Счетчик в сортировке Помогите исправить ошибки: template <class type>float sortV(type *b,long n) { type a,i,j; float c; for (i=0;i<n;i++) for(j=i+1;j<n;j++) { if (b >b) { c++; подробнее

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

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

26.05.2010, 03:57. Просмотров 365. Ответов 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
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.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.