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

Может кто с паскаля на с++ переведет? - C++

Восстановить пароль Регистрация
 
Toxas
0 / 0 / 0
Регистрация: 20.02.2012
Сообщений: 8
22.02.2012, 01:42     Может кто с паскаля на с++ переведет? #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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
var vs,s:strisng;
    t,r:array[0..150,0..150] of longint;
    i,j,N:longint;
 
begin
   AssignFile(input,'input.txt');Reset(input);
   AssignFile(output,'output.txt');Rewrite(output);
 
   Read(S);
 
   N := Length(S);
   FillChar(t,SizeOf(t),0);
   FillChar(r,SizeOf(r),0);
   for i := 1 to N do
     begin
        t[i,i]:=1;
        r[i,i]:=1;
     end;
 
   for i := N-1 downto 1 do
     for j := i+1 to N do
       if s[i] = s[j] then begin
                               t[i,j] := t[i+1,j-1] + 2;
                               r[i,j] := 1;
                           end
                           else if t[i+1,j] > t[i,j-1] then begin
                                                               t[i,j] := t[i+1,j];
                                                               r[i,j] := 2;
                                                            end
                                                       else begin
                                                               t[i,j] := t[i,j-1];
                                                               r[i,j] := 3;
                                                            end;
 
   writeln(t[1,N]);
 
   i := 1;
   j := N;
   vs := '';
 
   repeat
      if r[i,j] = 1 then begin
                            vs := vs + s[i];
                            inc(i);dec(j);
                         end
                         else
      if r[i,j] = 2 then inc(i) else dec(j);
   until r[i,j] = 0;
 
   for i := t[1,N] div 2 downto 1 do
     vs:= vs + vs[i];
 
   WriteLn(vs);
     
   CloseFile(input);
   CloseFile(output);
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.02.2012, 01:42     Может кто с паскаля на с++ переведет?
Посмотрите здесь:

C++ Массив на практике кто бы помог решить может хоть кто то
кто может решить??? C++
Кто может помочь? C++
может кто подскажет... C++
C++ 3 задачи на С++.. Кто может...
может поможет кто? C++
C++ кто может перевести на С++ с Паскаля
Кто может перевести из паскаля в с++? C++

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

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

Текущее время: 03:32. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru