Написать программу по информатике на паскале. создать с клавиатуры массив из трех чисел-первое число от 1 до 25, второе от 26 до 50, третье от 51 до 100. создать второй массив случайным образом по таким же правилам. сравнить эти числа и написать сколько совпало
132
371
Ответы на вопрос:
Type mas=array[1..3] of integer; var a,b: mas; i,k: integer; procedure proc(var x: mas); var i: integer; begin x[1]: =random(25)+1; x[2]: =random(25)+26; x[3]: =random(50)+51; for i: =1 to 3 do write(x[i],' '); writeln; end; begin randomize; writeln('1-й массив: '); proc(a); writeln('2-й массив: '); proc(b); k: =0; for i: =1 to 3 do if a[i]=b[i] then k: =k+1; writeln('число совпавших элементов = ',k); end. пример: 1-й массив: 6 29 582-й массив: 21 29 63число совпавших элементов = 1
Var a,b: array[1..3] of integer; begin a[1]: =random(26); b[1]: =random(26); a[2]: =random(26)+25; b[2]: =random(26)+25; a[3]: =random(51)+50; b[3]: =random(51)+50; writeln(a[1],' ',a[2],' ',a[3]); writeln(b[1],' ',b[2],' ',b[3]); if (a[1]=b[1]) and (a[2]=b[2]) and (a[3]=b[3]) then writeln('совпало 3') else if ((a[1]=b[1]) and (a[2]=b[2])) or ((a[2]=b[2]) and (a[3]=b[3])) or ((a[1]=b[1]) and (a[3]=b[3])) then writeln('совпало 2') else if (a[1]=b[1]) or (a[2]=b[2]) or (a[3]=b[3]) then writeln('совпало 1') else writeln('совпадений нет'); end. p.s писал не на компьютере, возможны ошибки, проверьте и в случае если обнаружатся ошибки, напишите мне
Векторное изображение - это тип изображения, которое состоит из объектов, описанных . свойства этой фигуры не будут изменяться при увеличении, поскольку фигура состоит из кривых. каждая точка этой фигуры имеет свои координаты, на этом фигура и основана, то есть заданы координаты точек, а между ними могут быть расположены различные кривые. их "искривленность" зависит от свойств точек. кривые могут иметь только цвет и толщину. плюсы векторных изображений: - гибкая масштабируемость, можно изменять размеры изображений без потери его визуальных качеств; - максимальная точность построенного изображения (координаты точек, между которыми могут быть проведены кривые, могут иметь точность до сотых доль микрона) ; - файл с векторным изображением имеет гораздо меньший размер по сравнению с растровым изображением; - рисунок имеет высокое качество при печати, особенно это хорошо заметно на хороших принтерах при качественной печати; - возможность редактирования всех частей векторного изображения; - простой экспорт векторного рисунка в растровый. минусы векторных изображений: - отсутствие реалистичности у векторных рисунков. реалистичность достигается путем применения различных сложных цветовых схем; - невозможность использования эффектов, которые можно применять в растровой графике; - практически полная невозможность экспорта растрового рисунка в векторный; растровое изображение - это изображение, в основе которого стоит таблица. ячейки таблицы - это пикселы. пиксел - это еденица измерения размеров растрового изображения. один пиксел - это одна клеточка в растровом изображении. соответственно растровые изображения состоят из пикселов, только они настолько малы, что в нормальном виде их трудно разлечить. каждый пиксел растрового изображения имеет следующие свойства: цвет и координаты расположения пиксела. плюсы растрового изображения: - высокая реалистичность изображения; - на растровом изображении может быть изображено все, что угодно: как снимок с фотокамеры, так и нарисованное на компьютере изображение; - к растровым изображениям можно применять самые разнообразные эффекты; - растровые форматы рисунков используются при создании вэб-страниц в интернете; недостатки растровых изображений: - растровые изображения плохо масштабируются, можно уменьшить изображение, однако увеличить его без потери качества невозможно (к потери качества относиться заметное увеличение размытия изображения после увеличения рисунка) ; - нельзя разбить растровое изображение на части и редактировать их; - файл с растровым изображением имеет больший размер по сравнению с векторным.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Kylaguzzz09.02.2022 03:53
-
lilli39328.07.2020 16:31
-
maksim345221.11.2021 20:25
-
Bbbbkoo06.04.2023 21:51
-
maks197415.02.2020 05:29
-
Nastiusha280119.12.2020 00:25
-
натаха3728.09.2020 10:21
-
Munas17.04.2022 01:52
-
Диа20042616.06.2022 22:41
-
oihgoilk04.06.2022 20:04
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.