Паскаль-си

[Drago56]

Помогите пожалуйста переписать задачу с паскаля на си++
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]

Вот посмотри может поможет чем:
https://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=6770&lngWId=10

Это convert Pascal code to c++

Или погугли в инете :)
http://www.google.ru/#sclient=psy&hl=ru&newwindow=1&q=pascal+to+c%2B%2B+converter&aq=1&aqi=g2&aql=&oq=&gs_rfai=&pbx=1&fp=169e8ca212732b9b

[Delirium]

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

[Iska]

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