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

Перевести из Паскаля в с++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Конструктор класса http://www.cyberforum.ru/cpp-beginners/thread557238.html
Пишу конструкцию #include <iostream.h> #include <conio.h> class MyClass { int a; public: void Show()
C++ Определить в каком из массивов больше количество повторяющих элементов Определить в каком из массивов Х(22) и А(37) больше количество повторяющих элементов. Пожалуйста!!!! http://www.cyberforum.ru/cpp-beginners/thread557236.html
C++ Написать программу учета книг в библиотеке
Здравствуйте ребята! =) Почитал форум очень много полезной информации, вот и моя первая просьба!! Помогите с программкой пожалуйста. Вот задание. Написать программу учета книг в библиотеке....
C++ Нужна рекомендация для задач по с++
Помогите пожалуйста решить несколько задач по с++. Я никак не могу их сделать, а сдать нужно очень срочно. Буду очень благодарна. 1) Дано действительное число x ≤ 800. Если x≤ 100 , то получить...
C++ использование флагов http://www.cyberforum.ru/cpp-beginners/thread557221.html
Объясните, пожалуйста , как задавать флаги . Например я хочу чтоб при вызове моей программы можно было пользоваться такими флагами : Myprog.exe –col <кол-во_колонок> –row <кол-ко_строк>
C++ Создание базового класса Здравствуйте, решил поделиться с вами своей маленькой проблемкой в виде создания базового класса. Необходимо создать базовый класс, который будет содержать в себе информацию об экземплярах... подробнее

Показать сообщение отдельно
Fox01
3 / 3 / 0
Регистрация: 04.03.2012
Сообщений: 55

Перевести из Паскаля в с++ - C++

24.04.2012, 15:06. Просмотров 385. Ответов 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
26
var
  i, j, k: integer;
  p: boolean;
  s1, s2: string;
begin
  writeln('vvedite stroku s1');
  readln(s1);
  writeln('vvedite stroku s2');
  readln(s2);
  k := 0;
  for i := 1 to length(s1)
  do
    begin
      p := true;
      for j := 1 to length(s2)
      do
        if s2[j] <> s1[i + j - 1]
        then
          p := false;
      if p
      then
        inc(k)
    end;
  writeln(k);
  readln
end
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru