var n, i: longint; a: array of longint; // procedure completeMAS (kolvo: longint; var mas: array of longint); var i: longint; begin setLength (mas, kolvo); for i:=0 to kolvo-1 do mas[i]:=0; mas[random (kolvo)]:=random (1000000)+1; end; // begin randomize; readln (n); completeMAS (n, a);
// PascalABC.NET 3.2, сборка 1374 от 10.01.2017 // Внимание! Если программа не работает, обновите версию!
procedure MyArray(n:integer;var a:array of integer); begin a:=ArrFill(n,0); // заполняем массив нулями Randomize; // инициализируем датчик случайных чисел // в случайный элемент заносим слчайное значение a[Random(0,n-1)]:=Random(1,99) end;
begin var n:=ReadInteger('n='); // читаем с клавиатуры размер массива var mas:array of integer; MyArray(n,mas); // вызываем процедуру mas.Println // выводим сформированный массив end.
Microsoft Word (часто — MS Word или просто Word) — текстовый процессор, предназначенный для создания, просмотра и редактирования текстовых документов, с локальным применением простейших форм таблично-матричных алгоритмов. Выпускается корпорацией Microsoft в составе пакета Microsoft Office. Первая версия была написана Ричардом Броди (Richard Brodie) для IBM PC, использующих DOS, в 1983 году. Позднее выпускались версии для Apple Macintosh (1984), SCO UNIX и Microsoft Windows (1989). Текущей версией является Microsoft Office Word 2016 для Windows и macOS.
В таком виде программа, хотя бы запустится: program i_2; const c=2; f=4; g=6; var r,p: real; begin writeln('определение площади треугольника по теореми Герона'); write('нахождение площади'); readln(r); p:=(c+f+g)/2; r:=sqrt(p*(p-c)*(p-f)*(p-g)) end.
Но есть куча вопросов: 1) Если c, f, g - стороны треугольника, то что такое - r ? 2) Если r - это площадь, то как мы можем её ввести, если мы хотим её сосчитать? 3) Где вывод полученной информации (writeln(r))? 4) Треугольника со сторонами c=2, f=4 и g=6 существовать не может
Предлагаю отказаться от экзотических обозначений и сделать проверку на существование треугольника, а также добавить получение данных по сторонам от пользователя: program i_2; var a,b,c,p,s: real; begin writeln('Определение площади треугольника по теореме Герона'); write('Введите стороны треугольника: '); readln(a,b,c); if (a + b <= c) or (b + c <= a) or (a + c <= b) then writeln ('Треугольника с такими сторонами не существует') else begin p:=(a+b+c)/2; s:=sqrt(p*(p-a)*(p-b)*(p-c)); writeln('Площадь треугольника равна ',s:0:3) end end.
var
n, i: longint;
a: array of longint;
//
procedure completeMAS (kolvo: longint; var mas: array of longint);
var i: longint;
begin
setLength (mas, kolvo);
for i:=0 to kolvo-1 do
mas[i]:=0;
mas[random (kolvo)]:=random (1000000)+1;
end;
//
begin
randomize;
readln (n);
completeMAS (n, a);
for i:=0 to n-1 do
write (a[i], '; ');
end.