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

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

Восстановить пароль Регистрация
Другие темы раздела
C++ Ортогональная таблица http://www.cyberforum.ru/cpp-beginners/thread94074.html
Есть таблица БД с композитным возможным ключом из двух полей, двух композитных сущностей, или обычного поля и композитной сущности. Надо значениям одного из этих полей/композитов сопоставить столбцы экранной таблицы, а значение второго поля пусть соответствуют строкам и подписать строки/столбцы в заголовочных столбцах/строках соответствующими значениями полей (только обычных, если столбцам...
C++ Уравнение (a-b)^3-(a-3ab^2 )\b^3-3a^2 b, при a=1000,b=0,0001 1)n---m 2)m--<n 3)n++>m Добавлено через 1 час 21 минуту Нужен текст программы! помогите не понимаю как) http://www.cyberforum.ru/cpp-beginners/thread93961.html
C++ Будильник
Пожалуйста, подскажите, как написать будильник в электронных часах? И как сделать, чтобы будильник выключался при нажатии на клавишу? напишите алгоритм
Студия с командной строки C++
Меня окончательно задолбали IDE, и я хочу юзить с командной строки c++ компиляторы студии: 1. Microsoft Developmet Studio 4.0, 2. Microsoft Developmet Studio 6.0? Где валяются и как называются экзешинки компилов этих студий? Где взять инфу по опциям командной строки компилов этих студий? Как вручную собрать несколько опций в один файл? Как правильно указать этот файл компилу?
C++ Лабиринт http://www.cyberforum.ru/cpp-beginners/thread93588.html
Помогите, пожалуйста, нарисовать лабиринт на всю консоль, чтобы смайлик двигался по лабиринту (лабиринт в виде двумерного массива)
C++ переделать код под си99. #include<iostream> using namespace std; int N; int searchSecuence(int *a, int *b, int I, int J, int k=1){ if(a==b) searchSecuence(a,b,I+1,J+1,k+1); else return k; } подробнее

Показать сообщение отдельно
KpoccoB0K
1 / 1 / 0
Регистрация: 08.02.2010
Сообщений: 22
10.02.2010, 22:19     Перевод из с++ в паскаль
прошу помощи в переводе данного кода в паскаль... всё более-менее ясно, но та же самая последняя фигня в мэйне типо '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();
 
 }
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 07:25. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru