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

Перевести c Pascal в C++ - C++

Восстановить пароль Регистрация
 
Diman_
0 / 0 / 0
Регистрация: 07.06.2013
Сообщений: 58
10.06.2013, 11:26     Перевести c Pascal в C++ #1
Помогите перевести в Си++

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
uses crt;
var st:string;
k,i:integer;f:boolean;
 
begin
 clrscr;
 write('-> ');
 readln(st);
 k:=0;
 f:=true;
 for i:=1 to length(st) do
 begin
 if k<=0 then
 begin
  f:=false;
  break;
 end else case st[i] of
 '(': inc(k);
 ')': dec(k);
 end;
 end;
 if f and (k=0) then writeln('Скобки расставлены верно') else writeln('Скобки расставлены неверно');
 readln;
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.06.2013, 11:26     Перевести c Pascal в C++
Посмотрите здесь:

C++ перевести с pascal в С++
C++ Перевести из PASCAL в С++
C++ Перевести с Pascal на C++
C++ Перевести с Pascal на C++
C++ Перевести с pascal в C++
Перевести с Pascal на C++ C++
C++ Перевести с Pascal на C++
C++ Перевести с Pascal на C++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Stereotip
 Аватар для Stereotip
2 / 2 / 0
Регистрация: 17.04.2012
Сообщений: 22
10.06.2013, 13:54     Перевести c Pascal в C++ #2
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
#include <iostream>
#include <string>
using namespace std;
int main()
{
    string st;
    cout << "-> "; cin >> st;
    int k = 0;
    for (int i = 0; i < st.size(); i++)
    {
        switch (st[i])
        {
        case '(':
            k++;
            break;
        case ')':
            k--;
        }
 
    }
    if (k == 0) cout << "Verno";
    else cout << "He verno";
    return 0;
}
Yandex
Объявления
10.06.2013, 13:54     Перевести c Pascal в C++
Ответ Создать тему
Опции темы

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