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

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

Восстановить пароль Регистрация
Другие темы раздела
C++ Битовые операции http://www.cyberforum.ru/cpp-beginners/thread450685.html
Вот такая вот лаба на С, уже как не думал ну не могу решить я ее. Прошу помочь, прикрепил полное задание с примером работы(в примере ошибка). Прошу решить 11 вариант: Составить две программы, первая из которых вводит составные части структуры данных, приведенной в Вашем варианте индивидуального задания, и формирует из них заданную упакованную структуру. Вторая программа вводит упакованную...
C++ Нужно написать программу, работа с файлами надо написать программу, чтобы прочитать информацию из трех файлов (ФИО, дисциплина, средний балл), отсортировать(найти средний балл), результат записать в один. http://www.cyberforum.ru/cpp-beginners/thread450676.html
C++ обекты класса С++
time5.cpp // îïðåäåëåíèÿ Ôóíêöèé-÷ëåíîâ êëàññà Time #include <iostream.h> #include"time5.h" // Ôóíêöèÿ-êîíñòðóêòîð äëÿ èíèöèàëèçàöèè private-äàíèõ. // ïî óìîë÷àíèþ çíà÷åíèÿ=0 (ñì. îïèñàíèå êëàññà). Time::Time(int hr, int min, int sec) { setTime(hr, min, sec ); } //Óñòàíîâêà ÷àñà ìèíóò ñåêóíä
Не складывается сумма C++
Ошибка в том что матрицы складываются не совсем корректно, в чем подвох? class Matrix { private: int **Matr; int m; int n; int **Matr1; int **Matr2;
C++ Изменение строки в цикле http://www.cyberforum.ru/cpp-beginners/thread450660.html
Как в цикле строке *char присваивать разные значения, например "коло1" при первом проходе, "коло2" при втором, и т.д. char * temp = new char for (int i = 0; i < 6; i++) { temp = ? //при первом проходе "kolo1" втором "kolo2" и т.д. } Как реализовать?
C++ Попадание точки в обалсть Дана точка на плоскости с координатами (x,y) составить программу,которая выдает одно из сообщений - Да,Нет,На границе-в зависимости от того, лежит ли точка внутри заштрихованной области ,вне или на границе x^2+y^2=10 y=-x (заштрихованная часть внутри окружности и над верхней диагональю) подробнее

Показать сообщение отдельно
Toxas
0 / 0 / 0
Регистрация: 20.02.2012
Сообщений: 8
22.02.2012, 01:42     Может кто с паскаля на с++ переведет?
Я просто паскаля не знаю

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.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 00:52. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru