М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
anton4rf4
anton4rf4
01.03.2023 05:23 •  Информатика

Найдите ошибки в программах:

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

👇
Ответ:
sashe123
sashe123
01.03.2023

1)1. 2)3. 3)1. 4)1 и 2. 5)1. 6)3. 7)1. 8)3. 9)2. 10)3.

4,4(97 оценок)
Открыть все ответы
Ответ:
123123ilya
123123ilya
01.03.2023
// 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
4,5(89 оценок)
Ответ:
Настя0857
Настя0857
01.03.2023
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
4,4(9 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ