Program1.pas(17) : Нельзя изменять значение переменной цикла внутри этого цикла

10-11 класс

Помогите исправить ошибку .
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;

Прикрепленные изображения

Margaritavsslv 13 авг. 2013 г., 1:44:13 (10 лет назад)

Рейтинг

+ 0 -

Хороший вопрос

0 Жалоба

Ответить

+ 0 -

Женя260702

13 авг. 2013 г., 3:02:41 (10 лет назад)

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.

Хороший ответ

0 Жалоба Ответить

+ 0 -

Danilzagarskih

13 авг. 2013 г., 4:03:14 (10 лет назад)

Комментарий удален

Хороший ответ

0 Жалоба Ответить

+ 0 -

Solm1

13 авг. 2013 г., 6:11:55 (10 лет назад)

Комментарий удален

Хороший ответ

0 Жалоба Ответить

Ответить

Другие вопросы из категории

Wry8937 / 01 авг. 2013 г., 19:44:04

Дана матрица размерностью n*m.

найти в каждой строке max и min элемент

10-11 класс информатика ответов 1

OK1234 / 15 июля 2013 г., 20:22:05

Паскаль

Дан массив размера n и целые числа К и 1 (1? K? 1?n) . Найти сумму элементов массива с номерами от К до 1 включительно.

10-11 класс информатика ответов 2

SipsNika / 11 июля 2013 г., 6:24:39

помогите решить пліз хотяби несколько

]Варіант-1
Дана послідовність слів. Визначити кількість букв “А” і “Б” в ній. Якщо таких букв немає, то вивести повідомлення.

Варіант-2
Скласти програму, яка підраховує число тих слів у реченні із И букв, в яких на другій позиції знаходиться задана буква. Слова розділенні пропусками. Якщо таких слів немає, то видається повідомлення .

Варіант-3
Скласти програму, яка із заданого слова вилучає всі букви “А”.

Варіант-4
Скласти програму, яка виводить на екран всі символи.

Варіант-5
Скласти програму, яка визначає скільки цифр у заданому числі і знаходить їх добуток.

Варіант-6
Скласти програму, яка підраховує кількість букв у введеному реченні. Словом м/б розділенні пропусками, або комами.

Варіант-7
Написати програму, яка перевіряє чи стоїть перед “що” кома.

Варіант-8
Написати програму, яка перевіряє чи поставили в кінці речення, що вводиться крапка.

Варіант-9
Скласти програма, яка виводить слово ззаду на перед.

Варіант-10
Дана послідовність слів. Перевірити чи є в ній задане слово.

Варіант-11
Задати речення. Програма повинна виводити на екран всі символи, що зустрічаються до першого знака “-”. Якщо його немає, то виводиться повідомлення.

Варіант-12
Вивести слово задом наперед.

Варіант-13
У заданому реченні знайти найдовше (найменше) слово.

Варіант-14
Скласти програму, яка із слова “інтеграл” утворює слово “гантелі”, “тигр”.

Варіант-15
Знайти найменше із слів, що записані в реченні.

Варіант-16
Написати програму, яка по назві дня неділі визначає номер цього дня 1...,2,...,7.

Варіант-17
Дана послідовність слів підрахувати скільки слів закінчуються на “А”.

Варіант-18
Скласти програму, яка підраховує скільки раз в послідовність слів зустрічається буквосполучення “сок”.

Варіант-19
Написати програму, яка виводить на екран коди всіх букв.

Варіант-20
Скласти програму, яка перевіряє чи поставили вкінці речення “крапку”.

Варіант-21
Програма підраховує число тих слів в, яких на другій позиції стоїть буква “А”.

Варіант-22
Скласти програму, яка виводить на екран всі символи після знаків “-“.

Варіант-23
Написати програму, яка визначає, чи являється введене слово “перевертишем” (напр. “ПОТОП”, “КАЗАК”).

Варіант-25
Скласти програму, яка вилучає із заданого слова всі букви “А”.

10-11 класс информатика ответов 1

Анька1606 / 10 июля 2013 г., 11:29:34

Решить на C#, используя циклы. Составить программу для вычисления и вывода n первых чисел Фибоначчи. Числа Фибоначчи получаются с помощь

ю следующих рекуррентных соотношений $f_{1}=f_{2}=1, f_{n}=f_{n-1}+f_{n-2}, n\geq3,$ где $f_{n}$ - целое. Отследить корретность ввода исходных данных.

10-11 класс информатика ответов 1

Raya21rus / 05 мая 2013 г., 18:12:40

Подсчитатьсумму всех четных натуральных чисел до 40 в программе Паскаль.

10-11 класс информатика ответов 1

Читайте также

Helpme111p / 08 сент. 2013 г., 21:47:25

В чём ошибка программы? Если не сложно объясните .

код программы -
Program cikl;
Uses GraphABC;
Var
r:Integer;
begin
for r:=460 downto 100 do
begin
circle(620,480,r);
r:=r-35;
end;
FloodFill(170,480,clPurple);
FloodFill(205,480,clBlue);
FloodFill(240,480,clSkyBlue);
FloodFill(275,480,clGreen);
FloodFill(310,480,clYellow);
FloodFill(345,480,clLime);
FloodFill(380,480,clMoneyGreen);
FloodFill(415,480,clRed);
FloodFill(450,480,clMaroon);
FloodFill(485,480,clBrown);
FloodFill(620,480,clNavy);
End.

Ошибка которую выдаёт программа -
Program1.pas(9) : Нельзя изменять значение переменной цикла внутри этого цикла

10-11 класс информатика ответов 6

Serde4ko01 / 16 апр. 2014 г., 8:18:14

Укажите значения переменных K, L, M, N, при которых логическое выражение (K → M) \/ (L /\ K) \/ ¬N ложно.

Ответ запишите в виде строки из четырех символов: значений переменных K, L, M и N (в указанном порядке). Так, например, строка 1101 соответствует тому, что K = 1, L = 1, M = 0, N = 1.

10-11 класс информатика ответов 1

ВикаМай / 04 сент. 2014 г., 21:42:55

1)Определите значение переменной c после выполнения следующего фрагмента программы:

a :=40 ;
b := 10;
a := - a / 2*b,;
if a > b then
c := b - a
else c := a - 2 * b

2)Определите значение переменной c после выполнения следующего фрагмента программы:
a := 5;
a := a + 6;
b := - a;
c := a - 2 * b

10-11 класс информатика ответов 1

Аниме98 / 31 дек. 2014 г., 22:30:04

Укажите значения переменных K, L, M, N, при которых логическое выражение (¬(M V

L) /\ K) → ((¬K /\¬M) \/ N)

ложно. Ответ запишите в виде строки из четырех символов: значений переменных K, L, M и N (в указанном порядке). Так, например, строка 1101 соответствует тому, что K=1, L=1, M=0, N=1.

10-11 класс информатика ответов 1

нижатb / 19 марта 2014 г., 4:08:38

Помогите с тестами по информатике!!! А1. Определите значение целочисленных переменных a и b после выполнения фрагмента программы:

a := 3 + 3*4;

b := (a div 10) + 4;

a := (b mod 10) + 2;

b:= a + b;

a:= a mod 2 + b div 3;

1) a=4, b=14;

2) a= 24, b= 6;

3) a=5, b=12;

4) a=8, b=12.

А2. Для какого из указанных значений числа X истинно высказывание

((X < 5)→(X < 3)) Ù ((X < 2)→(X < 1))

1) 1

2) 2

3) 3

4) 4

А3. Укажите, какое логическое выражение равносильно выражению ¬(A Ú ¬B Ú C) ?

1) ¬A Ú B Ú ¬C

2) A Ù ¬B Ù C

3) ¬A Ú ¬B Ú ¬C

4) ¬A Ù B Ù ¬C

А4. Символом F обозначено одно из указанных ниже логических выражений от трех аргументов: X, Y, Z. Дан фрагмент таблицы истинности выражения F (см. таблицу справа).

Какое выражение соответствует F?

1) X Ú ¬Y Ú Z

2) X Ù Y Ù Z

3) X Ù Y Ù ¬Z

4) ¬X Ú Y Ú ¬Z

А5. Что будет выведено на печать в результате выполнения следующих операторов:

a := 5; b := 10;

write( 'сумма двух чисел ' ); write( 'a+b' );

write( ' = ', a+b );

1) сумма двух чисел 5+10 = 15

2) сумма двух чисел a+b = 15

3) сумма двух чисел 5+10 = a+b

4) сумма двух чисел a+b = 5+10

5) ни один из ответов 1-4 не верен

А6. Чему было равно значение переменной a, если после выполнения операций

b := sqrt( sqr(a+1) );

c := -b;

a := 1 + 2 / (c-b);

она стала равна 0 ?

1) 2

2) 0

3) –1

4) любое вещ. число, не равное -1

5) ни один из ответов 1-4 не верен

А7. Чему будет равно значение А после выполнения цикла

а:=1024;

While a>0 do

a:=a / 2;

1) 0

2) 1

3) зациклится

4) 512

5) ни один из ответов 1-4 не верен

A8. Сколько раз выполнится тело цикла?

A:=32;

While A>2 do

Begin A:=A / 2; writeln(‘A’); end;

1) 8

2) 6

3) 5

4) 4

5) 3

10-11 класс информатика ответов 1

Вы находитесь на странице вопроса "Program1.pas(17) : Нельзя изменять значение переменной цикла внутри этого цикла", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.