Прим. прога Опции

[suriv]

Вот,сделал програмку типа калькулятора,ради интереса да и проверить свои силы в паскале.
Так вот что в это программе лишнее или как можно её улучшить:

program l;
uses crt;
var
a,b,z:real;
d,r:char;
g:boolean;
begin
clrscr;
highvideo;
writeln('                          CALCULATOR                     ');
write('                            by -=[SuRiV]=-                     ');
delay(2000);
clrscr;
g:=false;
repeat
normvideo;
writeln;
write('‚ўҐ¤ЁвҐ ЇҐаў®Ґ зЁб«® ');
readln( a );
write('‚ўҐ¤ЁвҐ ўв®а®Ґ зЁб«® ');
readln( b );
write('‚ўҐ¤ЁвҐ §­ Є ¤Ґ©бвўЁп ');
readln(d);
case d of
'+': z:=a+b;
'-': z:=a-b;
'*': z:=a*b;
'/': z:=a/b;
else
g:=true;
write('Ќ ¤® Ўл«® ўўҐбвЁ §­ Є ¤Ґ©бвўЁп!');
delay(2000);
halt;
end;
writeln('ЋвўҐв:',a:5 :1,d,b:5 :1,' = ',z:5 :2);
write('…йс а §®Є(Y/N)');
readln®;
if r='n' then
begin
write('Љ «мЄг«пв®а § ўҐаи Ґв бў®о а Ў®вг...');
g:=true;
end;
until g;
readln;
end.

:p2:

[Altair]

[xds]

гото - конструкция, интегрируемая из асма

О, боже!..

А не советуют ее применять идеологи ГРАМОТНОГО ПРОГРАММИРОВАНИЯ =)

Я нарушил великую заповедь. Каюсь!

[Digitalator]

Я уже писал - если у нас оптимизацомания, то пишем на асме, а если нет - то берем пас без всяких goto и пишем нормальную прогу. Если че современные процы с их архитектурой оптимизировны под языки высокого уровня, и их алгоритмы предсказания и конвейеры работают куда быстрее без дополнительных, не предусмотренных структурой языка, джампов.

А что же такое "суррогатный язык"?

Вы не знаете что значит слово суррогат?

Мы пишем не только примеры для статей и книжек, но еще и практически используемые приложения.

И что из этого? скажите пжлста какие вы написали практически используемые приложения, в которых использование goto было большим облегчением работы?
Я вообще не вижу чем структурированый код сложнее для написания и понимания, кода с goto....
а если вы пишите большие циклы/условия большой вложености, то ипользование goto будем нарушать видимую структуру. Если вам так уж нужно сделать какой-то сверх-сложный и запутаный алгоритм, то можете использовать case-структурное програмирование без всяких goto

[Altair]

В принципе я согласен с Digitalator, видимо у него есть опыт написания больших систем, чего нет скажем у меня еще...

[APAL]

Digitalator

...современные процы с их архитектурой оптимизировны под языки высокого уровня...

Ничего не путаешь? Может все таки "низкого уровня"? <_<
Никогда не слышал, чтобы процы были оптимизированы под Паскаль или C...

[Altair]

наверное он имеет ввиду,ч то современные процы умеют предсказывать ветвления и делать прочую предобработку...

[APAL]

Это "предсказание" используется не только в современных процах. Это было с самого начала.
Если не ошибаюсь, в архитектуре CISC+RISC процов ....
надо попробовать старые конспекты найти...

К тому же, считаю это бредом про оптимизацию для высокоуровневых языков.
Это утверждение было бы более правильным по отношению к компиляторам, которые и переводят все в машинный код.

[Altair]

Хм....
ну вобщем конечно оптимизация под высокий уровень ... <_<

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

[xds]

Никогда не слышал, чтобы процы были оптимизированы под Паскаль или C...

Такая ситуация наблюдалась в конце 70-х - начале 80-х годов XX века. Например в процессорах мини-ЭВМ семейства VAX от DEC одной инструкцией были реализованы не только пролог функции и копирование строки символов, но и операции с односвязным списком. Вот пример одной из команд этой архитектуры: INDEX <b>, <l>, <h>, <s>, <i>, <a> - вычисление адреса элемента массива (<b> - адрес массива, <l> и <h> - границы индекса, <s> - размер элемента, <i> - индекс элемента, <a> - место, куда будет помещён результат). Операции С "++" и "--" - не что иное, как режим адресации с инкрементом/декрементом - характерная черта системы команд PDP (именно на этой архитектуре родился указанный язык). Для такого подхода существовали вестские причины: дело было на заре теории трансляции, недостаток вычислительных мощностей не позволял реализовывать достаточно гибкие алгоритмы оптимизации. Желание помочь разработчикам компиляторов было оправдано.
Сегодня мы имеем ситуацию, противоположную указанной. Производители процессоров не стремятся "заточить" систему команд под ЯВУ: задача оптимизации генерируемого кода практически полностью перешла в руки разработчиков компиляторов. В x86 только две инструкции были добавлены исключительно на благо ЯВУ: это ENTER и LEAVE (пролог и эпилог, функции; ни та, ни другая не используются в BP). Современные аппаратные средства оптимизации расcчитаны на повышение эффективности выполнения произвольного (в смысле источника генерации, но не семантики) кода.

[APAL]

Т.е. о "современных процах" речь даже не идет...
Так что же имел в виду Digitalator ???

[Digitalator]

На самом деле именно языки Паскаль, Си и им подобные я и имел ввиду...
Если посмотреть повнимательней, то на выходе компиллятора структурный код if, while, case и т.д. почти идентичны (ну одна фирма делает как никак), современные процессоры Intel P3/4 или AMD k7 имеют сложные и большое количество конвейров и алгоритмы предсказания ветвлений, а т.к. последние много лет разработка приложений ведется в основном на Си и Паскале, их алгоритмы предсказания улучшались в соответсвии и с ними.

PS: Еще одна мысль про гото: при использование этой штуки, наша программа/подпрограмма перестает быть функцией в математическом понимании.

[Digitalator]

Вот что в институте проходят по этому поводу

Цель курса - дать представление об различных подходах, используемых при создании современных ЭВМ. Основное внимание уделяется традиционным архитектурам (CISC и RISC). Рассматриваются взаимосвязи архитектуры и компиляторов языков высокого уровня.

[Rothmans]

Если рассматривать программу вцелом, то применение локального GOTO оставит её функцией. Любой цикл - комбинация GOTO и IF (jz например). Явный переход иногда полезен при отладке. Но даже в BASIC для красоты стараются делать GOSUB. А программирование, для многих - эстетическое наслаждение.

Под языки высокого уровня оптимизируются не процессоры, а компиляторы. Та же Intel их регулярно выпускает.

i:=0;j:=0;
repeat
  Inc(i);
   repeat
      Inc(j);
   until (a[i,j]=x) or (j:=m);
until (a[i,j]=x) or (i:=n);
if a[i,j]=x then writeln('Found') else writeln('Not found');

и, вроде, не длинно.

[Rothmans]

Sorry, ошибочка. Под until не :=, а = конечно.

[volvo]

Rothmans

А кнопка "Редактировать" зачем?
:D

[Rothmans]

Любую задачу можно решить разными путями. "Редактировать" вовремя не заметил, поэтому выпустил патч.

[Digitalator]

попробуйте записать с помощью обычных математических записей функцию содержащую goto. Без него любую функцию можжно представить конечным числом математических выражений.

ЗЫ: j перед вторым repeat-ом обнулять нада

Сообщение отредактировано: Digitalator - 18.11.2004 5:39

[Atos]

Применение goto оправдано при выходе из нескольких вложенных циклов:

for i := 1 to n do
  for j := 1 to m do
    if a[i, j] = x then
      begin
        Writeln('Found.');
        goto Done;
      end;
Writeln('Not found.');
Done:

OK:=false;
i:=0;
repeat
inc(i);
j:=0;
    repeat
    inc(j);
    OK:=(a[i,j]=x);
    until OK or (j=m);
until OK or (i=n);

if OK then writeln('found.') else writeln('Not found.');

Имхо, примерно то же самое и по размеру, и по читабельности...
В принципе, в таких простых случаях можно и goto ставить, если уж так нравится.

[GoodWind]

ИМХО паскаль программа с goto - уже Бейсик-программа