Const N=5; M=6; var A:array[1..100,1..100] of Integer; B:integer; function massive():integer; begin B:=random(-100,100); Result:=B; end; procedure input(i,j:integer); begin For i:=1 to N do For j:=1 to M do A[i,j]:=massive(); end; procedure output(i,j:integer); begin For i:=1 to N do begin For j:=1 to M do Write(A[i,j],' '); Writeln; end; end; begin input(1,1); output(1,1); end.
Деревья в лесу или в парке, или одиноко стоящее дерево посреди поля - довольно распространённый объект рисования. Без дерева нельзя изобразить пейзаж или красивый фон, состоящий из леса. С первого взгляда дерево рисуется очень просто – есть ствол, ветви, листья, но на практике художник сталкивается с неожиданными трудностями и изобразить дерево становиться настоящей проблемой. На этом уроке мы попробуем научиться некоторым рисования деревьев.Будет весьма полезным для любого художника научиться рисовать различные деревья, различной сложности, различных видов и в разные времена года и погоды.Обучение на практике.Лучший изучить рисунок дерева – это рисовать их с натуры. Деревья с миллионами ветвей и миллионами подвижных листьев и их оттенков зелёного кидают настоящий вызов художнику.
В недавнем длина имени файла или папки была ограничена восемью символами с расширением не более трех символов. Это правило было известно как Конвенция 8.3. Иногда ваш компьютер обращается с длинными именами файлов не так, как с именами, соответствующими стандарту 8.3. В зависимости от операционной системы, если в названии файла встречаются пробелы, вы Должны заключить название в кавычки, чтобы оно читалось как единое имя. Если папка или файл имеют длинное имя, которое необходимо сократить до восьми знаков, название папки представляется шестью первыми буквами названия и номером, например, progra1 вместо Program Files. Примеры переименования папок, названия которых начинаются одинаково, приведены в 2.2.
var A:array[1..100,1..100] of Integer;
B:integer;
function massive():integer;
begin
B:=random(-100,100);
Result:=B;
end;
procedure input(i,j:integer);
begin
For i:=1 to N do
For j:=1 to M do
A[i,j]:=massive();
end;
procedure
output(i,j:integer);
begin
For i:=1 to N do
begin
For j:=1 to M do
Write(A[i,j],' ');
Writeln;
end;
end;
begin
input(1,1);
output(1,1);
end.