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

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

Восстановить пароль Регистрация
 
KpoccoB0K
1 / 1 / 0
Регистрация: 08.02.2010
Сообщений: 22
10.02.2010, 22:19     Перевод из с++ в паскаль #1
прошу помощи в переводе данного кода в паскаль... всё более-менее ясно, но та же самая последняя фигня в мэйне типо '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();
 
 }
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.02.2010, 22:19     Перевод из с++ в паскаль
Посмотрите здесь:

Перевод з С++ в Паскаль)) C++
Перевод задачи из Паскаль в С++ C++
C++ Перевод программы паскаль в с++
Перевод с С++ на Паскаль C++
C++ Перевод с Паскаль на С++
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Yurii_74
paladin
 Аватар для Yurii_74
279 / 179 / 3
Регистрация: 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;

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

Не по теме:

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

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



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



пс: задача решена в паскале полностью и всё работает. так что можно закрывать тему. всем спасибо...
WolfCF
3286 / 1369 / 46
Регистрация: 28.04.2009
Сообщений: 4,823
12.02.2010, 04:35     Перевод из с++ в паскаль #6
KpoccoB0K, самое удивительное,что Вам эту задачу в паскале решали.
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.02.2010, 19:47     Перевод из с++ в паскаль
Еще ссылки по теме:

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

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

Или воспользуйтесь поиском по форуму:
KpoccoB0K
1 / 1 / 0
Регистрация: 08.02.2010
Сообщений: 22
12.02.2010, 19:47  [ТС]     Перевод из с++ в паскаль #7
Wolf, а тут ничего удивительного. там помогли, тут помогли, в итоге получилось так что у меня эта задача решена в паскале полностью.
Yandex
Объявления
12.02.2010, 19:47     Перевод из с++ в паскаль
Ответ Создать тему
Опции темы

Текущее время: 20:11. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru