Вам необходимо преобразовать множество старых программ для новой версии компилятора. для этого необходимо заменить "-> " на "." везде, кроме комментариев. комментарии в данном языке программирования начинаются с символов "//" и продолжаются до конца строки. напишите программу, выполняющую такое преобразование. входной файл содержит от 1 до 500 строк длиной не более 50 символов с ascii- от 32 до 127 – текст программы, которую нужно преобразовать. в выходной файл вывести преобразованный текст программы. пример ввода test* t = new test(); t-> a = 1; t-> b = 2; t-> go(); // a=1, b=2 -> a=2, b=3 вывод для примера test* t = new test(); t.a = 1; t.b = 2; t.go(); // a=1, b=2 -> a=2, b=3
Ответы
Var sfile: array of string : = system.io.file.readalllines('in.txt'); scomm, str2: string; begin foreach str: string in sfile do begin scomm : = system.text.regularexpressions.regex.matches (str, '.*(//.*)').item[0].groups[1].value; system.io.file.appendalltext('out.txt', string.format('{0}{1}', scomm.insert(0, system.text.regularexpressions.regex.replace(str, '(.*)//.*', '$1').replace('-> ', '.' system.environment.newline)); end; end.
Const handsfree = true; n = 15; var a: array[1..n] of real; i: integer; sum: real; begin {ввод массива} writeln('данные массива: '); for i : = 1 to n do begin if handsfree then begin a[i] : = random(100) - 50; write(a[i], ' '); end else readln(a[i]); end; writeln(); {подсчет суммы и произведения} sum : = 0; for i : = 1 to n do begin if a[i] > 10 then sum : = sum + a[i]; end; writeln('sum = ', sum); end.
//1a var i,x1,x2: integer; begin for i: =10 to 99 do begin x1: =i mod 10; x2: =i div 10; if (sqr(x1)+sqr(x2)) mod 13=0 then writeln(i); end; end. //1б var i,x1,x2: integer; begin for i: =10 to 99 do begin x1: =i mod 10; x2: =i div 10; if x1+x2+sqr(x1+x2)=i then writeln(i); end; end. //2 var i,n,a,k1,k2: integer; begin readln(n); for i: =1 to n do begin readln(a); if a< 1985 then k1: =k1+1; if a> 1990 then k2: =k2+1; end; writeln('родившиеся до 1985: ',k1); writeln('родившиеся после 1990: ',k2); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Почему роботы создаются по принципу живых организмов
Автор: makeeva-nataliya60
Как называется кнопка который перезагружает пк подскажите.
Автор: ainetdinovsnab
Нужен доклад по всем этапам развития ивм. кратко.
Автор: Aleksandrovna Kolesnik1764
Чем отличаются кисти в Paint 3D от кистей в Paint?
Автор: irinabaranova2760
Определи, является ли высказыванием: 2−10=18, 5+10. почему?
Автор: myudanova631