Var a,b: integer;
begin
writeln ('Введите два числа');
read(a,b);
if a=b then a:=0
else
begin
a:=-1*a; b:=-1*b;
end;
writeln(a,' ',b);
end.
<em>MS DOS QBasic 1.0</em>
DIM n AS INTEGER, m AS INTEGER
CLS
INPUT "n,m=", n, m
IF n < 3 THEN
PRINT "n<3"
SYSTEM
END IF
REDIM a(1 TO n, 1 TO m) AS INTEGER
RANDOMIZE TIMER
FOR i = 1 TO n
FOR j = 1 TO m
a(i, j) = INT(50 * RND)
PRINT USING "###"; a(i, j);
NEXT j
PRINT
NEXT i
PRINT
FOR i = 4 TO n
FOR j = 1 TO m
a(i - 1, j) = a(i, j)
NEXT j
NEXT i
FOR i = 1 TO n - 1
FOR j = 1 TO m
PRINT USING "###"; a(i, j);
NEXT j
PRINT
NEXT i
<u>Пример
</u>n,m=5,8
43 6 19 48 44 6 28 10
5 48 44 1 31 30 25 33
19 30 46 27 29 34 45 8
17 37 43 1 37 46 25 45
48 48 27 21 36 48 44 37
43 6 19 48 44 6 28 10
5 48 44 1 31 30 25 33
17 37 43 1 37 46 25 45
48 48 27 21 36 48 44 37
<u>Замечание</u>
Поскольку QBasic не поддерживает сохранение содержимого при изменении размеров динамического массива, для упрощения было решено не заниматься созданием вспомогательного массива, копирования в него всех строк, кроме последней, затем изменение размера исходного массива и обратное копирование в него. Просто считается, что n уменьшилось на 1.
Я пологаю вы работаете с Exel.
Для начала напротив клетки "Площадь", вычислите площать вставив функцию суммы.
В след клетке сложите весь объём так, вставкой математической функции, потом выделив графу глубины и все данные используйте функцию MAX
ПОтом выделеите все клетки напротив "напор" и используйте функцию MIN
1 старик
2 золотой рыбкой
3 золотая рыбка - управляет вещами
//Pascal ABC.NET 3.1 сборка 1219
Var
x1,x2,x3,y1,y2,y3:integer;
p1,p2:real;
begin
readln(x1,y1,x2,y2,x3,y3);
p1:=(y3-y1)/(y2-y1);
p2:=(x3-x1)/(x2-x1);
if p1=p2 then writeln('На одной прямой') else writeln('Не на одной прямой');
end.
Пример ввода:
1
1
2
2
3
3
Пример вывода:
<span>На одной прямой</span>