Мне к завтрашнему дню нужно сделать программу,рисующую пейзаж с солнцем и радугой. у меня у родителей годовщина 15 лет, я даже подарок не купила. за понимание! 59 !
Информация (от лат. informatio — «разъяснение, изложение, осведомлённость») — сведения о чём-либо, независимо от формы их представления. Информатика (от информация и автоматика) — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации, обеспечивающих возможность её использования для принятия решений. Компьютер (англ. computer, МФА: — «вычислитель») — устройство или система выполнять заданную, чётко определённую последовательность операций. Текстовый редактор — самостоятельная компьютерная программа или компонент программного комплекса (например, редактор исходного кода интергрированной среды разработки или окно ввода в браузере), предназначенная для создания и изменения текстовых данных вообще и текстовых файлов в частности. Графический редактор — программа (или пакет программ), позволяющая создавать и редактировать двумерные изображения с компьютера.
Program task; var p:array[1..10] of integer; i, n2, n3, n4, n5:integer; begin n2:=0; n3:=0; n4:=0; n5:=0; {n2 - n5 - колич. 2-ек, 3-ек и т.д.} writeln('Введите 10 элементов массива, отметки от 1 до 5'); for i:=1 to 10 do {ввод исходных данных} begin write('p[',i,'] = '); readln(p[i]) end; for i:=1 to 10 do {решение, перебор таблицы и суммирование} begin if p[i] = 2 then n2:=n2+1; if p[i] = 3 then n3:=n3+1; if p[i] = 4 then n4:=n4+1; if p[i] = 5 then n5:=n5+1 end; writeln('n2 = ',n2); {вывод результатов} writeln('n3 = ',n3); writeln('n4 = ',n4); writeln('n5 = ',n5); writeln('всего оценок',n2+n3+n4+n5) end.
var i: integer;
procedure Montain (x,y,k: integer);
begin
setpenwidth(1);
setpencolor(clgreen);
line(x,y,x-(30*k),y+(30*k));
line(x,y,x+(30*k),y+(30*k));
line(x+(30*k),y+(30*k),x-(30*k),y+(30*k));
floodfill(x,y+10,clgreen);
setpencolor(clbrown);
line(x,y,x-(20*k),y+(20*k));
line(x,y,x+(20*k),y+(20*k));
line(x+(20*k),y+(20*k),x-(20*k),y+(20*k));
floodfill(x,y+10,clbrown);
setpencolor(clwhite);
line(x,y,x-(10*k),y+(10*k));
line(x,y,x+(10*k),y+(10*k));
line(x+(10*k),y+(10*k),x-(10*k),y+(10*k));
floodfill(x,y+5,clwhite);
end;
begin
setpencolor(clnavy);
setwindowsize(900,600);
clearwindow(clnavy);
for i:=1 to 100 do
begin
setbrushcolor(rgb(random(255),random(255),random(255)));
circle(random(700)+200,random(180),3);
end;
setbrushcolor(clgreen);
rectangle(0,350,900,600);
setpencolor(clblue);
arc(900,1300,900,0,180);
floodfill(800,500,clblue);
Montain (500,150,7);
Montain (700,170,6);
Montain (300,200,5);
Montain (200,270,3);
Montain (600,270,3);
Montain (400,270,2);
Montain (50,300,2);
setpencolor(clteal);
arc(500,1250,900,80,180)
arc(800,1250,900,95,180);floodfill(100,500,clOlive);
setpencolor(clwhite);
arc(100,100,50,-84,180);
arc(70,130,40,-30,150);
floodfill(100,100,clwhite);
end.
плагиат ,конечно, но всё же