нужна помощь от тех, кто умеет пользоваться Turbo Pascal'ем.. Поделиться Опции

[SuperMegaFast]

привет, друзья!
выпало мне такое задание - сделать курсовую по информатике, основа которой является - База Данных Компьютерных Комплектующих..
работу я нашёл, но в ней нужно изменить пару строчек! у меня лично Turbo Pascal никак не хочет принимать Русский Язык и писать им тем более..
после небольших изменений файл нужно переделать в .EXE формат!

выкладываю файлы и надеюсь на Вас

Сообщение отредактировал SuperMegaFast - 9.6.2009, 8:29

[Fenja]

но в ней нужно изменить пару строчек!

Каких?

Turbo Pascal никак не хочет принимать Русский Язык и писать им тем более..

XP Tweaker Russian Edition - система - вкладка "Решение проблем" - галочку "Переключение на русскую раскладку в DOS приложениях" и "Использовать кодовую стараницу 1251 вместо 1252"

[SuperMegaFast]

Fenja,
от души! грамотно всё обьяснил спасибо, попробуем

можно ссылочку на хороший Turbo Pascal, а то я даже незнаю какую версию устанавливать.. (в институте система KDE)

Сообщение отредактировал SuperMegaFast - 9.6.2009, 14:48

[Fenja]

можно ссылочку на хороший Turbo Pascal

Да они вродь все хорошие тыц

[A.Vas]

SuperMegaFast,
у меня где-то валялся инсталлер Borland Pascal 7.0 - обычно для обучения паскалю везде используется именно он. Если надо, могу выложить...

(в институте система KDE)

А в этом случае лучшим выбором будет Free Pascal - по крайней мере, он будет работать нативно, а не внутри DosBox'а. Как среда разработки он сыроват, но как компилятор - очень неплох

[Genius of the Fall]

А в этом случае лучшим выбором будет Free Pascal

Быдлоязыки не нужны. g++(gcc) поможет.

[SuperMegaFast]

так, отредактировал!
теперь когда добавляешь (в ORIGINAL было 10 ячеек, а я оставил всего 6) надо, после того как всё написал, 4 раза нажать ENTER..

в чем моя ошибка?

Сообщение отредактировал SuperMegaFast - 9.6.2009, 17:00

[A.Vas]

Быдлоязыки не нужны. g++(gcc) поможет.

Genius of the Fall,
ага, и вместе с основными алгоритмами и умением их строить школьники должны заодно познавать и премудрости указателей, и функции header-файлов из комплекта поставки, и еще кучу ненужной им ерунды... Для серьезных проектов паскаль никуда не годится, но для обучения программированию лучше Pascal языка не найти.

[SuperMegaFast]

народ, а есть ли штучка, которая делает блок-схемы??

[Fenja]

народ, а есть ли штучка, которая делает блок-схемы??

Сама делает?
Я в Microsoft Office Visio делал.

[A.Vas]

SuperMegaFast,
лови

[SuperMegaFast]

A.Vas,
не работает

[A.Vas]

SuperMegaFast,
ну, на такое поверхностное сообщение об ошибке могу ответить только "Не знаю, у меня все работает".

[SuperMegaFast]

A.Vas,
Согласен Ошибка выглядит так "Не найдено выделенного участка кода"

[A.Vas]

SuperMegaFast,
почитай файлик Info.txt - там обозначены правила разметки кода для того, чтобы программа смогла проанализировать его и построить блок-схему. Там же в архиве вроде лежат мои примеры из лабы по ПиОА, размеченные для этой программы - их тоже глянь.

[SuperMegaFast]

ребят, кто может помочь, ненаю в личке, ICQ.. пару вопросов! завтра экзамен нужно исправить пару ошибок..

[T3D]

SuperMegaFast, да пиши уже сюда, кто знает, подскажет или в чат зайди)

[SuperMegaFast]

постараюсь понятней

сейчас программка выглядит вот так


а нужно мне вот так


что нужно написать, какие коды, чтобы было так!
код программки выглядит так


Добавлено позже (25.6.2009, 1:43):

[noph8]

SuperMegaFast,
ты бы лучше исходник приложил вместо фотки. Иль боишься, что кто-то покусится на твою интеллекутальную собственность?
Задача-то совсем простая (тем более, что у тебя есть пример) или я чего-то не понимаю? О_о
Дописываешь после

Код

Writeln ('База компьютерных комплектующих');

что-то типа

Код

gotoXY(40,15);
Writeln('Выполнил');
gotoXY(40,17);
Writeln('Проверил');

координаты в gotoXY подбираешь опытным путём.

Сообщение отредактировал noph8 - 25.6.2009, 5:50

[SuperMegaFast]

noph8, программку то далеко не я делал) так что скрывать нечего)
а за код огромное спасибо, сейчас попробую)

Добавлено позже (25.6.2009, 11:46):
теперь проблема такая..
скидываю код программки, запустите её и попробуйте добавить (2-добавить)
после стоимости идут четыре пустые клетки, тоесть четыре раза нужно нажать ENTER... почему так? как это убрать?

[noph8]

Кодик кошмарненький, если честно: такое количество If, как-будто про case никто не слышал
Процедура new

Код

while x<>11 do
        begin
        write(a[x]); readln(d);
        writeln(f1,d);
        x:=x+1;
        end;

должно быть

Код

while x<>7 do

Т.к. у тебя 6 строк запрашиваются 10 раз - отсюда и 4 пустых в конце.
P.S. Правильно предыдущий, как ни странно. Эт я про то, что там в коде встречается.

MICRO.rar   ( 1.89 килобайт ) Кол-во скачиваний: 64

Сообщение отредактировал noph8 - 25.6.2009, 13:55

[SuperMegaFast]

большое спасибо)))! сегодня был у него, сказал исправить эту ошибку, в отчете пару исправлений и потом посмотрим... в понедельник всё будет известно! сессия убивает просто