Строки MS Visual 6

@chkhan · Регистрация: 02.04.2015

Студворк — интернет-сервис помощи студентам

Нужна помощь в записи кода программы с паскаль в С++ (компилятор с MS Visual C++ 6.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
33
34
35
uses crt;
var s,n:byte;
     MyObject:string;
    
begin 
 clrscr;
 
 writeln('Программа для удаления лишних пробелов с текста');
 write('Введите длину строки: ');
 readln(n);
 
 writeln('Введите текст не более ',n,' символов: ');
 MyObject:=char(n);
 readln(MyObject);
 
 s:=1;
 while MyObject[s]=' ' do delete(MyObject,s,1);
 
 s:=length(MyObject);
 while MyObject[s]=' ' do begin delete(MyObject,s,1); s:=s-1; end;
 
 s:=1;
 while s<=length(MyObject) do
 begin
   if MyObject[s]=' 'then
   if MyObject[s-1]=' ' then begin delete(MyObject,s,1);  s:=s-1; end; 
   s:=s+1;
 end; 
 
 writeln;
 writeln('Строка после обработки');
 writeln(MyObject);
 
 readkey;
end.

@zss · 04.04.2015, 18:19

Почему такой старый компилятор?

C++
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
#include <iostream.h>
#include <locale.h>
#include <string.h>  // не совсем уверен, что здесь для VC 6
//using namespace std;
int main()
{
   setlocale(LC_ALL,"Rus");
   string MyObject;
    
   cout<<"Программа для удаления лишних пробелов с текста\n";
   cout<<"Введите текст";
   getline(cin,MyObject);
 
   while (*MyObject.begin()==' ')
       MyObject.erase(MyObject.begin(),MyObject.begin()+1);
 
   while (*(MyObject.end()-1)==' ')
       MyObject.erase(MyObject.end()-1,MyObject.end());
 
   for(string::iterator p=MyObject.begin()+1;p!=MyObject.end();)
     if (*(p-1)==' ' && *p==' ')
       MyObject.erase(p,p+1);
     else
         ++p;
 
  cout<<"Строка после обработки\n'"<<MyObject<<"'"<<endl;
  system("pause");
  return 0;
}

@chkhan · 04.04.2015, 19:16 **[ТС]**

Поди пойми этих преподавателей. При таком синтаксисе компилятор ругается на тип данных string, со всеми вытекающими последствиями: erase и begin нельзя применить в MyObject

@zss · 04.04.2015, 19:49

Вот Вам без string

C++
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
#include <iostream.h>
#include <locale.h>
using namespace std;
int main()
{
   setlocale(LC_ALL,"Rus");
   char MyObject[100],res[100];
    
   cout<<"Программа для удаления лишних пробелов с текста\n";
   cout<<"Введите текст";
   cin.getline(MyObject,100);
   int i=0;
   while(MyObject[i++]==' ')
       ;
   int j=0;
   for(;MyObject[i];i++)
   {
     if (MyObject[i]!=' ' || MyObject[i+1]!=' ')
       res[j++]=MyObject[i];
   }
   if (res[j-1]==' ')
      j--;
  res[j]=0;
  cout<<"Строка после обработки\n'"<<res<<"'"<<endl;
  system("pause");
  return 0;
}

@chkhan · 04.04.2015, 20:17 **[ТС]**

using namespace std; - компилятор ругается, пришлось убрать. Все работает и без локализации std
while(MyObject[i++]==' '); - пришлось переделать в while(MyObject[i]==' ') i++;(удалял лишние символы, но оставлял в начале 1 пробел)
system("pause"); - ругается на "system"

. Заменил на cin.get();

Большое спасибо за помощь

p.s. старые компиляторы таки кому-то сломают мозг ..... рано или поздно )

Новые блоги и статьи Все статьи Все блоги /
Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .
Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .	Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .

@chkhan 1 / 1 / 0 Регистрация: 02.04.2015 Сообщений: 7
	04.04.2015, 19:16 [ТС]
	Поди пойми этих преподавателей. При таком синтаксисе компилятор ругается на тип данных string, со всеми вытекающими последствиями: erase и begin нельзя применить в MyObject 0

@chkhan 1 / 1 / 0 Регистрация: 02.04.2015 Сообщений: 7
	04.04.2015, 20:17 [ТС]
	using namespace std; - компилятор ругается, пришлось убрать. Все работает и без локализации std while(MyObject[i++]==' '); - пришлось переделать в while(MyObject[i]==' ') i++;(удалял лишние символы, но оставлял в начале 1 пробел) system("pause"); - ругается на "system" . Заменил на cin.get(); Большое спасибо за помощь p.s. старые компиляторы таки кому-то сломают мозг ..... рано или поздно ) 0