1 Тема від tarasvladyka

  • Дата реєстрації: 21.12.2013
  • Повідомлень: 25
    • Репутація: 0

Тема: переведення коду з однієї мови на іншу

з паскаля на С , паскаль не знаю , а код потрібен

var
  s: string;
  i, back: integer;
begin
  s := 'aga not non stop begin end assa';

  i := 1;
  while i <= length(s) do begin
    while(i <= length(s)) and (s[i] = ' ') do inc(i);
    if i <= length(s) then begin
      back := i;
      while(i<=length(s)) and (s[i] <> ' ') do inc(i);
      if s[back] = s[i - 1] then writeln(copy(s, back, i - back));
    end;
  end;
end.

2 Відповідь від bunyk

  • bunyk
  • Replace Team
  • Поза форумом
  • Звідки: Франик
  • Дата реєстрації: 24.07.2012
  • Повідомлень: 959
    • Репутація: 751

Re: переведення коду з однієї мови на іншу

Програма друкує всі слова (слово - довільна послідовність символів серед яких нема пробілу) в стовпчик. Тепер вам залишається написати таку саму на C.


P.S. Я теж паскаля не знаю, як і C, тому перекладу на Python:

import re
s = 'aga not non stop begin end assa'
print re.sub(' +', '\n', s)

bunyk вебсайт

3 Відповідь від koala

  • koala
  • koala
  • Лінива тваринка
  • На форумі
  • Дата реєстрації: 01.05.2013
  • Повідомлень: 15 286
    • Репутація: 13020

Re: переведення коду з однієї мови на іншу

Перекладати з мову на мову в загальному випадку складніше, ніж писати з нуля за умовою.
Хоча є і автоматичні перекладачі, хоча їхній код вам, швидше за все, не сподобається.

koala вебсайт

4 Відповідь від bunyk

  • bunyk
  • Replace Team
  • Поза форумом
  • Звідки: Франик
  • Дата реєстрації: 24.07.2012
  • Повідомлень: 959
    • Репутація: 751

Re: переведення коду з однієї мови на іншу

koala написав:

Перекладати з мову на мову в загальному випадку складніше, ніж писати з нуля за умовою.

Всього лише на константу складніше. :) Просто додається крок - зрозуміти що робить оригінальна програма, але я це вже зробив, залишилось написати код на C, але топікстартер стверджував що це вміє.

bunyk вебсайт

5 Відповідь від koala Востаннє редагувалося koala (13.01.2014 09:17:42)

  • koala
  • koala
  • Лінива тваринка
  • На форумі
  • Дата реєстрації: 01.05.2013
  • Повідомлень: 15 286
    • Репутація: 13020

Re: переведення коду з однієї мови на іншу

bunyk написав:

Просто додається крок - зрозуміти що робить оригінальна програма

В такому разі на C ще легше:

#include <stdio.h>
void main(void)
{
  printf("aga\nnot\nnon\nstop\nbegin\nend\nassa");
}

Чи все ж треба не те, що робить оригінальна програма, а виконати певне завдання, під яке оригінальна програма писалася?

koala вебсайт

6 Відповідь від Logans

  • Logans
  • Logans
  • Користувач
  • Поза форумом
  • Звідки: Україна
  • Дата реєстрації: 04.11.2012
  • Повідомлень: 185
    • Репутація: 68

Re: переведення коду з однієї мови на іншу

tarasvladyka написав:

з паскаля на С , паскаль не знаю , а код потрібен

▼Прихований текст
var
  s: string;
  i, back: integer;
begin
  s := 'aga not non stop begin end assa';

  i := 1;
  while i <= length(s) do begin
    while(i <= length(s)) and (s[i] = ' ') do inc(i);
    if i <= length(s) then begin
      back := i;
      while(i<=length(s)) and (s[i] <> ' ') do inc(i);
      if s[back] = s[i - 1] then writeln(copy(s, back, i - back));
    end;
  end;
end.
▼Прихований текст

з паскаля на С

Дякую, що вказали з якої мови потрібно перевести.

паскаль не знаю

Вибачте за грубість, але якщо ви Pascal не знаєте, навіщо вам код на С?
Просто з цікавості, де ви взяли цей код?

а код потрібен

Ну, якщо потрібен, можливо ви вже щось самі намагались зробити, продемонструйте будь-ласка, можливо в вас виникли якісь питання? Запитуйсте, не соромтесь.