Параметр цикла for в PascalABC.NET должен описываться в заголовке цикла

@inkvizitor1832 · Регистрация: 05.03.2015

Студворк — интернет-сервис помощи студентам

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
program Khamkov8; 
const Z=5; M=6; 
var 
f,f1:text; 
c:array[1..Z,1..M] of integer; 
n:array[1..Z] of integer; 
j,i,jm,max:integer; 
begin 
assign(f,'C:\Users\Komp\Desktop\in.txt'); 
assign(f1, 'C:\Users\Komp\Desktop\out.txt'); 
reset(f); 
rewrite(f1); 
for i:=1 to Z do 
for j:=1 to M do 
read(f, c[i,j]); 
close(f); 
for i:=1 to Z do 
begin 
max:=c[i,1];n[i]:=1; 
For j:=2 to M do 
if c[i,j]>max then begin max:=c[i,j]; n[i]:=j; end; 
end; 
for i:=1 to Z do begin 
jm:=c[1,n[i]]; 
c[1,n[i]]:= c[Z,n[i]]; 
c[Z,n[i]]:=jm; 
end; 
for i:=1 to Z do begin 
For j:=1 to M do 
write(f1,c[i,j]); 
end; 
close(f1); 
end.

Ребята, что тут нужно сделать ? Выскакивает ошибка. Я смотрел уже на cyberforum и других ресурсах, но так и не понял, что нужно изменить, пробовал поставить перед циклом for 'var', но после этого у меня выдавало ошибку 'Внутриблочные переменные не могут иметь те же имена, что и переменные из блока верхнего уровня'. Заранее спасибо

@Hitoku · 18.05.2017, 03:40

Если делаете for var i, тогда i нужно убрать из 7-й строки

@Hitoku · 18.05.2017, 03:42

Сообщение от inkvizitor1832

Параметр цикла for в PascalABC.NET должен описываться в заголовке цикла

а это не совсем ошибка, PABC.Net поддерживает и классический Паскаль. Просто переключитесь на "Окно вывода"

и увидите, что программа будет работать

@Hitoku · 18.05.2017, 03:45

Не по теме:

Удалил

@inkvizitor1832 · 18.05.2017, 09:07 **[ТС]**

А не подскажите, возможно ли сделать вывод в .txt, чтобы там матрица была, а не строка или столбец ?

@Hitoku · 18.05.2017, 13:19

Что в общем программа должна делать?

@Puporev · 18.05.2017, 13:24

Pascal
1
2
3
4
5
6
for i:=1 to Z do
 begin 
   For j:=1 to M do 
   write(f1,c[i,j]:5);
   writeln(f1);
 end;

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .

@Hitoku 1755 / 1347 / 1407 Регистрация: 28.10.2016 Сообщений: 4,267
	18.05.2017, 03:40
	Если делаете for var i, тогда i нужно убрать из 7-й строки 1

@Hitoku
	18.05.2017, 03:45
	Не по теме: Удалил 0

@inkvizitor1832 3 / 3 / 0 Регистрация: 05.03.2015 Сообщений: 76
	18.05.2017, 09:07 [ТС]
	А не подскажите, возможно ли сделать вывод в .txt, чтобы там матрица была, а не строка или столбец ? 0

@Hitoku 1755 / 1347 / 1407 Регистрация: 28.10.2016 Сообщений: 4,267
	18.05.2017, 13:19
	Что в общем программа должна делать? 1

Параметр цикла for в PascalABC.NET должен описываться в заголовке цикла

Решение