1. Запишите оператор позволяющий выбрать один вариант решения задачи из нескольких в зависимости от значения выражения . 2. Организуйте цикл for, счетчик которого изменяется от 10 до 25 с шагом 3(i=i+3) и вывод результата на экран.
// PascalABC.Net 3.0, сборка 1066 // PascalABC.Net 3.0, сборка 1066 const nn=50; mm=50; var a:array[1..mm,1..nn] of integer; i,j,m,n,k:integer; begin Write('Введите число строк и столбцов массива: '); Read(m,n); Write('Введите значение, заменяемое нулем: '); Read(k); Randomize; Writeln('*** Исходный массив ***'); for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=Random(51)-25; Write(a[i,j]:4) end; Writeln end; Writeln('*** Результирующий массив ***'); for i:=1 to m do begin for j:=1 to n do begin if i+j=k then a[i,j]:=0; Write(a[i,j]:4) end; Writeln end end.
Проще всего перевести числа в 10-ную систему, умножить и перевести обратно в 16-ную. 4A,3 = 4*16 + 10 + 3/16 = 74,1875 F,6 = 15 + 6/16 = 15,375 74,1875 * 15,375 = 1140,6328125 = 256*4 + 16*7 + 4 + 0,6328125 = = 4*256 + 7*16 + 4 + 10/16 + 2/256 = 474,A2 А если нужно обязательно в 16-ричной, то поищи "шестнадцитиричная таблица умножения". Именно так, словами, а не "16-ричная"! Из нее можно узнать, что: 4*F = 3C; A*F = 96; 3*F = 2D; 4*6 = 18; A*6 = 3C; 3*6 = 12. Умножаем в столбик: 4A,3 F,6
1BD2 458D
474,A2 Надеюсь, понятно, как я складывал числа? Например, D + D(16) = 13 + 13(10) = 26(10) = 16 + 10(10) = 1A(16) И остальные числа точно также, переводя в уме в 10-ную и складывая.
// PascalABC.Net 3.0, сборка 1066
const
nn=50;
mm=50;
var
a:array[1..mm,1..nn] of integer;
i,j,m,n,k:integer;
begin
Write('Введите число строк и столбцов массива: '); Read(m,n);
Write('Введите значение, заменяемое нулем: '); Read(k);
Randomize;
Writeln('*** Исходный массив ***');
for i:=1 to m do begin
for j:=1 to n do begin
a[i,j]:=Random(51)-25;
Write(a[i,j]:4)
end;
Writeln
end;
Writeln('*** Результирующий массив ***');
for i:=1 to m do begin
for j:=1 to n do begin
if i+j=k then a[i,j]:=0;
Write(a[i,j]:4)
end;
Writeln
end
end.
Тестовое решение:
Введите число строк и столбцов массива: 10 8
Введите значение, заменяемое нулем: 11
*** Исходный массив ***
-23 8 2 -4 6 17 -11 -20
-15 -18 -8 15 1 3 -12 -4
-14 9 3 -2 20 -13 21 -23
-20 24 -13 18 -6 -16 -19 -23
-24 -25 -16 1 0 18 -7 -8
-7 22 19 -6 -25 -6 -23 17
9 -23 -7 18 5 -9 11 16
12 0 -9 8 4 -4 12 -24
-24 -10 13 1 -7 13 21 -6
-9 -14 -21 24 -6 2 -24 11
*** Результирующий массив ***
-23 8 2 -4 6 17 -11 -20
-15 -18 -8 15 1 3 -12 -4
-14 9 3 -2 20 -13 21 0
-20 24 -13 18 -6 -16 0 -23
-24 -25 -16 1 0 0 -7 -8
-7 22 19 -6 0 -6 -23 17
9 -23 -7 0 5 -9 11 16
12 0 0 8 4 -4 12 -24
-24 0 13 1 -7 13 21 -6
0 -14 -21 24 -6 2 -24 11