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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ модули http://www.cyberforum.ru/cpp-beginners/thread94328.html
Добрый вечер!подскажите пожалуйста..я запуталась в данном задании: придумать задачу на лабораторную работу для студентов.соответственно,чтобы они ее выполнили,с помощью МОДУЛЕЙ VISUAL c++..... в чём возник вопрос: возможно ли где-нибудь посмотреть примеры задач с использованием модулей...и вообще теорию по ним..я все обыскала..ничего не нашла....хотя.программировать на 6 версии худо бедно...
C++ большие массивы Кто-нибудь сталкивался с большими V данных? Программа ничего сложного из себя не представляет - посчитать по формуле в каждой точке. Надо прочитать из txt файла. Проблема в том что массив требуется . Борланд с++ пишет стэйк оверфлоу. Кто-нибудь может помочь? http://www.cyberforum.ru/cpp-beginners/thread94325.html
C++ Найти наиболее близкий элемент к целому
Прошу помощи ::help: Дан вещественный массив x(n). Найти элемент массива, значение которого наиболее близко к какому-нибудь целому числу. надо написать на C HELP. =(
C++ Найти все трёхзначные числа
Народ, помогите плз с этой задачей: Найти все трёхзначные числа, которые можно представить разностью между квадратом числа, образованного первыми двумя цифрами, и квадратом третьей цифры. надо написать на С ПЛЗ :help: :wall:
C++ Взаимное расположение прямых http://www.cyberforum.ru/cpp-beginners/thread94320.html
Люди.ПЛЗ помогите::wall::help: Даны вещественные числа A1, B1, C1, А, В, С. Выяснить взаимное расположение прямых A1*x+B1*y=C1 и A*x+B*y=C. Если прямые пересекаются, напечатать координаты точки пересечения. :help:
C++ Найти такие натуральные числа P и Q, не имеющие общих делителей, что P/Q = M/N 1) Даны натуральные числа M и N. Найти такие натуральные числа P и Q, не имеющие общих делителей, что P/Q = M/N. 2) Даны натуральное число N и ломаная линия, состоящая из N отрезков и заданная координатами своих вершин. Найти действительные числа A1, L1, A2, L2, …, AN, LN, где Ai – угол наклона отрезка к положительному направлению горизонтальной полуоси, Li – длина отрезка (Li>=0). 3) Дана... подробнее

Показать сообщение отдельно
KpoccoB0K
1 / 1 / 0
Регистрация: 08.02.2010
Сообщений: 22

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

10.02.2010, 22:19. Просмотров 723. Ответов 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();
 
 }
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru