Паскаль-си - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)

- - Паскаль-си (http://forum.oszone.net/showthread.php?t=194431)

Drago56

19-12-2010 18:19 1569721

Паскаль-си

Помогите пожалуйста переписать задачу с паскаля на си++

Код:

uses crt;

var

  s: string;t1,t2:text;

  i: integer;

  o:char;

  Begin

  assign(t1,'text.txt');

  repeat

  rewrite(t1);

  ReadLn(s);

  writeln(t1,s);

  close(t1);

  reset(t1);

  while not eof(t1) do begin

  readln(t1,s);

  i := 2;

  while ((s[i] <> ' ') AND (s[i] <> ' .'))do begin

      if s[i]='.' then

      i:=i+2;

      s[i] := chr(ord(s[i]) + 32);

      Inc(i);

      IF (s[i]=' ') then

      inc(i);

      if i > Length(s) then

      break;

    end;

    if i > Length(s) then

    break;

    Inc(i);

  end;

  WriteLn(s);

  write('продолжать ввод? (y/n)');  read(o);

  until o='n';

 close(t1);

end.

mr.Freeman

23-12-2010 20:30 1573102

Вот посмотри может поможет чем:
https://www.planet-source-code.com/v...6770&lngWId=10

Это convert Pascal code to c++

Или погугли в инете :)
http://www.google.ru/#sclient=psy&hl...9e8ca212732b9b

Delirium

24-12-2010 17:55 1573728

Вопрос простейший. Если есть знания паскаля и малейшие навыки с С, то перевести не проблема. Вообще, у меня создается впечатление, что молодежь перестала думать, а решила, что есть добрые участники форумов, которые все сделают бесплатно и просто так. Спешу вас ВСЕХ разочаровать - все далеко не так. Мы можем помочь в решении проблемы, только при наличии ваших собственных мыслей. В противном случае вам на фрилансерские сайты и решайте задачи в обмен на денежную компенсацию.

Iska	24-12-2010 19:09 1573784

Значит не мне одному показалось такое. Delirium, ей же ей, надо это прямо в отдельную прикреплённую тему, что сие не есть бесплатный филиал freelance.ru (и иже с ними), что здесь могут и готовы помочь, но отнюдь не делать за других их работу. Что форум предназначен для того, чтобы научить людей думать, а не наоборот.

Время: 17:25.