так почитабельнее
bump
bump
bump
bump
bump
bump
bump
bump
bump
bump
bump
> goto
Серьезно?
bump
да, а почему бы и нет ?
ОП, ебучий ты хуесос, поясни! Зачем писать 2016 год через К? Вам дефективным так легче жить?
Сделай рекурсию или бесконечный цикл вместо goto
Попробуй сменить среду. Там же ебаная куча багов/левых функций в каждой сборочке.
Юзни допотопный turboPascal, попробуй pascalABC, возможно в этом проблема. А так, скинь задачу. Попробую сам решить, вкину свой вариант.
Юзни допотопный turboPascal, попробуй pascalABC, возможно в этом проблема. А так, скинь задачу. Попробую сам решить, вкину свой вариант.
нет, все просто, потому что ты хуесос
я не понял, а почему 3 begin и 4 end? Так же не должно быть
так же тоже не работает почему то...
>Решил попробовать запустить без меток и зацикленного while - выполняется только write('cmd// '); один раз, а все остальное игнорится.
Два чаю, оп, дай задачу, я решу ее тебе на джаве, а ты перенесешь на паскаль
ОП, я не помню суть, это какая-то параша с вводом-выводом, попробуй ридлн вместо рид
оператор кейс тоже завершается эндом
Метку смести после бегин ты скорее всего от этого отгребаешь он пытается вновь выделить данные уже зарезервированные переставая пользоваться безусловным переходом не превращая код в спагети!
ну мне надо написать калькулятор, где просто вводишь в одну строчу выражение и получаешь ответ
пробовал
нихуя не выходит
ааа, точно, со школы не прогал на паскале, забыл
не помогло, просто бесконечно выводит cmd//
Сложность выражений?
Ты же понимаешь, то, что ты описываешь, довольно расплывчато?
Может я задам ему:
2*(3+4^2)/24^10
Он же не решит, исходя из твоего кода.
ну пока что нет же смысла писать дальше/ придумывать дальше, если все ломается на вводе строки
над сначала с этим разобраться
вот убрал метки
выполнился write и read а дальше все проигнорилось, хотя изначально код выполнялся в таком варианте
мы в вузе pascal проходим, все объясняют на нем
Оп, ты тупой ебасос. Мало того, что goto не в тему используешь, так еще и не можешь описать алгоритм интерактивного калькулятора на божественгом языке, на котором мухаммед аллаха описывал. Рака тебе, уебище тупое. Ты наверняка первокур или школяр без тян и нормальной жизни.
Ну, если тебе задали именно "выражение одной строчкой", то тут поебаться придётся знатно. Так, через case калькулятор пишется легче, намного легче.
Щас поебусь, напишу. Но, я пьян, поэтому прошу не судить строго.
Алсо, пока мне кажется, что ты проебался с оператором case и val.
Кому ты пиздишь?
там метки вроде бы тоже обозначать надо, как и переменные. ВРОДЕ БЫ, точно не помею - со школы в этом говне не копался.
вообще-то я в глаза ебусь
ну вот, нихуя же
Writeln пробовал?
а все сори, работает с Readln, я прост + забыл дописать при вводе.
Но почему с Read не работает?
анон, все, нинад
А хули оно тебе должно делать? Ты просто вал вызываешь, пока не введёшь плюсик. Хуйня с циклом больше не происходит
------>
Потому что паскальабц параша, я учился у препода, студенты которого его пилят.
За 4 года нихуя не починили.
Я не помню в чём суть уже, просто имей ввиду что такое происходит.
Спроси у препода своего на паре, может он в курсе
>Pascal
>В вузе
>2016
Охохо, беги из этого вуза, я серьезно.
а в delphi даже с readln не работает
Сначала проблем не было, программа работала, но потом я добавил метку, дабы возвращаться в начало и..,
но после метки выполнялось только 1-н оператор, который стоит сразу после метки(при втором заходе)
Потом я решил убрать метку и заменить ее циклом while.
Тоже самое - выполняется один оператор после "while что-то do begin". Его выполнение зацикливалось, но только 1-го оператора, все остальное игнорилось.
Потом эта ебучая срань стала вылетать под совершенно непонятными предлогами.
Решил попробовать запустить без меток и зацикленного while - выполняется только write('cmd// '); один раз, а все остальное игнорится.
Убрал Write - выполняется Read, а остальное игнорится.
Вернул метки - бесконечно выполняет write, хотя в первый раз такого не было...
подобное происходит, и в ABC pascal, и в delphi
_______________________________________________
program the_best;
label res;
var
cmd: string;
i, c:integer;
a, b : Real;
begin
a:=0;
b:=0;
c:=0;
res:
write('cmd// ');
Read(cmd);
for i:=1 to Length(cmd)do
begin
case cmd of
'0'..'9': begin val(cmd,a,c); end;
'+': Writeln(a+100500)
end;
end;
goto res;
end.
________________________________________________
Двач, помоги разобраться в чем же причина