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

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

Войти
Регистрация
Восстановить пароль
 
i_SamSky
6 / 6 / 0
Регистрация: 13.04.2012
Сообщений: 57
#1

Перевести на C++ из Pascal - C++

21.04.2012, 18:06. Просмотров 384. Ответов 1
Метки нет (Все метки)

Буду очень рад тому, кто переведет из Pascal на C++
Pascal
1
2
3
4
5
6
7
8
9
10
11
procedure ChangeToInc(var st:string);
var f:boolean;
begin
 f:=true; //удовлетворяет ли шаблону
 while pos(' ',st) > 0 do delete(st,pos(' ',st)+1); //удаляем все имеющиеся пробелы
 if copy(st,length(st)-2,3) = '+1;' then delete(st,length(st)-2,3) else f:=false; //если хвост - '+1', то отсекаем
 if pos(':=',st)>0 then delete(st,pos(':=',st),length(':=')) else f:=false;
 //оставшееся часть строки должна быть шаблоном типа <переменная><переменная>
 if copy(st,1,length(st) div 2) <> copy(st,length(st) div 2 + 1, length(st) div 2) then f:=false;
 if f then st := 'inc(' + copy(st,1,length(st) div 2) + ');';
end;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.04.2012, 18:06
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перевести на C++ из Pascal (C++):

Перевести с Pascal на С++ - C++
помогите пожалуйста с переводом на язык с++ Procedure ReadLong(Var A : Tlong); Var ch : char; i : Integer; Begin FillChar(A,...

Перевести с Pascal на С++ - C++
Помогите пожалуйста Дано натуральное число n, переставить местами первую и последнию цифру местами uses crt; var...

Перевести с Pascal на C++ - C++
Всем привет) есть задачи: 1) Поменять местами в каждом слове первую половину слова со второй. Есть решение этих задач, но нужно мне...

Перевести с Pascal на С++ - C++
Нужно перевести начало, хотяб до процедур из Pascal на С++ Я застрял на пункте x:array of pp; и не могу понять, как это в С++ прописать...

Перевести с Pascal на C++ - C++
Всем привет) есть задачи: 2) Слова, содержащие сочетание ‘кот’, расположить в конце последовательности, сохраняя исходный порядок...

Перевести с pascal на c++ - C++
Помогите тоже перевести из Pascal в с+ visual studio 6.0 Нашел тут похожую на свою задачу, хочу разобраться, но учу только с++ (( ...

1
i_SamSky
6 / 6 / 0
Регистрация: 13.04.2012
Сообщений: 57
27.04.2012, 15:30  [ТС] #2
Up! :cofee2:

Добавлено через 3 минуты
Сама же программа должна считывать из файла текст-программу и преобразовывать в ней строки.
Исходный файл:
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
#include <iostream>
 
int main()
{
int a;
int b;
a=1;
b=2;
a=a+1;
b=b-1;
 
return 0;
}
Строка "a=a+1;" должна замениться на "а++;", а "b=b-1;" на "b--;".
Т.е. "переменная=переменная+1" должна меняться на "переменная++", при этом длина названия переменной может быть любой. Остальные строки должны остаться неизменными.

Следовательно на выходе получается:
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
#include <iostream>
 
int main()
{
int a;
int b;
a=1;
b=2;
a++;
b--;
 
return 0;
}
Добавлено через 19 часов 30 минут
Up! :cofee2:
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.04.2012, 15:30
Привет! Вот еще темы с ответами:

Перевести из Pascal на C++ - C++
Var n,p1,p2,i,k,j:integer; Begin write('Введите N: ');readln(n); For i:=n-1 downto 2 do Begin k:=0; For...

Перевести с Pascal на C++ - C++
uses crt; var a,y:extended; i:longint; begin clrscr; write('a=');readln(a); if a&lt;1 then begin writeln('1'); ...

Перевести с Pascal на C++ - C++
Program kirill; uses crt; function KvSumCif(a,b:integer):boolean; var sum,i,x,code:integer; s:string; begin str(a,s); ...

Перевести с Pascal на C++ - C++
var n:longint;max:integer; begin writeln('n='); readln(n); max:=0 ; while n&gt;0 do begin if max&lt;n mod 10...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

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