Написать программу которая будет выводить на экран 50 концентрических квадратов с центром в середине экрана (по размеру в смысле 1,2,3 и до 50) в pascalabc.net
begin Window.SetSize(600,600); var (x,y):=(WindowWidth div 2,WindowHeight div 2); for var i:=1 to 50 do begin setpencolor(RGB(random(255),random(255),random(255))); DrawRectangle(x-5*i,y+5*i,x+5*i,y-5*i); end end.
Все модели можно разбить на два больших класса: модели предметные (материальные) и модели информационные. Предметные модели воспроизводят геометрические, физические и другие свойства объектов в материальной форме (глобус, анатомические муляжи, модели кристаллических решеток, макеты зданий и сооружений и др.) . Информационные модели представляют объекты и процессы в образной или знаковой форме. Образные модели (рисунки, фотографии и др. ) представляют собой зрительные образы объектов, зафиксированные на каком-либо носителе информации (бумаге, фото- и кинопленке и др.) . Широко используются образные информационные модели в образовании (вспомните учебные плакаты по различным предметам) и науке, где требуется классификация объектов по их внешним признакам (в ботанике, биологии, палеонтологии и др.) . Знаковые информационные модели строятся с использованием различных языков (знаковых систем) . Знаковая информационная модель может быть представлена в форме текста (например, программы на языке программирования) , формулы (например, второго закона Ньютона F=m·a), таблицы (например, периодической таблицы элементов Д. И. Менделеева) и так далее. Иногда при построении знаковых информационных моделей используются одновременно несколько различных языков. Примерами таких моделей могут служить географические карты, графики, диаграммы и пр. Во всех этих моделях используются одновременно как язык графических элементов, так и на протяжении своей истории человечество использовало различные и инструменты для создания информационных моделей. Эти постоянно совершенствовались. Так, первые информационные модели создавались в форме наскальных рисунков, в настоящее же время информационные модели обычно строятся и исследуются с использованием современных компьютерных технологий.
const n=10; var min,i: integer; a: array[1..n] of integer; begin randomize; min:=11; for i:=1 to n do begin a[i]:=random(1,10); write (a[i],' '); // для наглядности. можно удалить if (i mod 2 =1) and (a[i]<min) then min:=a[i]; end; writeln; writeln ('min = ',min) end.
Пример: 5 4 7 8 6 2 10 4 9 9 min = 5
2 задача:
const n=10; var max,count,i: integer; a: array[1..n] of integer; begin randomize; max:=0; count:=0; for i:=1 to n do begin a[i]:=random(1,10); write (a[i],' '); // для наглядности. можно удалить if a[i]>max then max:=a[i]; end; for i:=1 to n do if max=a[i] then count:=count+1; writeln; writeln ('max = ',max); writeln ('count = ',count); end.
begin
Window.SetSize(600,600);
var (x,y):=(WindowWidth div 2,WindowHeight div 2);
for var i:=1 to 50 do
begin
setpencolor(RGB(random(255),random(255),random(255)));
DrawRectangle(x-5*i,y+5*i,x+5*i,y-5*i);
end
end.
Пример - в прилагаемом файле.