Форум программистов, компьютерный форум, киберфорум
Наши страницы
С++ для начинающих
Войти
Регистрация
Восстановить пароль
 
KpoccoB0K
1 / 1 / 0
Регистрация: 08.02.2010
Сообщений: 22
#1

Перевод из с++ в паскаль - C++

10.02.2010, 22:19. Просмотров 756. Ответов 6
Метки нет (Все метки)

прошу помощи в переводе данного кода в паскаль... всё более-менее ясно, но та же самая последняя фигня в мэйне типо 'case'... я не понимаю этого..)) прошу помочь, если есть желание...
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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
#include<iostream.h>
#include<conio.h>
#include<string.h>
struct celula
 {
  char info;
  celula *prec;
 }*s,*r;   int f,i;
 char t[10];
 
 void includ()
 {
  r=new celula;
  r->info=t[i];
  r->prec=s;
  s=r;
 }
 
 void exclud()
 {
  r=s;
  s=s->prec;
  delete r;
 }
 
 void afisare()
 {
   r=s;
   while(r!=NULL)
   {
    cout<<r->info<<' ';
    r=r->prec;
   }
  cout<<endl;
 }
 main()
 {
  cout<<"введите строку";
  cin>>t;
  f=1;i=0;s=NULL ;
  while(i<=strlen(t)&& f)
  {
   switch(t[i])
   {
    case '(':includ(); break;
    case '{':includ(); break;
    case '[':includ(); break;
    case ')':if(s->info=='(') {exclud();break;}
                  else f=0;
    case '}':if(s->info=='{') {exclud();break;}
                  else f=0;
    case ']':if(s->info=='[') {exclud();break;}
                  else f=0;
   }
    i++;
  }
  if(f && s==NULL) cout<<"Правильно";
       else    cout<<"Неправильно";
       getch();
 
 }
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.02.2010, 22:19
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Перевод из с++ в паскаль (C++):

Перевод из Паскаль в C++
uses crt; const nmax=100;{при 100 считает довольно долго, ждите} ...

Перевод з С++ в Паскаль))
#include &quot;stdafx.h&quot; #include &lt;iomanip&gt; #include &lt;iostream&gt; using namespace...

Перевод из паскаль в С++
Ребята, очень срочно, кто сможет выручайте, нужно перевести данную программу на...

перевод из си++ в паскаль
for (int j = max(0, i - (n - m)); j &lt;= i &amp;&amp; j &lt;= m; ++j) Как перевести эту...

Перевод с Паскаль на С++
var S,x,i:integer; begin x:=1; S:=0; for i:=1 to 10 do begin S:=S+x;...

Перевод с С++ на Паскаль
Нужно написать программу на C++, но мне удалось найти только вариант на...

6
Yurii_74
paladin
283 / 183 / 7
Регистрация: 25.02.2009
Сообщений: 592
11.02.2010, 14:55 #2
Смутно помню Паскаль, но switch всегда можно расписать несколькими if'ами.

if (t[i]='(' or t[i]='{' or t[i]='[') then includ();
if (t[i]=')') then if s->info='(' exclud() else f:=0;

и т. д.
1
insideone
Модератор
Автор FAQ
3657 / 937 / 112
Регистрация: 10.01.2010
Сообщений: 2,513
11.02.2010, 15:06 #3
Не стоит. В паскале тоже есть оператор такого выбора
Pascal
1
2
3
4
5
6
case t[i] of
    '(': includ();
    '{': includ();
    ...
   ']': ...
end;
Автору лучше попросить модератора перенести раздел Pascal может там ответят более подробно)
1
WolfCF
3288 / 1350 / 108
Регистрация: 28.04.2009
Сообщений: 4,823
11.02.2010, 15:08 #4
Цитата Сообщение от insideone Посмотреть сообщение
Автору лучше попросить модератора перенести раздел Pascal может там ответят более подробно
лучше саму задачу сказать.

Не по теме:

Всё-таки форум программистов,а не переводчиков.

0
KpoccoB0K
1 / 1 / 0
Регистрация: 08.02.2010
Сообщений: 22
12.02.2010, 01:37  [ТС] #5
блин тут сама задача такова: вводится строка состоящая из скобок ()[]{} в хаотичном порядке, в итоге программулька должна определить правильно или неправильно были расставлены скобки в строке...



Wolf, я понимаю что не это не форум переводчиков, но всё же нуждался в помощи, и надеялся на то что меня поймут...



пс: задача решена в паскале полностью и всё работает. так что можно закрывать тему. всем спасибо...
0
WolfCF
3288 / 1350 / 108
Регистрация: 28.04.2009
Сообщений: 4,823
12.02.2010, 04:35 #6
KpoccoB0K, самое удивительное,что Вам эту задачу в паскале решали.
0
KpoccoB0K
1 / 1 / 0
Регистрация: 08.02.2010
Сообщений: 22
12.02.2010, 19:47  [ТС] #7
Wolf, а тут ничего удивительного. там помогли, тут помогли, в итоге получилось так что у меня эта задача решена в паскале полностью.
0
12.02.2010, 19:47
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.02.2010, 19:47
Привет! Вот еще темы с решениями:

Перевод с Паскаль на С++
Помогите перевести с паскаля на C++ этот код: var s:string; ...

Перевод с Паскаль на С++
Привет всем.Помогите перевести с паскаля на C++ этот код: const n = 100;...

Перевод с Паскаль на С++
uses crt; var m, k: byte; begin write('m = '); readln(m); ...

Перевод программы паскаль в с++
Var A:array of integer; i,n,t:integer; Begin write('Vvedite...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru