begin var n:=ReadInteger('Количество строк в матрице:'); var m:=ReadInteger('Количество столбцов в матрице:'); Writeln('*** Исходная матрица [',n,',',m,'] ***'); var a:=MatrRandom(n,m,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); Writeln('*** Результат [',n,',',m,'] ***'); a.Fill((i,j)->Abs(a[i,j])); a.Println(4) end.
Пример Количество строк в матрице: 4 Количество столбцов в матрице: 7 *** Исходная матрица [4,7] *** 10 42 3 83 -65 43 65 -52 -40 55 75 -27 53 -47 17 88 93 32 35 41 -76 70 13 6 2 9 -22 -55
// Известно, что Х кг шоколадных конфет стоит А рублей, // а Y кг ирисок стоит В рублей. Определить, сколько стоит 1 кг // шоколадных конфет, 1 кг ирисок, а также во сколько раз шоколадные конфеты дороже ирисок.
var x,y,a,b: real; begin writeln('Введите массу шоколадных конфет'); readln (x); writeln('Введите сумму потраченную на покупку шоколадных конфет'); readln (a); writeln('Введите массу ирисок'); readln (y); writeln('Введите сумму потраченную на покупку ирисок'); readln (b); writeln ('килограмм шоколадных конфет стоит ',(a/x):0:2,' рублей');//(a/x):0:2 - округряем до сотых) writeln ('килограмм ирисок стоит ',(b/y):0:2,' рублей'); Writeln ('Шоколадные конфеты дороже ирисок в ',(a/x)/(b/y):0:1,' раз');// - округляем результат до десятых end.
//Дана длина ребра куба а. Найти его объем и площадь поверхности
Var a: real; begin writeln ('введите длину ребра куба'); readln (a); while a<0 do begin writeln ('вы ввели не допустимое значение попробуйте еще раз'); writeln ('введите длину ребра куба'); readln (a); end; writeln ('площадь куба равна ',a*a*6); writeln ('объем куба равен ',a*a*a); end.
// Внимание! Если программа не работает, обновите версию!
begin
var a:=MatrGen(9,9,(i,j)->i+1); a.Println(2);
end.
Результат
1 1 1 1 1 1 1 1 1
2 2 2 2 2 2 2 2 2
3 3 3 3 3 3 3 3 3
4 4 4 4 4 4 4 4 4
5 5 5 5 5 5 5 5 5
6 6 6 6 6 6 6 6 6
7 7 7 7 7 7 7 7 7
8 8 8 8 8 8 8 8 8
9 9 9 9 9 9 9 9 9
begin
var n:=ReadInteger('Количество строк в матрице:');
var m:=ReadInteger('Количество столбцов в матрице:');
Writeln('*** Исходная матрица [',n,',',m,'] ***');
var a:=MatrRandom(n,m,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
Writeln('*** Результат [',n,',',m,'] ***');
a.Fill((i,j)->Abs(a[i,j])); a.Println(4)
end.
Пример
Количество строк в матрице: 4
Количество столбцов в матрице: 7
*** Исходная матрица [4,7] ***
10 42 3 83 -65 43 65
-52 -40 55 75 -27 53 -47
17 88 93 32 35 41 -76
70 13 6 2 9 -22 -55
*** Результат [4,7] ***
10 42 3 83 65 43 65
52 40 55 75 27 53 47
17 88 93 32 35 41 76
70 13 6 2 9 22 55