3 / 3 / 1
Регистрация: 04.03.2012
Сообщений: 55
1

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

24.04.2012, 15:06. Показов 587. Ответов 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
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.04.2012, 15:06
Ответы с готовыми решениями:

Перевести с Паскаля на С++
Program Proc; procedure MinMax(var A,B:real); var temp:real; begin if (A&gt;B)then begin...

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

Перевести с паскаля
Помогите пожалуйста перевести код с паскаля на Perl const n=5; var a:array of integer; ...

Перевести с Паскаля на с#
For i:=1 to D1+1 do WRITEln (i:4,' y1 = ',x1:8:3,' ',mx:8:3); readln; n:=10; x2:=D2l;...

1
32 / 32 / 8
Регистрация: 17.04.2011
Сообщений: 201
24.04.2012, 17:33 2
Что она делает может просто задание напишешь?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.04.2012, 17:33
Помогаю со студенческими работами здесь

Перевести с Паскаля
var sum, x, i, n: LongInt; begin Write('Введите n='); ReadLn(n); if (n &gt; 0) ...

Перевести с паскаля
program maximum; var a: array of integer; // массив масс предметов max: integer; // масса самого...

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

Перевести из Паскаля в C#
Код программы с Паскаль, перевести в C# не получается. Программа проходит по диагоналям матрицы...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru