Форум программистов, компьютерный форум, киберфорум
Наши страницы

Нужно перевести программу с языка Pascal на С++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Выдает ошибку [Linker error] undefined reference to `WinMain@16' http://www.cyberforum.ru/cpp-beginners/thread912379.html
Собственно проблема в сабже - выдает gcc.exe "J:\Курсовая БД\Курсовая .c" -o "J:\Курсовая БД\Курсовая .exe" -I"C:\Users\Администратор\Desktop\Компилятор\include" ...
C++ Найти максимальный по модулю элемент массива Помогите доделать третье задание...не получается.... С одномерным массивом, состоящим из n вещественных элементов, произвести следующие операции: 1) найти максимальный по модулю элемент... http://www.cyberforum.ru/cpp-beginners/thread912376.html
C++ Создать программу, отыскивающую проход по лабиринту
Создать программу, отыскивающую проход по лабиринту. Лабиринт представляется в виде матрицы, состоящей из квадратов. Каждый квадрат либо открыт, либо закрыт. Вход в закрытый квадрат запрещен. Если...
icu и U_ILLEGAL_ARGUMENT_ERROR C++
Всем привет! Пытаюсь за использовать библиотечку icu, всё вроде как собралось, написал тестовое прилжение: #include <iostream> #include <conio.h> #define U_STATIC_IMPLEMENTATION #include...
C++ Работа с файлами(отсутствие библиотеки dir.h) http://www.cyberforum.ru/cpp-beginners/thread912337.html
Не могу понять почему V.S. 12 и V.S. 2005 не может найти библиотеку dir.h, подскажите пож) иМне из неё нужно функция FindFirst для нахождения в директории файлов *.txt.
C++ Как получить доступ к кукам браузеров с С++ на Вин 7? (нет, не воровать - защитить) Как получить доступ к кукам браузеров с помощью C++ на Win 7? Укатывать не собираюсь, пишу шифровщик для обеспечения безопасности куков. Сначала - шифровать. Когда браузеру нужно взять из них... подробнее

Показать сообщение отдельно
blax777
0 / 0 / 0
Регистрация: 22.01.2013
Сообщений: 8

Нужно перевести программу с языка Pascal на С++ - C++

26.06.2013, 12:46. Просмотров 233. Ответов 0
Метки (Все метки)

Баланс BEGIN-END. Дан текстовый файл, содержащий программу на языке Паскаль. Проверить в нем баланс служебных слов BEGIN и END. Учесть, что каждый оператор CASE и каждое описание типа RECORD требует дополнительно слова END. По результатам проверки вывести на экран соответствующее сообщение. При обнаружении ошибки указать, какого слова и сколько раз недостает.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses crt;
var  f: text;
     s: string;
     i,k: integer;
begin
assign(f,'D:\in.txt');
reset(f);
while not (eof(f)) do
      begin
      readln (f,s);
      for i:=1 to length (s)-2 do
          begin
          if copy(s,i,5)='BEGIN' then dec(k);
          if copy(s,i,4)='CASE' then dec(k);
          if copy(s,i,6)='RECORD' then dec(k);
          if copy(s,i,3)='END' then inc(k);
          end;
      end;
if k=0 then writeln ('Операторные скобки расставлены правильно') else
   if k>0 then writeln ('Отсутствует END в количестве ',k) else
      writeln ('Отсутствует BEGIN в количестве ',abs(k));
close(f);
end.
С C++ у меня проблемы =)
Заранее спасибо откликнувшимся =)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru