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

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
blax777
0 / 0 / 0
Регистрация: 22.01.2013
Сообщений: 8
#1

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

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

Нужно Перевести программу с Turbo pascal на C++ - C++
Помогите пожалуйста! Нужно Перевести программу с Turbo pascal на C++ вот этот код: uses crt; const nmax=10; var a:array of...

Перевести код с языка Pascal - C++
Нужно сделать точно такую же программу (она была написана на питоне и переведена на паскаль) на С++: var s:string; begin ...

Максимальный и минимальный элементы массива (перевести из языка Pascal в СИ) - C++
Помогите перевести из языка Pascal в СИ: var a: array of integer max,min,i,k:integer; begin max:= a; min:= a; for i:= 1...

Перевести программу с языка С++ - C++
С языком Си плохо знаком, ну очень плохо, переведите программу с языка С++ на язык Си #include <iostream> #include <vector> ...

Перевести программу с языка Паскаль на С++ - C++
Требуется перевести программу задания С4 из ЕГЭ 2012 с языка Паскаль\Бейсик на язык С++. Задание представлено на странице 23 под пунктом...

нужно перевести с pascal на c++ - C++
Пусть N – натуральное число. Вычислить: y=1*2+2*3*4+3*4*5*6+...+N*(n+1)(n+2)*…*2n pascal не знаю....помогите пожалуйста var ...

Нужно перевести программы из Pascal в C - C++
1. Дано трехзначное число. В этом числе зачеркнуть первую цифру справа и приписать его слева. Вывести полученное число. var ...

Из Pascal в C++ программу перевести - C++
Даны три переменные вещественного типа: A, B, C. Если их значения упорядочены по возрастанию, то удвоить их; в противном случае заменить...

Перевести программу с Pascal на С++ - C++
нужно код с паскаля подогнать под код с++ var first, second: string; chars: set of char; i: integer; begin ...

Перевести программу с Pascal на С++ - C++
uses crt; var f:text; {переменная для текстового файла} s:string; i:byte; begin clrscr; ...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru