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

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

Войти
Регистрация
Восстановить пароль
 
Vlad708
4 / 4 / 0
Регистрация: 04.11.2012
Сообщений: 72
#1

Необходимо перевести из паскаля в с++ - C++

14.11.2012, 17:37. Просмотров 269. Ответов 1
Метки нет (Все метки)

Имеется программа на Паскале:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
uses crt;
var a: array [1..255] of string;
    i,j,k,l: byte;
    s,sl: string;
begin
write('s='); readln(s);
s:=s+' '; sl:=''; j:=0;
for i:=1 to length(s) do
    if not (s[i] in [' ','.',',',':',';','-','!','?'])
       then sl:=sl+s[i] else
            if length(sl)>0 then
               begin
               inc(j);
               a[j]:=sl;
               sl:='';
               end;
    for i:=1 to j do
        begin
        k:=0;
        for l:=1 to j do
            if a[i]=a[l] then inc(k);
        if k=1 then write(a[i],' ');
        end;
readln;
end.
Но нужно её перевести в С++, помогите пожалуйста)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.11.2012, 17:37     Необходимо перевести из паскаля в с++
Посмотрите здесь:

Необходимо перевести код с паскаля на С++ - C++
const n=5; var a: array of integer; i,j,sum: integer; begin randomize; writeln('Матрица:'); for i:=1 to n do ...

Перевести из Паскаля на С++ - C++
var d, m: integer; begin writeln('Введіть день'); readln (d); writeln('Введіть мiсяць'); readln (m); case m of 1, 3, 5, 7,...

Перевести с Паскаля на С++ - C++
Program Proc; procedure MinMax(var A,B:real); var temp:real; begin if (A>B)then begin temp:=A; A:=B; B:=Temp;

Перевести с Паскаля на С++ - C++
const n=10; var a,b: array of integer; i,j,k,km: byte; begin writeln('Исходная матрица:'); for i:=1 to n do ...

Перевести из паскаля на c++ - C++
program laba2; var x,y: real; begin writeln ('введіть координати точки: '); read(x,y); if (sqrt(x)+sqrt(y)<=4) AND NOT((...

Перевести с Паскаля на Си - C++
Структура элемента массива работник: фамилия, число, месяц и год рождения, пол. определить: ─ фамилия самого старшего мужчины; ─...

C Паскаля перевести в С++ - C++
Дана матрица размера M x N. Удалить столбец, содержащий максимальный элемент матрицы. program Matrix64; var ...

Перевести с паскаля на Си++ - C++
вообщем программа на паскале нужно перевести на с++ суть проги поменять местами главную диагональ и побочную program pr1; var...

Перевести из паскаля в C++ - C++
Перегнать из паскаля в C++. Заранее благодарю. условие: Вводится последовательность вещественных чисел, оканчивающаяся нулём, и...

Перевести с Паскаля на C++ - C++
надо перевести с паскаля на c++ var i,adrs:integer; a:arrayof integer; begin //... for i:=1 to 15 do if a=0 then ...


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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
77Bender77
18 / 18 / 0
Регистрация: 16.12.2010
Сообщений: 145
14.11.2012, 18:17     Необходимо перевести из паскаля в с++ #2
ANSI/Turbo Pascal to C/C++ converter
Ответ Создать тему
Опции темы

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