калькулятор

@Rom@ · Регистрация: 29.11.2009

Студворк — интернет-сервис помощи студентам

Есть калькулятор и надо сделать его строками
например 2*2-7+3+10/2 = 5

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
uses crt;
var f,n:integer; a,b,w:real; i:longint;
begin
clrscr;
writeln('vvedit 4yslo');
readln(a);
repeat
if f=8 then
begin
clrscr;
writeln('vvedit 4yslo');
readln(a);
end;
repeat
repeat
repeat
clrscr;
writeln(a:1:0);
writeln('');
writeln('1-plus 2-minus 3-mnogyty 4-podilyty  5-pidnesty do stepenya 6-dobuty korin 7-dodatkovo  8-o4ystyty 9-EXIT');
readln(f);
if f=9 then exit;
if f=7 then begin clrscr; writeln(a:1:1); writeln(''); writeln('11-sin 12-cos 13-tg 14-ctg 15- nazad'); readln(f); end;
until f>0;
until f<16;
until f<>10;
clrscr;
case f of
1:  write(a:1:1,'+');
2:  write(a:1:1,'-');
3:  write(a:1:1,'x');
4:  write(a:1:1,'/');
5:  write(a:1:1,'^');
6:  write(a:1:1,'sqrt');
end;
if (f<>8) and (f<>6) and (f<>5) and (f<>11) and (f<>12) and (f<>13) and (f<>14) and (f<>15) then readln(b);
if f=5 then readln(i);
if (b=0) and (f=4) then begin writeln('na nul dilyty ne mogna, dlya prodowgenna nazmit Enter'); readln; f:=8; end;
case f of
1: a:=a+b;
2: a:=a-b;
3: a:=a*b;
4: if (b<>0) then a:=a/b;
5: if (i>=0) then begin w:=1; for n:=1 to i do begin w:=w*a; end; a:=w; end;
6: if (a>=0) then a:=sqrt(a);
11: a:=sin(a);
12: a:=cos(a);
13: a:=sin(a)/cos(a);
14: a:=cos(a)/sin(a);
15: a:=a end;
until f=0;
readln;
end.

@Mиxaил · 16.05.2010, 01:50

попробуй поиск, всегда много полезного можно найти!
ПОИСК

@lexus_ilia · 16.05.2010, 02:59

Mиxaил, немного не то, надо Rom@ искать на тему "Обратная польская запись".
Вкратце, могу сказать, что Ваш пример:

2*2-7+3+10/2

разложится вот в такую запись:

2 2 * 7 - 3 + 10 2/ +

Если почитаете теорию, то Вам станет намного понятнее запись выше. На самом деле всё просто, и в основе решения лежит стек. Ну и есть маленькая загвоздка с порядком следования операторов ( например: "*" и "/" имеют более высокий приоритет, чем "+" и "-"), ну и есть загвоздка со скобками, их тоже надо бы учитывать. А так, есть стек, в котором числа и операции хранятся в таком порядке, который я Вам представил и есть число результата. и в каждый момент времени в цикле учитываются три вещи:
1) Число результата
2) Следующее число
3) Знак операции

Можно рассмотреть Ваш пример. Вот так будет выглядеть стек:

[2] [2][*] [7] [-] [3] [+] [10] [2] [/] [+]

Ну и решение вот так, примерно:

Решение

Первый шаг:

Берём первые два числа и первую операцию: [2] [2] *, получаем 4