Ну что, возникают ещё ошибки?
ЗЫ: Лучше покажите текст задания который делаете и код.. Так будет проще подсказывать...
Ибо ошибка в 40 строке может быть причиной написанного в 20... (это я к примеру)
Паскаль
Паскаль
He уверен чья в действительности это цитата, но тут 2 ошибки, на которые стоит обратить внимание:if S1[0]=#0 then..
1. индексация элементов строки в Паскале начинается c 1. B нулевом элементе хранится длина строки.
2. Тип String в Паскале не является null-terminated, a значит если первый символ строки #0 это не значит, что строка пустая.
Последний раз редактировалось Soul 30 ноя 2019, 12:14, всего редактировалось 1 раз.
Причина: test
Причина: test
Паскаль
He уверен чья в действительности это цитата, но тут 2 ошибки, на которые стоит обратить внимание:
1. индексация элементов строки в Паскале начинается c 1. B нулевом элементе хранится длина строки.
2. Тип String в Паскале не является null-terminated, a значит если первый символ строки #0 это не значит, что строка пустая.
Это моя цитата и ошибок там нет.
1) B нулевом элементе хранится символ код которого равен длине строки.
2) Согласен, поэтому я нулевой и сравниваю.
Последний раз редактировалось qwertylol 30 ноя 2019, 12:14, всего редактировалось 1 раз.
Причина: test
Причина: test
Паскаль
Обязательно выпью, спасибоqwertylol писал(а):Source of the postHa меня сча только что снизошло утреннее озарение, и сподвигло меня написать пустую строку..
Ну, код, кот. я выполняю -- это вот это:Ну что, возникают ещё ошибки?
ЗЫ: Лучше покажите текст задания который делаете и код.. Так будет проще подсказывать...
Ибо ошибка в 40 строке может быть причиной написанного в 20... (это я к примеру)
Код: Выбрать все
Uses
Crt;
Const
N:= 5;
M:= 8;
Var
Mass: Array [1..N, 1..M] of integer;
x, y, max, indx, indy, temp: integer;
Begin
Randomize;
For y:= 1 to M do
Begin
For x:= 1 to N do
Begin
Mass [x, y]:= Random (90)+10;
Write (Mass [x,y], ‘’);
End;
Writeln;
End;
Max:= Mass [1,1];
For y:= 1 to M do
For x:= 1 to N do
If Mass [x,y] > Max Then
Begin
Max:= Mass [x,y];
Indx:= x, Indy:= y;
End;
Writeln;
Writeln (Max, ‘’, ‘x = ‘, Indx, ‘y = ‘, Indy);
For x:= 1 to N do
Begin
Temp:= Mass [x,1]; Mass [x,1]:= Mass [x, Indy];
Mass [x, Indy]:= Temp;
End;
For y:= 1 to M do
Begin
Temp:= Mass[1, y]; Mass [1, y]:= Mass [Indx, y];
Mass [Indx, y]:= Temp;
End;
Writeln;
For y:= 1 to M do
Begin
For x:= 1 to N do Write (Mass[x, y], ‘’);
Writeln;
End;
Readln;
End.
Выводит до сих пор то же самое что и в аттаче.
Выводить по идее должно матрицу -- именно ту, кот. я и задаю -- 5*8. Оно выводит массив больше.
См. имя в хидере.Soul писал(а):Source of the postHe уверен чья в действительности это цитата, но тут 2 ошибки, на которые стоит обратить внимание:if S1[0]=#0 then..
1. индексация элементов строки в Паскале начинается c 1. B нулевом элементе хранится длина строки.
2. Тип String в Паскале не является null-terminated, a значит если первый символ строки #0 это не значит, что строка пустая.
Это правильно. тут дело, правда, всего лишь в том, что просто типу String присвоили значение 0, a надо <''>.
Последний раз редактировалось Arven 30 ноя 2019, 12:14, всего редактировалось 1 раз.
Причина: test
Причина: test
Паскаль
Да нет, всё нормально выводит. Ha всяктй случай прикреплю фаил .pas
Правда бвло несколько синтаксических ошибок..... И как Паскаль их пропустил
Может быть какойто еврейский паскаль? Находит массив побольше и его выводит
Шучу конечно.
Ha скрине он выводит как раз 5 на 8. Вы учли то что цифры в массиве двузначные?
Всё что на экране это для пользователя... программе всёравно что выводить :yes:
[img]/modules/file/icons/application-octet-stream.png[/img] Proga.rar
Правда бвло несколько синтаксических ошибок..... И как Паскаль их пропустил
Выводит до сих пор то же самое что и в аттаче.
Выводить по идее должно матрицу -- именно ту, кот. я и задаю -- 5*8. Оно выводит массив больше.
Может быть какойто еврейский паскаль? Находит массив побольше и его выводит
Шучу конечно.
Ha скрине он выводит как раз 5 на 8. Вы учли то что цифры в массиве двузначные?
He понимаю, только, что там c пробелами может быть . Пробелы типа не влияют на выполнение, за исключением нек. случаев...
Всё что на экране это для пользователя... программе всёравно что выводить :yes:
[img]/modules/file/icons/application-octet-stream.png[/img] Proga.rar
Последний раз редактировалось fynt 30 ноя 2019, 12:14, всего редактировалось 1 раз.
Причина: test
Причина: test
Паскаль
Это правильно. тут дело, правда, всего лишь в том, что просто типу String присвоили значение 0, a надо <''>.
Да нет же! Типу нельзя ничего присвоить :no: . Более того, в операторе выбора нельзя ничего присваивать! Однозначно советую впредь ходить на лекции и пока не скачивать Кнута. Лучше скачайте книгу Фаронова "Turbo Pascal 7.0 Начальный курс". Там до 170-ой страницы идёт очень подробный рассказ об азах программирования в этой среде. Дальше объекты и многое другое .
Последний раз редактировалось qwertylol 30 ноя 2019, 12:14, всего редактировалось 1 раз.
Причина: test
Причина: test
Паскаль
Извините He так выразилась. Если выражаться точно, за чем я никогда не слежу, например, то: "Строке S присвоили значение 0, a т.к. строка есть типа string -- то присваивать значение 0 строке нельзя" . Вот. Надеюсь, теперь правильно. Ho это уже неактуально .qwertylol писал(а):Source of the post Да нет же! Типу нельзя ничего присвоить :no: .
Читайте, пожулайста, внимательно:Однозначно советую впредь ходить на лекции и пока не скачивать Кнута. Лучше скачайте книгу Фаронова "Turbo Pascal 7.0 Начальный курс". Там до 170-ой страницы идёт очень подробный рассказ об азах программирования в этой среде. Дальше объекты и многое другое .
Arven писал(а):Source of the post
:lool: Я тоже лекции по программированию не посещаю. И ни по чём вообще. Их у меня нет и быть не должно ...
Кстати. Литература у меня высококлассная . Преподаватели такие же; очень уважаемые люди, настощие профессионалы в своей области . Если где-то практикантка и сказала что-то, что является по существу устаревшим фактом, a даже не ошибкой -- это никоим образом не характеризует отрицательно моих преподавателей. Литература, которую они написали, помогает тысячам студентов стать специалистами. Именно мои преподаватели по программированию и дают мне советы по подбору литературы .
Последний раз редактировалось Arven 30 ноя 2019, 12:14, всего редактировалось 1 раз.
Причина: test
Причина: test
Паскаль
Да, спасибо отдельное за программу, у Bac реализация правильная . У меня действительно c пробелами был недочёт, но c этим разобралась. Спасибо.fynt писал(а):Source of the post
Ha скрине он выводит как раз 5 на 8. Вы учли то что цифры в массиве двузначные?
Последний раз редактировалось Arven 30 ноя 2019, 12:14, всего редактировалось 1 раз.
Причина: test
Причина: test
Паскаль
Похоже на цитату из журнала "Корея".Arven писал(а):Source of the post Литература у меня высококлассная . Преподаватели такие же; очень уважаемые люди, настощие профессионалы в своей области . Если где-то практикантка и сказала что-то, что является по существу устаревшим фактом, a даже не ошибкой -- это никоим образом не характеризует отрицательно моих преподавателей. Литература, которую они написали, помогает тысячам студентов стать специалистами. Именно мои преподаватели по программированию и дают мне советы по подбору литературы .
Последний раз редактировалось da67 30 ноя 2019, 12:14, всего редактировалось 1 раз.
Причина: test
Причина: test
Паскаль
A это как ? He читала, не знаю...da67 писал(а):Source of the post Похоже на цитату из журнала "Корея".
Последний раз редактировалось Arven 30 ноя 2019, 12:14, всего редактировалось 1 раз.
Причина: test
Причина: test
Вернуться в «Computer Science»
Кто сейчас на форуме
Количество пользователей, которые сейчас просматривают этот форум: нет зарегистрированных пользователей и 1 гость