Информатика | 10 - 11 классы
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 ;
Объясните, пожалуйста, как будет работать программа, если в 8 строке будет i : = ivar a : array [1?
Объясните, пожалуйста, как будет работать программа, если в 8 строке будет i : = i
var a : array [1.
5] of integer ;
i, min, max, x : integer ;
begin
for i : = 1 to 5 do begin a[i] : = random(10) ; writeln(a[i]) ; end ;
max : = a[1] ;
min : = a[1] ;
for i : = i to 5 do begin
if a[i]> ; max then max : = a[i] ;
if a[i]< ; min then min : = a[i] ;
end ;
writeln('max = ', max) ;
writeln('min = ', min) ;
end.
Дана целочисленная квадратная матрица найти сумму элементов, стоящих выше главной диагонали надо вот эту программу исправить 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.
Дан двумерный массив, найти максимальное и минимальное значение ?
Дан двумерный массив, найти максимальное и минимальное значение .
Я новенький в этом деле, вот попытался сам, посмотрите и обьясните что не правильно , пожалуйста .
Program zaza ;
var
i, j, n, m, max, min : integer ;
a : array[1.
10, 1.
10] of integer ;
begin
writeln ('vvedite chislo n') ;
writeln ('vvedite chislo m') ;
for i : = 1 to n do
for j : = 1 to m do
begin
writeln ('vvedite elementu massiva', i, j) ;
end ;
for i : = 1 to n do
for j : = 1 to m do
begin
if a[i, j] > ; max then
max : = a[i, j] ;
if a[i, j] < ; min then
min : = a[i, j] ;
end ;
writeln('max', 'min')
end.
Объяснить, что означает каждая строчка : Program sum_mas ; uses Crt ; Var i : integer ; sum : real ; M : array[1?
Объяснить, что означает каждая строчка : Program sum_mas ; uses Crt ; Var i : integer ; sum : real ; M : array[1.
5] of Real ; begin WriteLn('Введите число m[', i, '] = ') ; readln(m[i]) ; end ; Sum : = 0 ; For i : = 1 to 5 do Sum : = sum + m[i] ; Writeln('сумма = ', sum) ; readln ; end.
Program pr ; var mas : array[1?
Program pr ; var mas : array[1.
10] of integer ; i, min, ind : integer ; Begin randomize ; For i : = 1 to 10 do Begin mas[i] : = Random(100) ; write(mas[i], ' ') ; End ; writeln() ; min : = mas[1] ; For i : = 1 to 10 do Begin If (min> ; mas[i]) then End ; write('Минимальный элемент массива : ', min) ; End.
Что не верно?
Вот задача : Дан одномерный массив А длиной N.
Определить, на какой позиции нахо - дится минимальный элемент массива.
Нужно поменять местами макс?
Нужно поменять местами макс.
И мин.
Значения.
Что не так?
PROGRAM MATRICA ; USES CRT ; CONST N = 3 ; M = 4 ; A = - 20 ; B = 20 ; VAR I, J, MIN, MAX, T : INTEGER ; Y : ARRAY [1.
N, 1.
M] OF INTEGER ; BEGIN CLRSCR ; RANDOMIZE ; WRITELN('MATRICA Y') ; MIN : = 0 ; MAX : = 0 ; T : = 0 ; FOR I : = 1 TO N DO BEGIN FOR J : = 1 TO M DO BEGIN Y[I, J] : = TRUNC((B - A) * RANDOM + A) ; WRITE(Y[I, J] : 6) ; IF Y[I, J]MAX THEN MAX : = Y[I, J] ; END ; WRITELN ; END ; WRITELN('Минимальное значение = ', MIN) ; WRITELN('Максимальное значение = ', MAX) ; T : = MIN ; MIN : = MAX ; MAX : = T ; FOR I : = 1 TO N DO BEGIN FOR J : = 1 TO M DO BEGIN WRITE(Y[I, J] : 6) ; END ; WRITELN ; END ; READKEY ; 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) ; что то неправильно говорят массив.
Здравствуйте, помогите пожалуйста найти ошибку 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 ;
Задание :Ввести массив в данную программуvarn, i, a, min : integer ;beginreadln(n) ;min : = 30001 ;for i : = 1 to n dobeginreadln(a) ;if (a mod 10 = 4) and (a < min) thenmin : = a ;end ;writeln(min)en?
Задание :
Ввести массив в данную программу
var
n, i, a, min : integer ;
begin
readln(n) ;
min : = 30001 ;
for i : = 1 to n do
begin
readln(a) ;
if (a mod 10 = 4) and (a < min) then
min : = a ;
end ;
writeln(min)
end.
На этой странице находится вопрос Program1?. Здесь же – ответы на него, и похожие вопросы в категории Информатика, которые можно найти с помощью простой в использовании поисковой системы. Уровень сложности вопроса соответствует уровню подготовки учащихся 10 - 11 классов. В комментариях, оставленных ниже, ознакомьтесь с вариантами ответов посетителей страницы. С ними можно обсудить тему вопроса в режиме on-line. Если ни один из предложенных ответов не устраивает, сформулируйте новый вопрос в поисковой строке, расположенной вверху, и нажмите кнопку.
Program Lin_10 ;
{uses crt ; }
const n = 9 ;
var D : array [1.
N, 1.
N] of integer ; B : array[1.
100] of integer ; i, j, t, k : integer ; average : real ;
Begin Writeln(' Задача 10 ') ; Randomize ; for i : = 1 to n do begin for j : = 1 to n do begin D[i, j] : = random(60) - 30 ; Write(D[i, j] : 4, ' ') ; End ; Writeln ; end ; Writeln(' Задача 10_1 ') ; average : = 0 ; k : = 0 ; for i : = 1 to n do begin j : = n + 1 - i ; If D[i, j] > ; 0 then begin average : = average + D[i, j] ; k : = k + 1 ; End ; End ; Writeln('average = ', average / k) ; Writeln ; Writeln(' Задача 10_2 ') ; for i : = 1 to n do begin for j : = 1 to n do begin If D[i, j] < ; - 5 then D[i, j] : = 0 ; Write(D[i, j] : 4) ; End ; Writeln ; End ; Writeln(' Задача 10_3 ') ; t : = 0 ; for i : = 1 to n do for j : = 1 to n do If j mod 3 = 0 then begin t : = t + 1 ; B[t] : = D[i, j] ; Write(B[t] : 4) ; end ; Writeln ; Writeln(' Задача 10_4 ') ; t : = 0 ; for i : = 1 to n do for j : = 1 to n do If D[i, j] < ; 0 then t : = t + 1 ; Writeln(t) ; Writeln ; Writeln(' Задача 10_5 ') ; for i : = 1 to n do begin t : = 0 ; for j : = 1 to n do If D[i, j] < ; 0 then t : = t + 1 ; Writeln(i, ' = ', t) ; End ; Readln ;
End.