1) записать в переменную d последнюю цифру Числа, находящегося в переменной N. 2) отбросить последнюю цифру числа, находящегося в переменной N; 3) добавить значение переменной d значению, находящемуся переменной ѕ.
// PascalABC.NET 3.2, сборка 1374 от 10.01.2017 // Внимание! Если программа не работает, обновите версию!
begin Writeln('*** Матрица А ***'); var a:=MatrRandom(4,7,-50,50); a.Println(4); Writeln('*** Матрица B ***'); var b:=MatrRandom(4,7,-50,50); b.Println(4); Writeln(4*a.ColCount*'-'); Writeln('*** Матрица А-B ***'); for var i:=0 to 3 do begin for var j:=0 to 6 do Write(a[i,j]-b[i,j]:4); Writeln end; end.
Вот код, написанный в среде PascalABC.NET 3.2 и проверенный в среде Free Pascal (fpc):
const n=14; var a,b,c:array[1..n] of integer; i:integer; begin Randomize; for i:=1 to n do begin a[i]:=random(199)-99; // [-99;99] Write(a[i],' '); b[i]:=random(199)-99; // [-99;99] end; Writeln; for i:=1 to n do Write(b[i],' '); Writeln; for i:=1 to n do begin c[i]:=a[i]*b[n+1-i]; Write(c[i],' ') end; Writeln end.
В качестве бонуса и вопроса "в воздух" - та же самая программа, написанная с учетом современных возможностей PascalABC.NET 3.2
begin var a:=ArrRandom(14,-99,99); a.Println; var b:=ArrRandom(14,-99,99); b.Println; var c:=a.Zip(b.Reverse,(x,y)->x*y).ToArray; c.Println end.
И обещанный вопрос: Если Паскаль, как система программирования, в настоящее время используется только в целях обучения (следовательно, критерий "fpc шире распространен" отпадает), то зачем учиться на давным-давно устаревшей версии? Чтобы писать было сложнее, больше и допускать при этом больше ошибок?
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку