Информатика | 10 - 11 классы
Помогите составить блок схему хотя бы по процедуре uses crt ; type mass = array[1.
10, 1.
10] of integer ; procedure zam(n, j : integer ; var a : mass ; m, k, l : integer) ; var i, f : integer ; begin m : = a[1, j] ; for i : = 1 to n do if (m> ; a[i, j])or(m = a[i, j]) then begin m : = a[i, j] ; k : = i ; l : = j ; end ; writeln(m) ; if m< ; > ; a[1, j] then begin f : = a[1, j] ; a[1, j] : = a[k, l] ; a[k, l] : = f ; end ; end ; var a, b : mass ; i, j, k, l, n, m : integer ; begin randomize ; readln(n) ; for i : = 1 to n do begin writeln ; for j : = 1 to n do begin a[i, j] : = random(9) + 1 ; write(a[i, j] : 3) ; end ; end ; writeln ; for j : = 1 to n do zam(n, j, a, m, k, l) ; for i : = 1 to n do begin writeln ; for j : = 1 to n do write(a[i, j] : 3) ; end ; writeln ; for i : = 1 to n do begin writeln ; for j : = 1 to n do begin b[i, j] : = random(9) + 1 ; write(b[i, j] : 3) ; end ; end ; writeln ; for j : = 1 to n do zam(n, j, b, m, k, l) ; for i : = 1 to n do begin writeln ; for j : = 1 to n do write(b[i, j] : 3) ; end ; writeln ; end.
Var s, k : integer ; begin s : = 1 ; for k : = 1 to 7 do s : = s + k ; writeln (s) ; end?
Var s, k : integer ; begin s : = 1 ; for k : = 1 to 7 do s : = s + k ; writeln (s) ; end.
Program1?
Program1.
Pas(17) : Нельзя изменять значение переменной цикла внутри этого цикла
Помогите исправить ошибку .
Program Lin_10 ;
uses crt ;
type mas = array [1.
9, 1.
9] of integer ;
var D, b : mas ;
i, j, t, min : integer ;
Begin
clrscr ;
Randomize ;
for i : = 1 to 9 do begin
for j : = 1 to 9 do begin
D[i, j] : = random(30) - 60 ; Write(D[i, j] : 4) ; End ;
Writeln ; Writeln(' Задача 10_1 ') ;
for i : = 1 to 9 do
for j : = 1 to 9 do begin
min : = D[i, j] ;
End ;
If min> ; D[i, j] then min : = [i, j] ; End ;
Writeln ; Writeln('Min = ', min) ; Writeln(' Задача 10_2 ') ; for i : = 1 to 9 do begin for j : = 1 to 9 do begin If (D[i, j] mod 2) = 0 then D[i, j] : = 0 ;
Write(D[i, j] : 4) ;
End ; Writeln ; Writeln(' Задача 10_3 ') ; t : = 1 ; for j : = 1 to 9 do begin i : = j ;
B[t] : = D[i, j] ; t : = t + 1 ;
u : = t ; End ;
For t : = 1 to u - 5 do begin
Write (D[t] : 4) ;
End ;
Writeln ; Writeln(' Задача 10_4 ') ;
Writeln(' Задача 10_5 ') ;
sum : = 0 ;
for i : = 1 to 9 do For j : = 1 to 9 do begin
If D[i, j] mod 3 = 0 then Sum : = sum + D[i, j] ;
End ;
Write('sum = ', sum) ;
Readln ;
End ;
Помогите найти ошибку в программе?
Помогите найти ошибку в программе.
Умножение двумерного массива.
Pas(29) : Нельзя преобразовать тип integer к array [1.
100] of array [1.
100] of integer.
Вот сама программа : умножение матриц в обратном порядке, т.
Е первый элемент на последний, второй на предпоследний и.
Т. д.
Var x : integer ; a1 : array[1.
100, 1.
100] of integer ; a2 : array[1.
100, 1.
100] of integer ; a3 : array[1.
100, 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.
ЗАРАНЕЕ СПАСИБО!
Составить программу для вычисления суммы квадратов чисел от 1 до 15?
Составить программу для вычисления суммы квадратов чисел от 1 до 15.
Функция возведения в квадрат sqr() ; Var , , : ; Begin : = 0 ; For : = to do Begin ; ; End ; Writeln(' = ', ) ; End.
Там, где пробелы, вставить что нужно.
Program TELESHOP ; var x : real ; begin writeln ('?
Program TELESHOP ; var x : real ; begin writeln ('.
') ; write ('.
') ; write ('.
') ; readln (x) ; if x< ; = 1 then begin if x = 1 then begin writeln ('.
') ; writeln ('.
') ; end else begin writeln ('.
') ; end ; * else begin writeln ('.
') ; end end.
* - место ошибки.
"встречено 'else', а ожидалось оператор" Вопрос : в чем ошибка?
USES Crt ; const N = 10 ; VAR A : array[1?
USES Crt ; const N = 10 ; VAR A : array[1.
N] of integer ; k : integer ; Function FUN : integer ; Var i, M : integer ; Begin writeln('Введите число M = ') ; readln(M) ; k : = 0 ; for i : = 1 to N do if A[i] FUN : = k ; End ; Procedure SOSTMAS ; Var i : integer ; Begin for i : = 1 to N do begin A[i] : = Random(199) - 100 ; write(A[i] : 5) ; end ; Writeln ; end ; BEGIN SOSTMAS ; Writeln(FUN) ; что то неправильно говорят массив.
Что напечатает данная программа : Var x : = Integer Begin x : = 2 WriteLn('x + 1 = ', x) End?
Что напечатает данная программа : Var x : = Integer Begin x : = 2 WriteLn('x + 1 = ', x) End.
Здравствуйте, помогите пожалуйста найти ошибку program name ; uses crt ; var a : integer ; begin writeln ('Введите время = ') ; readln (a) ; if (a)then ; begin writeln ('ночь') ; end ; / / / if a = 3 ?
Здравствуйте, помогите пожалуйста найти ошибку program name ; uses crt ; var a : integer ; begin writeln ('Введите время = ') ; readln (a) ; if (a)then ; begin writeln ('ночь') ; end ; / / / if a = 3 then begin writeln ('утро') ; readln (d) ; if a = 12 then begin writeln ('день') ; end ; if a = 16 then begin writeln ('вечер') ; / / / if a = 21 then begin writeln ('ночь') ; / / / end ; end ;
Var s, k : integer ; Begin s : = 100 ; for k : = 2 to 7do s : = s + 1 ; writeln(s) ; End?
Var s, k : integer ; Begin s : = 100 ; for k : = 2 to 7do s : = s + 1 ; writeln(s) ; End.
Определить s : 1) Var s, k : integer ; Begin s : = 0 ; for k : = 14 to 18 do s : = s + 7 ; writeln(s) ; End?
Определить s : 1) Var s, k : integer ; Begin s : = 0 ; for k : = 14 to 18 do s : = s + 7 ; writeln(s) ; End.
2) Var s, k : integer ; Begin s : = 0 ; for k : = 1 to 11 do s : = s + 12 ; write(s) ; End.
3) var s, k : integer ; begin s : = 100 ; for k : = 0 to 10 do s : = s - 5 ; writeln (s) ; end.
Перед вами страница с вопросом Помогите составить блок схему хотя бы по процедуре uses crt ; type mass = array[1?, который относится к категории Информатика. Уровень сложности соответствует учебной программе для учащихся 10 - 11 классов. Здесь вы найдете не только правильный ответ, но и сможете ознакомиться с вариантами пользователей, а также обсудить тему и выбрать подходящую версию. Если среди найденных ответов не окажется варианта, полностью раскрывающего тему, воспользуйтесь «умным поиском», который откроет все похожие ответы, или создайте собственный вопрос, нажав кнопку в верхней части страницы.
Блок - схема - в файле.