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

перевод с pascal на c++ - C++

Восстановить пароль Регистрация
 
Balthazar
0 / 0 / 0
Регистрация: 08.12.2010
Сообщений: 5
08.12.2010, 18:51     перевод с pascal на c++ #1
помогите перевсти программу на с++
uses crt;
var t:text;
st:string;
i,j,k:byte;
o:char;
begin
assign(t,'text.txt');
writeln('Введите арифметическое выражение: ');
rewrite(t);
repeat
readln(st); write(t,st);
write('продолжать ввод? (y/n)'); read(o);
for i:=2 to length(st) do begin
if st[i-1] in ['+','-','*','/'] then
if st[i] in ['+','-','*','/'] then
inc(j);
end;
for i:=2 to length(st) do begin
if (st[i-1] in ['0'..'9']) and (st[i] in [' '])
and (st[i+1] in ['0'..'9'])then inc(j);
if (st[i-1] in ['+','-','*','/']) and (st[i] in [' '])
and (st[i+1] in ['+','-','*','/'])then inc(j);
end;
if j=0 then
writeln(t,' - выражение записано верно!')
else
writeln(t,' - выражение записано не верно!');
until o='n';
close(t);
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.12.2010, 18:51     перевод с pascal на c++
Посмотрите здесь:

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

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

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

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