Почему не работает программа на TP?

[Anonymous]

Дык

ReadLn(a);

не канает.
Нада ReadLn(a);

[Polaris]

Условие: Эл-ты заданного 8 числами массива  
расположить в обратном порядке.

А что не работает-то?

[Woody]

Код абсолютно верный.

Может быть тебя смещает то, что после ввода элементов массива программа закрываеться?

Напиши "Readln" перед последним END'oм.

[Polaris]

Код абсолютно верный.

Может быть тебя смещает то, что после ввода элементов массива программа закрываеться?

Напиши "Readln" перед последним END'oм.

действительно :)

[Woody]

NORDmen, Если ты про оформление, то отстань от неё. Когда человек не занимаеться программированием, то его это не волнует.

[Anonymous]

ReadLn(a);

ReadLn(a);

[winzard]

госэкзамен наверно тоже не волнует

Яви миру свою программу переворачивания массива.

[John Prick]

Яви миру свою программу переворачивания массива

Вот с этого и надо было начинать... или этим заканчивать. Где-то подобное я уже читал.

[энергет]

Объясните, как вообще можно составить алгоритм чего-то?  

Ваше Солнце, если говорить просто, то это значит человечискими словами описать последовательность действий, не привязываясь к синтаксису конкретного языка программирования. А если чуть по сложней, то есть специальный алгоритмический язык.

По поводу самой задачи: можешь определить второй массив той же размерности что и заданный. Читаешь свой массив с начала и заносишь во второй с конца.
А можешь через переменную. Присваеваешь ей значение первого элемента массива, первому элементу присваиваешь значение последнего элемента а последнему элементу - значение переменной и т.д.

[DimAce]

Та же самая ситуация: вводишь массив, и всё закрывается...

либо вместо read(a); напиши readln(a);
либо вместо последнего readln; напиши repeat until keypressed;

[энергет]

Та же самая ситуация: вводишь массив, и всё закрывается...  

Ваше Солнце, а трассировку отменили чтоли :D Посмотри на чем вываливается. (ну нетуу меня сейчас паскля чтоб посмотреть)

[DimAce]

энергет, да не вываливается оно, просто прога отрабатывает.

Ещё Alt+F5 можно нажать.

[Woody]

вместо последнего readln; напиши repeat until keypressed;

DimAce прав. По непонятным мне причинам один Readln в конце не всегда сробатывает. Либо добавь ещё один Readln, либо как DimAce сказал.

А, ещё после закрытия можно, нажав "Alt + F5", посмотреть то, что было выведено на экран.

[энергет]

DimAce, я то понимаю. readln должно спасать.

[энергет]

мож я чего забыл, но зачем кртшный модуль здесь подрубать не пойму

[Woody]

Вот пипец. Пока читал другой топик, первей меня сказали :D

[DimAce]

мож я чего забыл, но зачем кртшный модуль здесь подрубать не пойму

если не использовать keypressed, то незачем.

По непонятным мне причинам один Readln в конце не всегда сробатывает.

Причина в том, что он срабатывает, когда вводишь последнее число, т.к. простой read его не "схватывает".

[Woody]

мож я чего забыл, но зачем кртшный модуль здесь подрубать не пойму

если не использовать keypressed, то незачем.

А, как же clrscr ??????

По непонятным мне причинам один Readln в конце не всегда сробатывает.

Причина в том, что он срабатывает, когда вводишь последнее число, т.к. простой read его не "схватывает".

Попробывал. Действительно так. Буду знать. Хотя и без этого спокойно жил :D

[энергет]

Ваше Солнце, Если не используешь
repeat until keypressed
в конце, то выкинь строчку
uses crt
ибо не нужен этот модуль здесь (могут реально понять, что не знаешь зачем эта строчка нужна) :)

[Polaris]

Ваше Солнце,  Если не используешь
repeat until keypressed
в конце, то выкинь строчку
uses crt  
ибо не нужен этот модуль здесь (могут реально понять, что не знаешь зачем эта строчка нужна) :)

Блин, ну а как же clrscr??? Писали же уже Вам

[энергет]

тоже нафиг, мы за оптимизацию. Нет сговору производителей софта и железа :D

[Anonymous]

Условие: Эл-ты заданного 8 числами массива
расположить в обратном порядке.
Решение:

=====[здесь начинается аццкий файл suxx.pas]=====
program suxx;
uses
crt;
var
a: array [1..8] of integer;
i, j, temp: integer;
begin
clrscr;
writeln('Type elements of this super-puper-duper-scuper array!!!');
for i := 1 to 8 do
begin
write('a[', i, '] = ');
readln(a);
end;
j := 8;
for i := 1 to 4 do
begin
temp := a[j];
a[j] := a;
a := temp;
j := j - 1;
end;
writeln('New array');
for i := 1 to 8 do
writeln('a[', i, '] = ',a);
writeln('ACHTUNG!!! Press RESET!!!');
readln;
end.
=====[файл suxx.pas зохавал сотона]=====



alexey
stp орёт: [Amatory] - Поцелуй мою кровь

[TAndrew]

Ваше Солнце, а есть полный список всех задач в электронном виде?

[Woody]

Ваше Солнце, а есть полный список всех задач в электронном виде?

Могу предположить, что их гдето 127(если мне не изменяет память)