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

[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:

[volvo]

suriv

Сразу бросается в глаза - нет проверки деления на ноль ...

[suriv]

Hy A TEIIEPb:

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);
if b=0 then halt;
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.

[Altair]

Ну зачем сразу выход? Впринципе проверку на нуль надо делать только в операции деления... (ну если всего только 4 операции).
И еще, если решишь сделать что-то круче (что будет теоретически долго считать), используй другие вещественные типы, они в 1,5 раза быстрее работают. Даже почти в 2.
Это я доказывал, если интересно, загляни в прикрепленную тему об ускорении работы программ.

[suriv]

Хмм
пишу

program l;
uses crt;
begin
sound(120);
delay(60);
nosound;
readln;
end.

И нифига не пищит

Как надо делать?

[volvo]

suriv

Ты бы Delay увеличил ... хотя бы до 5000...

[Altair]

даи частоту звука.... а то кряхтеть будет )

[suriv]

program l;
uses crt;
begin
sound(120);
delay(9999);
nosound;
readln;
end.

Нифига не работает

delay и 5000 и 999 2400 нифига

[volvo]

Попробуй :

program l;
uses crt;
begin
  sound(1200);
  delay(10000);
  nosound;
  readln;
end.

[Altair]

А у тебя системный спикер (как в госдуме спикер ЛОЛ) есть?

[suriv]

Блин напишите как шоб был красивый чистый (хотя чистым он никогда не будет) звук. Кокда биос загружается(В смысле комп врубаю) он пищит а как пишу так он зараза пищать не хочет.

Добавлено (5.11.04 14:16):
Вот многие говорят: типа использовать goto неправильно и нерационально.
чем же эт непавильно.

[Altair]

Вот многие говорят:типа использовать goto неправильно и нерационально.

Нифига подобного
Гото просто запрещен в рамках ООП. Но так это очень быстрая конструкция,а циклы на его основе супер быстры, и по скорости такие-же как и wile.
К тому же оператор гото, как всегда говорит Сквозной, философская конструкция
Вобщем испольуй если надо, но не показывай никому
А так, математически доказанно, что без него можно обойтись..

[suriv]

Блин Ещё одна хрень пишу в BP7:

program l;
uses crt;
begin
sound(1200);
delay(5000);
nosound;
readln;
end.

Пишет 'Division by zero'
Ну я поменял turbo.tpl но всё равно вылезает ошибка.

Добавлено:
ээй это ведь из-за того что turbo.tpl старый или что

[Altair]

Да именно. Из-за этого.

[Digitalator]

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

[xds]

Применение 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:

[Digitalator]

неоправдано, то же самое:

Код

exit:=false;
i:=1;
j:=1;
while not(exit) do
 begin
 if a[i,j] = x then
   begin  
   writeln('Found. ');
   exit:=true;
   end else
   begin
   inc(j);
   if j>m then
     begin
     j:=1;
     inc(i)
     if i>n then
        begin
        writeln('No found');
        exit:=true;
        end;
     end;
   end;
 end;

и не надо говорить что с goto код короче и т.д. и т.п. мы пишем на структурированом, а не суррогатном языке

Сообщение отредактировано: Digitalator - 5.11.2004 19:05

[xds]

мы пишем на структурированом, а не суррогатном языке

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

P. S. Структурированность... Сравним время, необходимое человеку для анализа семантики первого и второго вариантов кода...

P.P.S. А что же такое "суррогатный язык"? ;)

Сообщение отредактировано: xds - 6.11.2004 3:21

[Altair]

Сравним время, необходимое человеку для анализа семантики первого и второго вариантов кода...

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

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

Вот в том-то и дело... иногда получается, что куча циклов, сильно тормозящих работу, можно убрать а использовать ГОТО.

ЗЫ: хотя я сам не пользуюсь, гото, однако вижу в нем и положительные моменты...

[Dark]

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

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