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

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

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

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

22.02.2012, 01:42. Просмотров 254. Ответов 0
Метки нет (Все метки)

Я просто паскаля не знаю

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.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.02.2012, 01:42
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Может кто с паскаля на с++ переведет? (C++):

Кто может перевести из паскаля в с++? - C++
uses crt; var i,j,n,k: integer; begin read(n); for i:=1 to n div 2 do for j:=1 to n div 2 do if (i*i*i)+(j*j*j)=n...

кто может перевести на С++ с Паскаля - C++
uses crt; const raz=;{/разделители слов, можно добавить} var s,sl:string; i,k:byte; begin clrscr; writeln('Строка:'); ...

Кто может преобразовать код из Паскаля на С++? - C++
111

кто может преобразовать код из Паскаля на С++? выручайте - C++
program Nu_pogodi; //3-3 Добавляем модуль Timers uses GraphABC, Timers; //3-4 Начальная скорость игры const ...

кто может С++ - C++
Помогите пожалуйста срочно нужно, а времени совсем нет!!!

решите кто может - C++
Дана последовательность из n целых чисел. Определить, все ли числа являются нулевыми или первое ненулевое число является положитель-ным. ...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.02.2012, 01:42
Привет! Вот еще темы с ответами:

Кто может объяснить a = a + b? - C++
Сейчас разбирал функцию for. Но суть не в этом. Меня застопорило такое уравнение: sum = sum + i. Я совершенно не могу понять его смысла и...

3 задачи на С++.. Кто может... - C++
1. В заданой строке (ввести с клавиатуры) между словами вместо ропбула поставить запяьые. 2. Описать функцию - пользователя вставки...

может поможет кто? - C++
тебята я только недавно начал изучать язык С++ по книге Герберта шелтда. Кароче там один момент который я понять не могу а именно: тип...

Кто может сделать? - C++
Описать статический массив. Реализовать 2 способа инициализации массива (пользователь может сам выбрать способ, сделать меню): -...


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

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

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