В недавнем длина имени файла или папки была ограничена восемью символами с расширением не более трех символов. Это правило было известно как Конвенция 8.3. Иногда ваш компьютер обращается с длинными именами файлов не так, как с именами, соответствующими стандарту 8.3. В зависимости от операционной системы, если в названии файла встречаются пробелы, вы Должны заключить название в кавычки, чтобы оно читалось как единое имя. Если папка или файл имеют длинное имя, которое необходимо сократить до восьми знаков, название папки представляется шестью первыми буквами названия и номером, например, progra1 вместо Program Files. Примеры переименования папок, названия которых начинаются одинаково, приведены в 2.2.
fshevxuzheva313
20.01.2023
Есть тут один код на примете {Программа СВОБОДНЫЕ КОЛЕБАНИЯ КРУГОВОГО МАТЕМАТИЧЕСКОГО МАЯТНИКА} Program Math_01;
{Описание констант} Const phi0=30; // Начальный угол наклона маятника w0=0; // Начальная угловая скорость маятника l=400; // Длина нити r=8; // Радиус груза light=2; // Радиус блика k=0.02; // Коэффициент сопротивления m=1; // Масса груза xp=320; // Координата x точки подвеса yp=10; // Координата y точки подвеса g=9.8; // Ускорение свободного падения tau=0.4; // Шаг по времени
{Описание переменных} Var x, y, xx, yy, w, eps, phi: Real;
{Процедура инициализации графического режима 640x480} Procedure OpenGraph; Var Driver, Mode, ErrorCode: Integer; Begin Driver:=Detect; InitGraph(Driver, Mode, 'c:\bp\bgi'); ErrorCode:=GraphResult; If ErrorCode <> grOK Then Halt(1); End;
{Процедура исключения мерцаний изображений} Procedure Glimmer; Begin Repeat Until Port[$3da] And 8 <> 0; End;
Const CSize1=7; CSize2=6; CSize3=5; type TMas=array[,] of integer; var A1:TMas; A2:TMas; A3:TMas; x, y:byte;
procedure zapoln(var T:TMas;Size:integer); begin var i,j:integer; setlength(T,Size+1,Size+1); for i:=1 to Size do begin for j:=1 to Size do begin T[i,j]:=random(50); write(T[i,j]:3); end; writeln; end; writeln; end;
function zero(T:TMas):integer; var i,j,n:integer; begin n:=length(T,0)-1; for i:=1 to n do for j:=1 to n do if T[i,j]=0 then result:=result+1; end;
function interval(T:TMas):integer; var i,j,n:integer; begin n:=length(T,0)-1; for i:=1 to n do for j:=1 to n do if (1<=T[i,j]) and (T[i,j]<=12) then result:=result+1; end;
begin zapoln(A1,CSize1); zapoln(A2,CSize2); zapoln(A3,CSize3); x:=zero(A1)+zero(A2)+zero(A3); y:=interval(A1)+interval(A2)+interval(A3); writeln('Kol-vo 0 =', x); writeln('Kol-vo v intervale=', y); end.