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

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

Восстановить пароль Регистрация
 
blax777
0 / 0 / 0
Регистрация: 22.01.2013
Сообщений: 8
26.06.2013, 12:46     Нужно перевести программу с языка Pascal на С++ #1
Баланс 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++ у меня проблемы =)
Заранее спасибо откликнувшимся =)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.06.2013, 12:46     Нужно перевести программу с языка Pascal на С++
Посмотрите здесь:

Нужно перевести программы из Pascal в C C++
C++ Перевести программу с языка Паскаль на С++
C++ Перевести программу с языка Паскаль в язык С++
C++ перевести программу из языка Паскаль в С++
C++ Перевести программу с языка С++
Массив (перевести из языка Pascal в СИ) C++
Нужно перевести на язык Pascal C++
C++ Перевести программу с Pascal на С++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

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