Ошибка «Внутриблочные переменные не могут иметь те же имена .»
Ошибка «Переменная цикла for должна описываться в том же блоке, что и цикл for». Если писать for var . то все равно ошибка, но уже «Внутриблочные переменные не могут иметь те же имена, что и переменные из блока верхнего
уровня». Вот вторая ошибка вообще не понятна, никогда с ней не сталкивалась. Всей программы не пишу, потому что она очень большая. Вот фрагмент с ошибкой:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
begin // сортировка пузырьком for var i := 1 to count - 1 do begin // пробегаем по оставшемуся массиву for var j := 1 to count - i do begin i: integer; // сравниваем 2 элемента tmp := Comparer(magazin[j], magazin[j + 1], param); // если разница >0 и надо сортировать по возрастанию или if ((tmp > 0) and b) or ((tmp < 0) and not b) then begin tov := magazin[j]; magazin[j] := magazin[j + 1]; magazin[j + 1] := tov; end; end; end; end;
Saved searches
Use saved searches to filter your results more quickly
Cancel Create saved search
You signed in with another tab or window. Reload to refresh your session. You signed out in another tab or window. Reload to refresh your session. You switched accounts on another tab or window. Reload to refresh your session.
Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.
By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.
Already on GitHub? Sign in to your account
Ошибка в yield, которой быть не должно #205
Паскаль. Все на фото
Begin
for var i:=ord(‘A’) to ord(‘A’)+readinteger(‘Введите n: ‘)-1 do
begin
for var j:=1 to i-ord(‘A’)+1 do write (chr(i));
writeln ();
end;
end.
Точнее: внутриблочные перемещения не могут иметь те же имена что и переменные из блока верхнего уровня
Выдаёт ошибку: Нельзя преобразовать тип char к integer, что делать?
Новые вопросы в Информатика
smart теплиця Які пристрої використано у проєкті
Укажи, якою цифрою позначено на малюнку кнопку Відкрити бібліотеку маркерів 4 2 3 1
Выбери, какие основные угрозы существуют в Интернете Общение с незнакомыми людьми в чатах или по электронной почте Поиск развлечений (например, игр) в … Интернете Угроза заражения вредоносным программным обеспечением (ПО) Установка нелицензионного программного обеспечения
які об‘єкти табличного процесора Excel ви знаєте? які їх властивості
Введи оценку (0 — остановить ввод): >>> 5 Введи балл (0 — остановить ввод): >>> 4 Введи балл (0 — остановить ввод): >>> 2 В … веди балл (0 — остановить ввод): >>> 3 Введи балл (0 — остановить ввод): >>> 0 Список оценок: [5, 4, 2, 3] Успеваемость: 75.0
Внутриблочные переменные не могут иметь те же имена, что и переменные из блока верхнего уровня
Если плохо видно то,
Program z1;
var i,a,b,k,d,r,l:longint;
begin readln(a,b); bEGIN
while a<>b do begin
if a>b then b:=a-b;
if b>a then a:=b-a
end; d:=a; End; r:=a*b;
l:=0; BEGIN if a>b then
begin for var i:=b to r do
if (i mod a=0) and (i mod b=0) then begin k:=i; l:=l+1; end;
end;
END;
BEGIN if b>a then
begin for var i:=a to r do
if (i mod a=0) and (i mod b=0) then begin k:=i; l:=l+1; end;
end;
END;
writeln;
writeln(‘nod=’,d,’ ‘,’nok=’,k);
end.
Голосование за лучший ответ
В стандартном Паскале внутриблочных переменных нет.
Убери лишнее объявление переменной i, если она не нужна, или назови её по-другому.
Саша ГайкоУченик (99) 5 лет назад
там где отделено i:=0; ?
Дед Мазай Гений (58061) Это присвоение значения переменной, а объявление выше var i,a,b,k,d,r,l:longint; Я не понял, нужна эта i или нет. Если нужна, переименуй, ненужна — удали.