|
Вопрос # 3 562/ вопрос открыт / |
|
Добрый вечер, уважаемые эксперты! Подскажите в чём ошибка в задаче. вот задача и не могу понять в чём ошибка. на паскале работает а на делфи нет.
Приложение: Переключить в обычный режим- Program DvomMas;
- {$APPTYPE CONSOLE}
-
- uses
- SysUtils;
- const n=4; m=3;
- var
- temp : array[1..m] of integer;
- i,j : integer;
- a : array[1..n,1..m] of integer=((2,2,10),
- (1,2,15),
- (4,2,3),
- (3,2,7));
- //Print
- begin
- { TODO -oUser -cConsole Main : Insert code here }
- for i:=1 to n do
- begin
- for j:=1 to m do
- begin
- write(a[i,j]);
- end;
- writeln;
- end;
-
- //Sorting
- for i:=1 to n-1 do
- begin
- if a[i,m] < a[i+1,m] then
- begin
- temp := a[i];
- a[i] := a[i+1];
- a[i+1] := temp;
- end;
- end;
-
- //Print
- writeln(' mesto',' kol igr',' ochki');
- for i:=1 to n do
- begin
- for j:=1 to m do
- begin
- write(' ' , a[i,j]);
-
- end;
- writeln;
- end;
-
-
- readln;
- end.
Мини-форум вопроса
Всего сообщений: 13; последнее сообщение — 22 декабря 2009, 21:08; участников в обсуждении: 5.
|
min@y™ (статус: Доктор наук), 22 декабря 2009, 20:23 [#1]:
Цитата (Дементьев Евгений Владимирович):
на паскале работает а на делфи нет
В чём отличия?
Блин, ни одного комментария. Мозговой секс обеспечен. Попробуй угадай, что ты тут хотел сделать.
Ща как выложу сюда 90 модулей своего проекта и скажу "найдите ошибку ПОЖАЛУЙСТА"!
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
Дементьев Евгений Владимирович (статус: Посетитель), 22 декабря 2009, 20:31 [#2]:
там 3 комментария. там написано где я сортирую. а вот собствено условие задачи: Таблица круга футбольного чемпионата задана квадратной матрицей порядка n, Вивести номера команд которые посели соответствено первое, второе и третье места.
|
|
|
min@y™ (статус: Доктор наук), 22 декабря 2009, 20:34 [#3]:
Цитата (Дементьев Евгений Владимирович):
там 3 комментария
//print
//sorting
//print
Это и есть комментарии???!!!111
Офигенно всё понятно! 1600 кг.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
Жикльор (статус: 5-ый класс), 22 декабря 2009, 20:34 [#4]:
Трудно читается код. Ты его хоть бы отформатировал.
Если бы строители строили дома так, как программисты пишут программы, то первый же дятел уничтожил бы цивилизацию.
|
|
|
Дементьев Евгений Владимирович (статус: Посетитель), 22 декабря 2009, 20:39 [#5]:
я 1-й курс я пока ещё мало чего понимаю в этом деле и поэтому прошу у вас помощи.
|
|
|
min@y™ (статус: Доктор наук), 22 декабря 2009, 20:52 [#6]:
Цитата (Дементьев Евгений Владимирович):
я 1-й курс я пока ещё мало чего понимаю
Ога, а мы в этом виноваты!
Комментарии нужны для того, чтобы ДРУГИЕ ЛЮДИ поняли твой код.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
Мережников Андрей (статус: Абитуриент), 22 декабря 2009, 20:54 [#7]:
какую хоть ошибку выдает??? Текст ошибки, пожалуйста, в студию
|
|
|
Мережников Андрей (статус: Абитуриент), 22 декабря 2009, 21:00 [#9]:
Может быть ругается на несоответствие типов при присвоении temp:=...
Попробуйте сделать так: перед var добавить
type amas=array[1..m] of integer;
объявление temp и a изменить:
temp:amas;
a:array [1..n] of amas=(....
|
|
|
min@y™ (статус: Доктор наук), 22 декабря 2009, 21:05 [#11]:
Цитата (Дементьев Евгений Владимирович):
Incompatibel types
тебе перевести на русский или на украинский?
Не обижайся. Я очень не люблю учить людей. Вместо того, чтобы просматривать километры чужих исходников, мне проще написать готовую программу с нуля - так быстрее на порядок (а то и на 2).
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
Паровоз (статус: 10-ый класс), 22 декабря 2009, 21:08 [#12]:
На паскале это тоже не должно работает из-за той же несовместимости типов. Типы переменных temp и a различны.
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
