Определить тип синтаксической ошибки в программе. program a; var b, c: integer; begin readln (b); if b> =0 then c: =bb; else c: =-bb*b; writeln (‘c=’, c); end. 1) неописанный идентификатор 2) ошибка в записи оператора 3) неверная константа 4) ожидается begin

👇

Ответ:

привки228

06.11.2022

Вариант 2. Дело в том, что в паскале перед else не ставится точка с запятой. Следующая ошибка : (‘c=’, c); Что за странные запятые? И да, зачем все усложнять и добавлять еще одну переменную? Можно все одной переменной. Вот правильный код :

program A;var b: integer;begin
readln (b);
if b>=0 then
b:=b*b
else b:=-b*b*b;
writeln ('c=', b);
end.

4,5(1 оценок)

Открыть все ответы

Ответ:

pokintokin

06.11.2022

Var
a: array[1..4, 1..4] of integer;
i, j, x, y, n: integer;
s: string;
begin
for i:=1 to 4 do
for j:=1 to 4 do
read(a[i, j]);
writeln('Введите "столбцы", чтобы поменять столбцы, или "строки", чтобы поменять строки');
readln(s);
writeln('Введите номера столбцов/строк');
readln(x, y);
if s='столбцы' then
for i:=1 to 4 do
begin
n := a[i, x];
a[i, x] := a[i, y];
a[i, y] := n;
end;
if s='строки' then
for i:=1 to 4 do
begin
n := a[x, i];
a[x, i] := a[y, i];
a[y, i] := n;
end;
for i:=1 to 4 do
begin
for j:=1 to 4 do
write(a[i, j], ' ');
writeln;
end;
end.
Вдвумерном массиве по запросу поменять два заданных столбца или две строки? ))

Вдвумерном массиве по запросу поменять два заданных столбца или две строки? ))

4,5(79 оценок)

Ответ:

aleksandrovadia1

06.11.2022

// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
var m,n:integer;
Write('Введите количество строк и столбцов массива: ');
Readln(m,n);
var a:=MatrixRandom(m,n,10,99);
for var i:=0 to m-1 do begin
    for var j:=0 to n-1 do Print(a[i,j]);
    Println
    end;
var c:char;
Writeln('1- поменять местами строки, 2- столбцы: ');
Readln(c);
case c of
'1': begin
    var r1,r2:integer;
    Writeln('Введите пару номеров строк: '); Read(r1,r2);
    if (r1<=m) and (r2<=m) and (r1<>r2) and (r1*r2>0) then begin
      Dec(r1); Dec(r2);
      for var j:=0 to n-1 do Swap(a[r1,j],a[r2,j]);
        for var i:=0 to m-1 do begin
          for var j:=0 to n-1 do Print(a[i,j]);
          Println
        end
      end
    else Writeln('Введены недопустимые номера строк')
    end;
'2': begin
    var c1,c2:integer;
    Writeln('Введите пару номеров столбцов: '); Read(c1,c2);
    if (c1<=n) and (c2<=n) and (c1<>c2) and (c1*c2>0) then begin
      Dec(c1); Dec(c2);
      for var i:=0 to m-1 do Swap(a[i,c1],a[i,c2]);
      for var i:=0 to m-1 do begin
          for var j:=0 to n-1 do Print(a[i,j]);
          Println
        end
      end
    else Writeln('Введены недопустимые номера столбцов')
    end;
else Writeln('Массив не меняется')
end
end.

Тестовые решения:
Введите количество строк и столбцов массива: 6 4
63 32 31 99
14 92 54 37
79 90 93 95
41 55 95 26
98 44 57 13
80 45 61 24
1- поменять местами строки, 2- столбцы:
1
Введите пару номеров строк:
2 5
63 32 31 99
98 44 57 13
79 90 93 95
41 55 95 26
14 92 54 37
80 45 61 24

Введите количество строк и столбцов массива: 3 5
47 17 78 15 37
35 73 60 31 91
13 17 92 95 88
1- поменять местами строки, 2- столбцы:
2
Введите пару номеров столбцов:
1 5
37 17 78 15 47
91 73 60 31 35
88 17 92 95 13

Введите количество строк и столбцов массива: 3 3
95 60 52
67 35 28
31 94 60
1- поменять местами строки, 2- столбцы:
3
Массив не меняется

Введите количество строк и столбцов массива: 4 3
12 53 74
80 20 44
64 50 43
42 13 35
1- поменять местами строки, 2- столбцы:
1
Введите пару номеров строк:
4 7
Введены недопустимые номера строк

4,4(50 оценок)

Это интересно:

Кулинария-и-гостеприимство

04.04.2021

Как правильно есть джикама: готовимся к встрече с экзотикой...

Мир-работы

11.09.2020

Методы эффективной работы в многозадачном режиме...

Праздники-и-традиции

31.12.2021

Как стать настоящей тусовщицей: секреты общения и завоевания новых знакомств...

27.06.2021