<span>Все сильнее и сильнее высокие технологии входят в нашу жизнь. Компьютеризированные телескопы, множество гаджетов- это не воспаленная фантазия писателей, а наше время. Одной из таких "фантастических чуд"- роботы. Роботы все чаще и чаще заменяют человека на множествах работ, где "железному другу" проще, чем человеку. Посредством алгоритмов роботы решают самые запутанные задачи. К примеру, роботизированный станок используется на множествах фабрик, от производства конфет и до заводов по сборке автомобилей. Почти каждая деталь сделана специальным станком, подчиняющийся алгоритмам и командам, созданных человеком!</span>
Процедуры всегда перед прогр. нужно делать
1.А)
Во-втором через Open Office и Paint нельзя создать 3D модели
2.А) и C)
Вот хоть бы указывали язык, ей богу.
Паскаль я не знаю, но постарась помочь чем смогу
примерный алгоритм таков
var
space:integer; {Расстояние между квадратами и границами}
a : integer; {сторона квадрата}
rows,columns:integer;{количество строк, столбцов}
i,j:integer;
begin
{Инициализируйте переменные уж как-нибудь сами}
For i:=1 to rows do
begin
For j:=1 to columns do
begin
{рисоватьПрямоугольник(поз X, поз Y, длина, ширина);}
{По позициям начала отрисовки мы пропускаем нужное нам количество
пространства, а именно нужное количество занимаемого места пропусками
и квадратами}
drawRect(space*j+a*(j-1) , space*i + a*(i-1), a,a );
end;
end;
<span>в 2007 версии 1 048 576 строк и 16 384 столбцов
в 2003 - 65 535 строк и 256 столбов</span>
Program abitura;
Uses Crt;
var n,i,r,n1,n2,n3:integer;
begin
clrscr;
write('Введите количество абитуриентов:');
readln(n);
for i:=1 to n do
begin
writeln('Абитуриент номер ' ,i );
write('Введите оценку за первый экзамен');
readln(n1);
write('Введите оценку за второй экзамен');
readln(n2);
write('Введите оценку за третий экзамен');
readln(n3);
r:=n1+n2+n3;
if (r>=13) then writeln('Вы зачислены на дневное отделение ');
if (r>10) and (r<12) then writeln('Вы зачислены на вечернее отделение ');
if (r>=8) and (r<=9) then writeln('Вы зачислены на заочное отделение ');
if (r<8) then writeln('Вам отказанно в зачислении ! ');
end;
readkey;
end.