В какой строчке допущена ошибка в программе, написанной на языке PascalABC?
В какой строчке допущена ошибка в программе, написанной на языке PascalABC?
Программа должна высчитывать сумму элементов, стоящих на побочной диагонали в квадратной матрице 6х6.
1) program diag ; 2) var 3) mat : array[1.
6] of integer ; 4) i, j, s : integer ; 5) begin 6) s : = 0 ; 7) for i : = 1 to 6 do 8) for j : = 1 to 6 do 9) read(mat[i, j]) ; 10) for i : = 1 to 6 do 11) for j : = 1 to 6 do 12) if i = j then s : = s + mat[i, j] ; 13) write(‘Сумма элементов, стоящих на побочной диагонали ’) ; 14) writeln(s) ; 15) end.
А) 12 Б) 14 В) 11 Г) 6.
Ошибка в строке 12.
Указано условие нахождения элемента на главной, а не на побочной диагонали.
Должно быть : if j = 7 — i then s : = s + mat[i, j] ;
Дана целочисленная квадратная матрица найти сумму элементов, стоящих выше главной диагонали надо вот эту программу исправить program Project2 ; <$APPTYPE CONSOLE>uses SysUtils ; var A : array of arra?
Дана целочисленная квадратная матрица найти сумму элементов, стоящих выше главной диагонали надо вот эту программу исправить program Project2 ; <$APPTYPE CONSOLE>uses SysUtils ; var A : array of array of Integer ; n, i, j : Integer ; sum : Real ; begin Writeln(‘Vvedite n’) ; readln(n) ; SetLength(a, n, n) ; Writeln(‘Vvedite A’) ; for i : = 1 to n do for j : = 1 to n do Readln (A[i, j]) ; Sum : = 0 ; for i : = 1 to n do for j : = 1 to n do ; begin if (j> ; i) then sum : = sum + A[i, j] ; end ; Writeln ; Writeln ; Writeln(‘sum = ‘, sum : 8 : 3) ; Readln ; readln ; Readln ; end.
Заполните пропуски в программе ввода и вывода 10 целочисленных элементов массива, заданных случайным образом на промежутке [20 ; 40] : Program gh ; var A : array[ 1?
Заполните пропуски в программе ввода и вывода 10 целочисленных элементов массива, заданных случайным образом на промежутке [20 ; 40] : Program gh ; var A : array[ 1.
___] of integer ; i : integer ; begin for i : = 1 to __ do begin A[i] : = random(___) + ____ ; write(____) ; end ; end.
Помогите написать программу в pascal’e?
Помогите написать программу в pascal’e.
Если матрица квадратная, то поменять местами минимальный и максимальный элементы побочной диагонали.
В противном случае — заменить элементы четных строк нулями.
Помогите найти ошибку в программе?
Помогите найти ошибку в программе.
Умножение двумерного массива.
Pas(29) : Нельзя преобразовать тип integer к array [1.
Вот сама программа : умножение матриц в обратном порядке, т.
Е первый элемент на последний, второй на предпоследний и.
Var x : integer ; a1 : array[1.
100] of integer ; a2 : array[1.
100] of integer ; a3 : array[1.
100] of integer ; i, j, m, n : integer ; begin writeln(‘Введите размер матрицы’) ; readln(m, n) ; for i : = 1 to m do begin for j : = 1 to n do end ; begin writeln(‘Введите элементы первой матрицы’) ; for i : = 1 to m do begin for j : = 1 to n do readln(a1[i, j]) ; end ; end ; begin writeln(‘Введите элементы второй матрицы’) ; for i : = 1 to m do begin for j : = 1 to n do readln(a2[i, j]) ; end ; end ; begin a3 : = a1[i, j] * a2[x + 1 — i, x + 1 — j] ; for i : = 1 to m do begin for j : = 1 to n do readln(a3[i, j]) ; end ; writeln ; end ; readln ; end.
Перепишите программу на Паскале, исправив ошибки : Program massiv ; Var a : array( — 10?
Перепишите программу на Паскале, исправив ошибки : Program massiv ; Var a : array( — 10.
10) of integer ; Begin For i : = 1 to 20 Do Read(a[i]) ; For i : = 1 to 20 Do a[i] : = a[i] / 10 ; For i : = 1 to 20 Do Write(a[i]) End.
Перепишите программу на Паскале, исправив ошибки : Program massiv ; Var a : array( — 10?
Перепишите программу на Паскале, исправив ошибки : Program massiv ; Var a : array( — 10.
10) of integer ; Begin For i : = 1 to 20 Do Read(a[i]) ; For i : = 1 to 20 Do a[i] : = a[i] / 10 ; For i : = 1 to 20 Do Write(a[i]) End.
Просуммировать элементы квадратной матрицы , расположенные в верхней четверти, ограниченной главной и побочной диагоналями, включая элементы, расположенные на диагоналях?
Просуммировать элементы квадратной матрицы , расположенные в верхней четверти, ограниченной главной и побочной диагоналями, включая элементы, расположенные на диагоналях.
Если не трудно сделайте пожалуйста так : var a : array [1.
m, n, i, j : integer ;
for i : = 1 to n do
for j : = 1 to m do
a[i, j] : = random (99) ;
begin write ( a[i, j] : 4) ;
Я не знаю что в условии писать.
Как вообще проссумировать эти элементы : (.
Перепишите программу на Паскале, исправив ошибки : Program massiv ; Var a : array( — 10?
Перепишите программу на Паскале, исправив ошибки : Program massiv ; Var a : array( — 10.
10) of integer ; Begin For i : = 1 to 20 Do Read(a[i]) ; For i : = 1 to 20 Do a[i] : = a[i] / 10 ; For i : = 1 to 20 Do Write(a[i]) End.
Дана квадратная матрица порядка N?
Дана квадратная матрица порядка N.
Найти произведение элементов побочных диагонали квадратной матрицы.
Помогите пожалуйстаа?
Определите результат работы программы, написанной на языке Паскаль.
1) program a5 var i, m : integer ; begin m : = 0 for i : = 1 to 6 do m : = m — 6 writeln (m) end.
2) program a6 var i, m : integer ; begin m : = 0 ; for i : = 3 to 7 do m : = m — 6 + i ; writeln (m) end.
На этой странице сайта, в категории Информатика размещен ответ на вопрос В какой строчке допущена ошибка в программе, написанной на языке PascalABC?. По уровню сложности вопрос рассчитан на учащихся 10 — 11 классов. Чтобы получить дополнительную информацию по интересующей теме, воспользуйтесь автоматическим поиском в этой же категории, чтобы ознакомиться с ответами на похожие вопросы. В верхней части страницы расположена кнопка, с помощью которой можно сформулировать новый вопрос, который наиболее полно отвечает критериям поиска. Удобный интерфейс позволяет обсудить интересующую тему с посетителями в комментариях.
Как то так / / PascalABC. NET 3. 3, сборка 1573 от 04. 11. 2017 / / Внимание! Если программа не работает, обновите версию! Begin var i : integer ; var ur1 : = ReadReal('ur1 = ') ; var ur2 : = ReadReal('ur2 = ') ; var p : = ReadReal('p = ') ; for..
1. действие в скобках 2. Инверсия 3. Конъюнкция 4. Дизъюнкция.
Program sqrt ; var a, b : integer ; begin write('Введите N : ') ; read(a) ; b : = sqrt(100 + sqrt(98 + sqrt(96 + a + sqrt(2)))) ; writeln('Результат — ', b) ; end.
3 / 256 Мбайта = 1024 * 3 / 256 Кбайт = 12 Кбайт = 12 * 1024 байт = 12 * 1024 * 8 бит Память для одного символа = 12 * 1024 * 8 / 6144 = 16 бит Мощность алфавита = 2 ^ 16 = 16384.
Пользавателей которые зарегестрированны в почтовом индексе.
Это матрица, элементами которой являются 0 или 1.
Вот, этого нарисуй, там изи, получается в итоге норм.
Var S, tmp : real ; n, i : integer ; begin write('Введите n : ') ; readln(n) ; for i : = 1 to n do begin tmp : = 1 / ((2 * i + 1) * 3) ; S : = S + tmp ; end ; writeln(S : 8 : 10) ; readln ; end.
/ / PascalABC. NET begin write('Длина меньшей стороны : ') ; var a : = ReadlnReal ; writeln('Длина диагонали равна ', sqrt(a * a + 9 * a * a) : 8 : 3) end.
В какой строке допущена ошибка в программке, написанной на языке PascalABC?
В какой строке допущена ошибка в программке, написанной на языке PascalABC? Программка обязана высчитывать корни квадратного уравнения при заданных значениях коэффициентов a, b, c. 1) program KvadrUravn; 2) var; 3) a, b, c, d, x1, x2: real; 4) begin; 5) readln (a, b, c); 6) d := b * b — 4 * a* c; 7) if d amp;gt;= 0 then begin 8) if d amp;lt;amp;gt; 0 then begin 9) x1 := (b + sqrt(d)) / (2 * a); 10) x2 := (-b + sqrt(d)) / (2 * a); 11) writeln(39;x1 = 39;, x1:4:2, 39;, х2 = 39;, х2:4:2); 12) end 13) else begin 14) x1 := -(b / 2 * a); 15) writeln (39;x = 39;, x1:4:2); 16) end; 17) end 18) else begin 19) writeln (39;Решений нет!39;); 20) end; 21) end. А) 5 б) 7 В)8 Г) 9
- Абузяров Михаил
- Информатика
- 2019-10-26 10:30:35
- 4
- 1
1) program KvadrUravn; ошибки нет
2) var; ошибка, после var точка с запятой не ставится
3) a, b, c, d, x1, x2: real; оплошности нет
4) begin; ошибка, после begin точка с запятой не ставится
5) readln (a, b, c); ошибки нет
6) d := b * b — 4 * a* c;ошибки нет
7) if d gt;= 0 then begin ошибки нет
8) if d lt;gt; 0 then begin ошибки нет
9) x1 := (b + sqrt(d)) / (2 * a); ошибка, формула для вычисления корня не такая
Проверьте свои знания по программированию на примере Pascal
1) Процедура Read используется для ввода данных с клавиатуры.
2) После процедуры Readln происходит переход к новой строке.
3) Write(f:9:6) — число выводится с 6 знаками после запятой.
4) Writeln(а); writeln(b); — числа выводятся в одной строке.
Укажите неверное утверждение.
1) Процедура Read используется для ввода данных с клавиатуры.
2) После процедуры Readln происходит переход к новой строке.
3) Write(f:9:6) — число выводится с 9 знаками после запятой.
4) Writeln(а); writeln(b); — числа выводятся в разных строках.
Укажите неверное утверждение.
1) Процедура Read используется для ввода данных с клавиатуры.
2) После процедуры Readln происходит выход из программы.
3) Write(f:9:6) — число выводится с 6 знаками после запятой.
4) Writeln(а); writeln(b); — числа выводятся в разных строках.
Укажите неверное утверждение.
1) Процедура Read используется для вывода данных на экран.
2) После процедуры Readln происходит переход к новой строке.
3) Write(f:9:6) — число выводится с 6 знаками после запятой.
4) Writeln(а); writeln(b); — числа выводятся в разных строках.
Какая связка операторов обозначает цикл c выходом по условию?
2) if…then…else
3) Case…of… end
4) While…do
Какая связка обозначает цикл с известным числом повторений?
2) if…then…else
3) Case…of… end
4) While…do
Какая связка операторов дает выбор из 3-х и более вариантов?
2) if…then…else
3) Case…of… end
4) While…do
Какая связка операторов дает выбор из 2-х вариантов?
2) if…then…else
3) Case…of… end
4) Begin…end
Какая связка операторов не является циклом?
2) if…then…else
3) repeat…until
4) While…do
Какая связка операторов является безусловным циклом?
2) if…then…else
3) repeat…until
4) While…do
Какая связка операторов является циклом с предусловием?
2) if…then…else
3) repeat…until
4) While…do
Какая связка операторов является циклом с постусловием?
2) if…then…else
3) repeat…until
4) While…do
Укажите правильное описание процедуры на Паскале.
1) procedure si(x:real):real;
2) procedure si(x:real; var y:real);
3) function si(x:real):real;
4) function si(x:real; var y:real);
Укажите правильное описание функции на Паскале.
1) procedure si(x:real):real;
2) procedure si(x:real; var y:real);
3) function si(x:real):real;
4) function si(x:real; var y:real);
Укажите правильное описание переменной строкового типа.
1) a:array[1..10] of real;
2) a:string[10];
3) a:set of (1,10);
4) a:record n:real; f:real; end;
Укажите правильное описание массива действительных чисел.
1) a:array[1..10] of real;
2) a:string[10];
3) a:set of (1,10);
4) a:record n:real; f:real; end;
Укажите правильное описание множества.
1) a:array[1..10] of real;
2) a:string[10];
3) a:set of (1,10);
4) a:record n:real; f:real; end;
Какая из операций определяет остаток целочисленного деления?
1) div
2) mod
3) in
4) or
Какая из операций является логической?
1) div
2) mod
3) in
4) or
Ответы на тесты (проверьте себя)
Какой тип из перечисленных занимает в памяти ровно 1 байт?
3) Char
Какой из разделов указывает подключение библиотеки
подпрограмм?
3) Uses
В каком из разделов определяется тип пользователя?
4) Type
В каком из перечисленных разделов определяется размер массива?
1) Var
В какой из строк задается перечисляемый тип?
1) Type s = (a,b,d,f);
В какой из строк задается интервальный тип?
2) Type s = 1..56;
В какой строке допущена ошибка?
3) Type s : real;
В какой из строк определяется переменная?
4) Var s : char;
Укажите неверное утверждение.
4) Writeln(а); writeln(b); — числа выводятся в одной строке.
Укажите неверное утверждение.
1) Процедура Read используется для вывода данных на экран.
Укажите неверное утверждение.
3) Write(f:9:6) — число выводится с 9 знаками после запятой.
Укажите неверное утверждение.
2) После процедуры Readln происходит выход из программы.
Укажите неверное утверждение.
1) Процедура Read используется для вывода данных на экран.
Какая связка операторов обозначает цикл c выходом по условию?
4) While…do
Какая связка обозначает цикл с известным числом повторений?
Какая связка операторов дает выбор из 3-х и более вариантов?
3) Case…of… end
Какая связка операторов дает выбор из 2-х вариантов?
2) if…then…else
Какая связка операторов не является циклом?
2) if…then…else
Какая связка операторов является безусловным циклом?
Какая связка операторов является циклом с предусловием?
4) While…do
Какая связка операторов является циклом с постусловием?
3) repeat…until
Укажите правильное описание процедуры на Паскале.
2) procedure si(x:real; var y:real);
Укажите правильное описание функции на Паскале.
3) function si(x:real):real;
Укажите правильное описание переменной строкового типа.
2) a:string[10];
Укажите правильное описание массива действительных чисел.
1) a:array[1..10] of real;
Укажите правильное описание множества.
3) a:set of (1,10);
Какая из операций определяет остаток целочисленного деления?
2) mod
Какая из операций является логической?
4) or
Друзья! Приглашаем вас к обсуждению. Если у вас есть своё мнение, напишите нам в комментарии.