да файл в файле записан пример 2+2 надо в файл записать 4 или можетбыть записана вот так (2+2)*8 должны результат записать 32 числа от 0 до 9 и знаки +,-,* и еще эти скобки () с чего начать? вот написал сперва чтобы в массив все занесло но получилось ошибка чегото что я неправильно сделал?
program staciakampis; var i:byte; pradDuom,rezult: text; n:array [1..255] of string; begin assign (pradDuom, 'duom.TXT'); assign (rezult, 'rez.TXT'); reset (pradDuom); rewrite (rezult); inc(i); while n[i]<' ' do begin readln(pradduom,n[i]); write(n[i]); inc(i) end; readln; close(pradduom); close(rezult); end.
после загона в массив всех знаков хотел я обратится к case n[i] of или надо или можно както по другому сделать ?
volvo
4.02.2009 20:34
Цитата
с чего начать?
С чтения информации, о том, как это делается правильно: Постфиксная форма записи и по ссылке... А то, что делаешь ты - применимо для выражений без скобок (и то с натяжкой, приоритеты операций разные, сначала выполняется умножение, и только потом - сложение/вычитание). Со скобками сложность программы еще возрастет, зачем оно тебе?
maksimla
4.02.2009 20:52
задали сделать такую програму до 8 числа этого месяца
maksimla
7.02.2009 22:21
был немношко я занет вот теперь я переставил там что показали для себя переставил сечас осталось сделать чтобы со скобками читало и ответ правильный был
Type code_mem=record a:array[0..1023] of byte; p:integer; end;
Var Stack:array[0..100] of real;
Procedure Parse(s:string;var code:code_mem); Var i,j:byte; a,b:integer; Begin j:=0; for i:=byte(s[0]) downto 1 do case s[i] of ')': inc(j); '(': dec(j); '-': if j=0 then begin parse(copy(s,1,i-1),code); parse(copy(s,i+1,byte(s[0])-i),code); code.a[code.p]:=cmMINUS; inc(code.p); exit; end; '+': if j=0 then begin parse(copy(s,1,i-1),code); parse(copy(s,i+1,byte(s[0])-i),code); code.a[code.p]:=cmPLUS; inc(code.p); exit; end; end; j:=0; for i:=byte(s[0]) downto 1 do case s[i] of '(': inc(j); ')': dec(j); '/': if j=0 then begin parse(copy(s,1,i-1),code); parse(copy(s,i+1,byte(s[0])-i),code); code.a[code.p]:=cmDIV; inc(code.p); exit; end; '*': if j=0 then begin parse(copy(s,1,i-1),code); parse(copy(s,i+1,byte(s[0])-i),code); code.a[code.p]:=cmMUL; inc(code.p); exit; end; end;
val(s,a,b);
if b=0 then begin { ĄĆĄ !} code.a[code.p]:=cmPUSH; inc(code.p); code.a[code.p]:=lo(a); inc(code.p); exit end; if s='' then begin code.a[code.p]:=cmPUSH; inc(code.p); code.a[code.p]:=0; inc(code.p); exit end; if (s[1]='(') and (s[byte(s[0])]=')') then begin i:=2; j:=1; while (i<(byte(s[0])-1)) and (j>0) do begin if s[i]='(' then inc(j); if s[i]=')' then dec(j); inc(i); end; if j<>0 then parse(copy(s,2,byte(s[0])-2),code); end; End;
Function Calk(code:code_mem):real; Var i:byte; StackPointer:byte; Begin i:=0; StackPointer:=0; while (i<code.p) do Begin case code.a[i] of cmPUSH :Begin inc(i); Stack[StackPointer]:=code.a[i]; inc(StackPointer); end; cmMINUS:Begin Dec(StackPointer); Stack[StackPointer-1]:=Stack[StackPointer-1]-Stack[StackPointer]; End; cmPLUS :Begin Dec(StackPointer); Stack[StackPointer-1]:=Stack[StackPointer-1]+Stack[StackPointer]; End; cmDIV :Begin Dec(StackPointer); Stack[StackPointer-1]:=Stack[StackPointer-1]/Stack[StackPointer]; End; cmMUL :Begin Dec(StackPointer); Stack[StackPointer-1]:=Stack[StackPointer-1]*Stack[StackPointer]; End; End; inc(i); End; Calk:=Stack[0]; End;
Если б ты прошел по ссылке, которая лежит в FAQ-е, тебе бы не пришлось ничего "переставлять", там приведена программа, которая обрабатывает строку с операциями +, -, *, / и скобками... Тебе останется только прочитать строку из файла, и записать результат в файл.
я там прошол по этои ссылке и там эти програмки запустил с значением 2*(3+4)*5 и мне эти значение разложито только так 2 3 4 + * 5 * а мне надо результат такой 70 чегото непонел я зачем мне это разложение
volvo
8.02.2009 19:29
Ну да, правильно... Там только перевод из обычной записи в постфиксную, для вычисления понадобится еще один стек, способный хранить целые числа... Программка немного увеличится в объеме...
maksimla
8.02.2009 20:17
Да уж для меня и так и эта кажется программа очень большая и я незнаю уже что мне делать чтобы программа выдовала что нужно мне запутался я в программе этои уже может напишите что мне нужно?
maksimla
8.02.2009 23:12
Так сделаешь изменишь прогу эту а то мне сегодня надо ее здать уже у меня такая учеба
volvo
9.02.2009 1:25
<реализация удалена... Не нравится - делай сам>
maksimla
9.02.2009 2:04
извени нечего непонимаю я. И мне нужно чтобы с файла duom.txt читало а результат в файл записывало в rez.txt и мне нужно все это в одной программе на одном листе а не в отдельных файлах.
volvo
9.02.2009 3:14
Цитата
И мне нужно чтобы с файла duom.txt читало а результат в файл записывало в rez.txt
Знаешь, что... Тебе нужно, ты и делай... Ему же помогаешь, он же еще и недоволен. Что, из файла строку прочесть - это великий труд? Записать в файл строку (или просто число) - это тоже невероятно сложно, да? Рассыпаться боишься, если это сделаешь? Не делай, если боишься...
Цитата
и мне нужно все это в одной программе на одном листе а не в отдельных файлах.
Еще что тебе нужно, и кто-то должен за тебя сделать? Повторяю: нужно - делай... Мне это как-то не нужно, извращаться с Copy/Paste-ом, когда можно сделать так, как я сделал. Возможно, кто-то узнал бы новый способ реализации подобных вещей, но благодаря тебе, я убираю аттач и код. Делай сам...
maksimla
9.02.2009 3:16
ясно спасибо извените что я вас обидел
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.