// PascalABC.NET 3.3, сборка 1625 от 17.01.2018 // Внимание! Если программа не работает, обновите версию!
type tt=record x:integer; y:real end;
procedure Compare(f:file of tt; a:array of integer; var r:string); begin r:='true'; if f.FileSize<>a.Length then begin Writeln('Размер массива не соответствует количеству записей файла'); r:='false'; exit end; f.Seek(0); var t:tt; for var i:=0 to a.Length-1 do begin Read(f,t); if t.x<>a[i] then begin r:='false'; exit end end end;
begin var f:file of tt; var n:=ReadInteger('n='); Writeln('Введите ',n,' значений для сравнения'); var a:=ReadArrInteger(n); var good:=''; Assign(f,'f1.dat'); Reset(f); Compare(f,a,good); Writeln(good); f.Close end.
Внимание! Поскольку входной файл не был представлен, программа не тестировалась! Проверена лишь компиляция программы.
begin hidecursor; repeat write('Сторона квадрата от 20 до 100 a='); read(a); until a in [20..100]; repeat writeln('Введите 2 числа для определения соотношени m<n:'); read(m,n); until m<n; clearwindow; k:=m/n;//отношение kg:=windowwidth div a+1; //кол. кв. по горизонтали kv:=windowheight div a+1; //по вертикали for j:=1 to kg do for p:=1 to kv do begin for i:=1 to 50 do //рисуем 50 вложенных квадратов в 1 месте begin kvadrat; x1:=trunc(x1+(x2-x1)*k); y1:=trunc(y1+(y2-y1)*k); x2:=trunc(x2+(x3-x2)*k); y2:=trunc(y2+(y3-y2)*k); x3:=trunc(x3+(x4-x3)*k); y3:=trunc(y3+(y4-y3)*k); x4:=trunc(x4+(x1-x4)*k); y4:=trunc(y4+(y1-y4)*k); end; x1:=a*(j-1); y1:=a*(p-1); //на новое место x2:=a*j; y2:=a*(p-1); x3:=a*j; y3:=a*p; x4:=a*(j-1); y4:=a*p; end;
Program n1;
var n,i: integer;
p: real;
begin
p:=1;
readln(n);
for i:=1 to n do p:=p*i;
writeln(p);
end.