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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Передача объекта аргументом в метод http://www.cyberforum.ru/cpp-beginners/thread1751666.html
Итак, надо передать объект аргументом. Я его передал, нов методе должно измениться одно поле объекта. Но после выполнения метода оно не изменяется. Что тут делать? Вот код void adding(MainC...
C++ Перевод программы на С++ с Паскаля var s: string; i: byte; begin readln(s); i := 1; // избавляемся от пробелов спереди while s = ' ' do delete(s,i,1); i := length(s); // избавляемся от пробелов сзади... http://www.cyberforum.ru/cpp-beginners/thread1751665.html
Класс "Двоичные векторы": сложение, вычитание, умножение и деление векторов C++
Имею некий задаток. Код приведу ниже. Собственно все работает. Но векторы то не двоичные. А просто интовские. Прошу помочь с написанием объектов класса для сложения вычетания умножения и деления...
Найти все простые числа, не превосходящие заданного числа, сумма цифр которых, также является простым числом C++
Срочно нужен код программы в C++ (желательно с комментариями). Я бы разобрался и сам, но на это уйдет время, которого у меня нет :( Задача такая: Найти все простые числа, не превосходящие заданного...
C++ Класс Параллелепипед http://www.cyberforum.ru/cpp-beginners/thread1751639.html
Составить описание класса прямоугольного параллелепипеда со сторонами, параллельными осям координат. Предусмотреть возможность перемещения его в пространстве, изменение размеров, построение...
C++ Абстрактный тип данных (далее АДТ) множество Необходимо разработать конструктор, который автоматически, на основании некоторых параметров построит АТД множество. В программе должна быть возможность добавлять в структуру АТД классы,... подробнее

Показать сообщение отдельно
zhannaa
1 / 1 / 0
Регистрация: 25.03.2016
Сообщений: 34

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

01.06.2016, 16:02. Просмотров 111. Ответов 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.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru