//PascalABC.NET //Версия 3.3.5, сборка 1650 begin writeln('массив: '); var a:=MatrRandom(6,6,-100,100).Println; write('сумма 1 строки: ',a.Row(0).Sum); end.
fygasika
12.07.2022
Тут, во-первых, не понятно о каких именно таблицах идет речь
Для таблиц баз данных: Строка(несколько вариантов), целое(несколько вариант), с плавающей запятой (несколько вариантов), логичесого типа, дата, датавремя, время и двоичные данные или blob
Для электронных таблиц типа Excel: строка, ссылка, гиперссылка, целое число, дробное число, проценты, денежные единицы, дата, дата-время, время, формула. Так же ячейка может содержать дополнительные данные типа личного имени, комментария, форматирование, цвет фона и тд
var a: array[1..2,1..4] of real; b,c: string; d,x,y: real; i,j: integer; begin b:='ABCD'; c:='xy'; writeln('трапеция ABCD'); for i:=1 to 4 do begin writeln('координаты точки ',b[i],': '); for j:=1 to 2 do begin write(' ',c[j],i,' = '); readln(a[j,i]); end; end; x:=(a[1,3]-a[1,2]+a[1,4]-a[1,1])/2; y:=(a[2,3]-a[2,2]+a[2,4]-a[2,1])/2; d:=sqrt(x*x+y*y); writeln('длина средней линии: ',d:5:2); end.
ввод - вывод
трапеция ABCD координаты точки A: x1 = 3 y1 = 2 координаты точки B: x2 = 5 y2 = 5 координаты точки C: x3 = 9 y3 = 5 координаты точки D: x4 = 10 y4 = 2 длина средней линии: 5.50
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Дан массив 6 на 6 случайных чисел в диапазоне от (-100) до 100.найти сумму первой строки
//Версия 3.3.5, сборка 1650
begin
writeln('массив: ');
var a:=MatrRandom(6,6,-100,100).Println;
write('сумма 1 строки: ',a.Row(0).Sum);
end.