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

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

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

Перевод программы на С++ с Паскаля - C++

01.06.2016, 16:02. Просмотров 105. Ответов 0
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var
    str: string;
    len, count, flag, i, n: byte;
 
begin
    writeln('String: '); readln(str);
    write('Word №: '); readln(n);
    len := length(str);
    count := 0;
    flag := 0;
    for i:=1 to len do begin
        if (str[i] <> ' ') and (flag = 0) then begin
            count := count + 1;
            flag := 1;
            if count = n then break; 
        end;
        if str[i] = ' ' then flag := 0;
    end;
 
    writeln(str[i]);
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.06.2016, 16:02     Перевод программы на С++ с Паскаля
Посмотрите здесь:

Перевод программы с Паскаля на C++ - C++
program LABYRINTH; {BACKTRACK1, i.e. depth-first, no infinite cycle} const M = 7; N = 7; {Dimensions} var LAB : array of integer;...

перевод программы из Паскаля в С++ - C++
var a,b,c:integer; begin read(a,b,c); writeln(a,'+',b,'+',c,'=',a+b+c); writeln(a,'*',b,'*',c,'=',a*b*c); ...

Перевод программы на С++ с Паскаля - C++
var s: string; i: byte; begin readln(s); i := 1; // избавляемся от пробелов спереди while s = ' ' do...

Перевод программы на С++ с Паскаля - C++
var sn,s:string; l,k,kod:integer; v,p:real; begin writeln('Введите строку'); readln(s); l:=length(s); p:=1; k:=1; ...

Перевод программы на С++ с Паскаля - C++
Здравствуйте. Имеется следующая задача. Для двух заданных матриц A(n,n) и B(n,n) проверить, можно ли получить вторую из первой...

Перевод с Паскаля на С++ - C++
Не могу ни как перевести полностью вот этот кусок кода на Паскале на си++ function h(var key: TKey): integer; {Вычисление хеш-функции} ...

Перевод из Паскаля в С++ - C++
const RusLit = ; EngLit = ; var Str: string; procedure StringClear(var Str: string); var ResStr: string; i:...

Перевод с Паскаля на си++ - C++
Помогите перевести на си++. uses crt; const gl=; var s:string; i:byte; begin clrscr; writeln('Введите текст из...

Перевод из Паскаля в с++ - C++
Задача: Найти все натуральные n-значные числа, цифры в которых образуют строго возрастающую последовательность Есть решение на...

Перевод с Паскаля в С++ - C++
uses crt; type prm=record {прямая с полями, коэффициентами} a,b,c:real; end; tch=record {точка с полями,...


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

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

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