PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018 Внимание! Если программа не работает, обновите версию!
begin Writeln('*** Исходная матрица ***'); var a:=MatrRandom(5,5,-9,9); a.Println(3); Writeln(15*'-'); var s:=a.ElementsByRow.GroupBy(t->t).Select(t->(t.Key,t.Count)) .Where(t->t[1]>1).OrderBy(t->t[0]); var c:=a.ElementsWithIndexes.OrderBy(t->t[0]).ToArray; Writeln('Знач. Кол-во Индексы'); foreach var p in s do begin Write(p[0]:3,p[1]:7,' '); var q:=p[0]; var s1:=c.IndexesOf(t->t[0]=q); foreach var k in s1 do Write('(',c[k][1]+1,',',c[k][2]+1,') '); Writeln end end.
1.Для начала нарисуйте основной контур корабля. Для будущего корпуса нарисуйте такую вот несложной формы контур, из которого мы и будем "строить" корабль. 2.Теперь нужно нарисовать основу мачт старинного деревянного корабля парусника. Для этого сначала нарисуйте две длинные вертикальные линии. Первая справа будет самая большая и левая чуть короче. Пометьте мачты корабля черточками в тех местах, где будут перекладины для парусов. 3.На этом этапе нужно нарисовать контуры парусов фрегата. Рисуйте их почти прямоугольной формы. На крайней правой мачте их будет три (треугольной формы). На средней мачте будет пять парусов, на последней мачте корабля тоже пять, но только меньшего размера. 4.Сейчас нам нужно будет нарисовать корму парусного корабля в деталях. Нарисуйте боковую линию кормы плавной линией, а также учтите, что задняя часть кормы должна располагаться чуть ниже по отношению к носовой части корабля. Выделите носовую часть еще одной вертикальной линией и нарисуйте продольные участки вдоль корпуса. 5.На этом этапе рисуем мачты и паруса нашего парусника более детально. Прежде всего, удалите ластиком предыдущие ненужные контуры основы корабля и мачт, а после прорисуйте окончательно форму всех парусов и мачт. Чтобы вам было легче это сделать, ориентируйтесь на мой рисунок. 6.Сейчас займемся парусами корабля "основательно" и натянем их полотнище ветром. Начнем с первой наклонной мачты. Эти паруса будут в виде треугольников. Придадим этим парусам небольшой изгиб от бокового ветра. Нарисуйте в деталях и основные паруса корабля. Для этого вертикальные прямые линии нужно заменить слегка изогнутыми. Это создаст впечатление дующего в паруса ветра, а заодно и движения корабля. 7.Если вы будете рисовать корабль только простым карандашом, то для нанесения теней используйте мягкий карандаш. Затените гормональные участки кормы. С теней мачты и паруса на рисунке станут объемными.
Program z1; var mas: array[1..100] of integer; i,a,b,c,n,min: integer; begin a:=0; min:=1000; c:=0; writeln('Введите количество элементов массива'); readln(n); writeln('Введите элементы массива'); for i:=1 to n do begin read(mas[i]); if mas[i]>0 then a:=a+mas[i]; if mas[i]<min then begin min:=mas[i]; b:=i; end; if mas[i] mod 5=0 then c:=c+1; end; writeln('Сумма положительных элементов массива равна ',a); writeln('Номер наименьшего элемента массива равен ',b); writeln('Количество элементов массива, кратных пяти, равно ',c); end.
Внимание! Если программа не работает, обновите версию!
begin
Writeln('*** Исходная матрица ***');
var a:=MatrRandom(5,5,-9,9);
a.Println(3); Writeln(15*'-');
var s:=a.ElementsByRow.GroupBy(t->t).Select(t->(t.Key,t.Count))
.Where(t->t[1]>1).OrderBy(t->t[0]);
var c:=a.ElementsWithIndexes.OrderBy(t->t[0]).ToArray;
Writeln('Знач. Кол-во Индексы');
foreach var p in s do begin
Write(p[0]:3,p[1]:7,' ');
var q:=p[0];
var s1:=c.IndexesOf(t->t[0]=q);
foreach var k in s1 do
Write('(',c[k][1]+1,',',c[k][2]+1,') ');
Writeln
end
end.