Тема: Веб у школі. Мета: з'ясувати поняття Веб 2.0, виконати класифікацію сервісів, що належать до веб 2.0, та навести приклади сервісів, які можна використовувати в навчанні. Это задание по информ можете написать на русском
// PascalABC.NET 3.1, сборка 1219 от 16.04.2016 begin var s:=ReadlnString('>'); var delims:=' ,:;!?'.ToCharArray; // разделители var a:=s.ToWords(delims).JoinIntoString; // очистка от мусора var aw:=a.MatchValues('([A-Za-zА-Яа-яЁё])+').ToArray; var ad:=a.MatchValues('([-\d.])+').ToArray; Print('Слова:'); aw.Println; Print('Самое длинное слово:'); var ind:=aw.Select(x->x.Length).ToArray.IndexMax; Println(aw[ind]); var m:=aw[ind].Length; // самая большая длина слова aw:=aw.Select(x->x.PadRight(m)).ToArray; Print('Числа:'); ad.Println; Print('Самое длинное число:'); Println(ad[ad.Select(x->x.Length).ToArray.IndexMax]); for var j:=1 to m do begin for var i:=0 to aw.Length-1 do Print(aw[i][j]); Writeln end; end.
Тестовое решение: > Длина составляет 1.2 метра; ширина 0.93 метра! Слова: Длина составляет метра ширина метра Самое длинное слово: составляет Числа: 1.2 0.93 Самое длинное число: 0.93 Д с м ш м л о е и е и с т р т н т р и р а а а н а в а л я е т
Из-за того, что тут используется пропорциональный шрифт, нарушено взаимное расположение символов на выводе. Истинная картина дана во вложении.
Объяснение:
Множество относится к структурным типам данных.
Тип «множество» задаёт интервал значений, который явля-
ется множеством всех подмножеств базового типа. Базовый
тип – это перечислимый тип, кроме word, integer, longint. Син-
таксис определения типа множества:
<имя типа> = set of <базовый тип>;
Примеры:
Type
Tdigit = set of 0 .. 9;
Tsimv = set of ‘A’ .. ‘Z’ ;
Var
digit : Tdigit ;
simv : Tsimv;
Если переменная типа «множество» описана как set of 1 .. 3, то
она может принимать следующие значения: (1, 2, 3), (1, 2), (1,
3), (2, 3), (1), (2), (3), ().
Размер множества равен числу компонент базового типа
и может меняться от 0 до 256. Множество может быть пустым.