Для групповых операций с файлами используются маски имен файлов. маска представляет собой последовательность букв, цифр и прочих допустимых в именах файлов символов, в которых также могут встречаться следующие символы: символ «? » (вопросительный знак) означает ровно один произвольный символ. символ «*» (звездочка) означает любую последовательность символов произвольной длины, в том числе «*» может задавать и пустую последовательность.в каталоге находится 6 файлов: marafon.doc karat.doc pamir.docx karat.xml karagat.docx parafin.exe определите, по какой из масок из них будет отобрана указанная группа файлов: marafon.doc karat.doc karagat.docx
Ответы
Искомая маска: ? ara*.doc*
// pascalabc.net 3.3, сборка 1583 от 25.11.2017 // внимание! если программа не работает, обновите версию! begin writeln('*** исходный массив ***'); var a: =matrrandom(4,4,-99,99); a.println(4); writeln(4*a.colcount*'-'); var sn: =a.elementsbyrow.where(t-> t< 0).sum; writeln('сумма отрицательных элементов равна ',sn); var sd: =0; for var i: =0 to a.rowcount-1 do sd+=a[i,i]; writeln('сумма элементов на главной диагонали равна ',sd); end. пример *** исходный массив *** 55 -36 70 19 79 14 5 -5 79 -9 -62 20 -71 69 -34 66 сумма отрицательных элементов равна -217 сумма элементов на главной диагонали равна 73
//pascal // 1) var x, y: integer; begin write('введите x y: '); read(x, y); if x > y then writeln(x - y) else writeln(y - x); end. // 2) var a, b, c: integer; begin write('введите a b c: '); read(a, b, c); if (a > (b + c)) then writeln(a) else writeln(b + c); end. // 3) var x, k: integer; begin write('введите x k: '); read(x, k); if k = 1 then writeln(sin(x)) else if k = 2 then writeln(cos(x)) else writeln('k должен быть равен 1 или 2.'); end. // 4) var p, m: integer; begin write('введите p, m: '); read(p, m); if p > m * 2 then writeln(p) else writeln(m * 2); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос: