Найдите ошибки в программах: 1 var a, b, c, d, f, p: integer; begin writeln('Введите 5 численных значений:'); readln(a, b, c, d, f); p=a+b+c+d+f; writeln('p=', p); end. 1. неверная запись оператора присваивания 2. отсутствует раздел переменных 3. в операторе ввода используется неверный разделитель 2). program Prim_2_1; var a, b, c: integer; begin writeln(″Введите 3 численных значения:″); readln(a, b, c); s:=a+b+c; writeln(″s=″, s); end. 1. неверно построен раздел переменных 2. имя программы написано неправильно 3. использованы неверные ограничители текстовых частей 3). program Prim_2_1; begin readln(a, b, c); p:=(a+b+c)*2; writeln('p=', p); end. 1. отсутствует раздел переменных 2. отсутствует ввод данных 3. неверная запись оператора присваивания 4). var a, b: integer; begin writeln('Введите 5 численных значений:'); p:=a+b+c+d+f; writeln('p=', p); end. 1. неверно сделано описание переменных 2. отсутствует ввод переменных 3. отсутствуют вывод данных 5). program Prim_2_1; var a, b, c: integer; begin writeln('Введите 2 численных значения:'); readln(a, b, c); с:=a/b; writeln('c=', c); end. 1. неверно описан тип данных 2. отсутствуют вычисления в программе 3. ошибка в записи оператора присваивания. 6). var a, b, c, d, f, p: integer; begin writeln('Введите 5 численных значений:'); readln(a, b, c, d, f); writeln('p=', p); end. 1. отсутствует команда завершения программы 2 отсутствует команда начала программы 3. отсутствуют вычисления в программе 7). var a, b, c: integer; writeln('Введите 2 численных значения:'); readln(a, b); с:=a div b; writeln('c=', c); end. 1. отсутствует команда начала программы 2. допущена ошибка в операторе присваивания 3. отсутствует команда завершения программы 8). var a, b, c: integer; d: real; begin writeln('Введите 3 численных значения:'); readln(a, b, c); d:=(a+b+c)/2; writeln('d=', d); end. 1. допущена ошибка в блоке описания переменных 2. использованы неверные разделители в записи оператора ввода данных. 3. отсутствует имя программы. 9). В результате выполнения программы при вводе чисел 4, 6, 7 (порядок перечисления данных соответствует порядку перечисления вводимых переменных) на экран выводится: var a, b, c: integer; begin writeln('Введите 3 численных значения:'); readln(a, b, c); p:=((a+b) mod 2)+c; writeln('p=', p); end. 1. число 12 2. число 7 3. число 8 10). Следующий алгоритм в результате выполнения программы находит значение выражения: var x: integer; y: real; begin writeln('Введите x:'); readln(x); y:=(15*sgr(x)*x+x mod 6-29)/2; writeln('y=', y); end. 1. y=(15x+x/6-29)/2 2. y=(15x3+(целая часть от деления x на 6)-29)/2 3. y=(5x3+(остаток от деления числа x на 6)-29)/2
Ответы
// PascalABC.NET 3.2, сборка 1415 от 25.03.2017
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Количество строк в массиве:');
var m:=ReadInteger('Количество столбцов в массиве:');
Writeln('*** Исходный массив [',n,',',m,'] ***');
var a:=new real[n,m];
for var i:=0 to n-1 do
for var j:=0 to m-1 do
a[i,j]:=Random(5,90);
a.Println(3,0); Writeln;
var p:=a.ElementsByRow.Min;
for var i:=0 to n-1 do
for var j:=0 to m-1 do
a[i,j]:=a[i,j]/p;
a.Println(7,3)
end.
Пример
Количество строк в массиве: 4
Количество столбцов в массиве: 7
*** Исходный массив [4,7] ***
83 87 11 18 74 78 24
45 28 59 56 14 67 5
74 65 48 79 68 45 37
52 70 16 82 5 51 70
16.600 17.400 2.200 3.600 14.800 15.600 4.800
9.000 5.600 11.800 11.200 2.800 13.400 1.000
14.800 13.000 9.600 15.800 13.600 9.000 7.400
10.400 14.000 3.200 16.400 1.000 10.200 14.000
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Количество строк в массиве:');
var m:=ReadInteger('Количество столбцов в массиве:');
Writeln('*** Исходный массив [',n,',',m,'] ***');
var a:=new real[n,m];
for var i:=0 to n-1 do
for var j:=0 to m-1 do
a[i,j]:=Random(5,90);
a.Println(3,0); Writeln;
var p:=a.ElementsByRow.Min;
for var i:=0 to n-1 do
for var j:=0 to m-1 do
a[i,j]:=a[i,j]/p;
a.Println(7,3)
end.
Пример
Количество строк в массиве: 4
Количество столбцов в массиве: 7
*** Исходный массив [4,7] ***
83 87 11 18 74 78 24
45 28 59 56 14 67 5
74 65 48 79 68 45 37
52 70 16 82 5 51 70
16.600 17.400 2.200 3.600 14.800 15.600 4.800
9.000 5.600 11.800 11.200 2.800 13.400 1.000
14.800 13.000 9.600 15.800 13.600 9.000 7.400
10.400 14.000 3.200 16.400 1.000 10.200 14.000
Const n=3; m=4;
var a:array[1..n,1..m] of real;
i,j:integer; min:real;
begin
Randomize;
writeln('Исходная матрица:');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=10*random-5;
write(a[i,j]:6:2);
end;
writeln;
end;
min:=abs(a[i,j]);
for i:=1 to n do
for j:=1 to m do
if abs(a[i,j])<min then min:=abs(a[i,j]);
for i:=1 to n do
for j:=1 to m do a[i,j]:=a[i,j]/min;
writeln('min = ',min:6:2);
writeln('Измененная матрица:');
for i:=1 to n do
begin
for j:=1 to m do write(a[i,j]:6:2);
writeln;
end;
end.
Пример:
Исходная матрица:
4.25 2.99 -2.67 -0.88
-0.80 3.69 -1.94 -1.18
-3.37 0.65 4.62 1.45
min = 0.65
Измененная матрица:
6.53 4.61 -4.11 -1.36
-1.23 5.68 -2.99 -1.81
-5.19 1.00 7.10 2.23
var a:array[1..n,1..m] of real;
i,j:integer; min:real;
begin
Randomize;
writeln('Исходная матрица:');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=10*random-5;
write(a[i,j]:6:2);
end;
writeln;
end;
min:=abs(a[i,j]);
for i:=1 to n do
for j:=1 to m do
if abs(a[i,j])<min then min:=abs(a[i,j]);
for i:=1 to n do
for j:=1 to m do a[i,j]:=a[i,j]/min;
writeln('min = ',min:6:2);
writeln('Измененная матрица:');
for i:=1 to n do
begin
for j:=1 to m do write(a[i,j]:6:2);
writeln;
end;
end.
Пример:
Исходная матрица:
4.25 2.99 -2.67 -0.88
-0.80 3.69 -1.94 -1.18
-3.37 0.65 4.62 1.45
min = 0.65
Измененная матрица:
6.53 4.61 -4.11 -1.36
-1.23 5.68 -2.99 -1.81
-5.19 1.00 7.10 2.23
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Извлечение сохраненной информации для дальнейшего использования
Автор: sv-opt0076
Дано: writeln (s:6:2); Если s=113, 1004, то на экране появится
Автор: sohrokova809
Для чего нужно распределение в 3d программе
Автор: Андреевна
Время, необходимое эвм для выполнения простых операций
Автор: energycomplect5914
1)1. 2)3. 3)1. 4)1 и 2. 5)1. 6)3. 7)1. 8)3. 9)2. 10)3.