Check giúp mình lỗi trong code này với !
Trang 1 trong tổng số 1 trang
Check giúp mình lỗi trong code này với !
đề bài :cài đặt bài toán tính biều thức bằng giải thuật tính giá trị biểu thức bằng ký pháp nghịch đảo..
Mình làm thử rồi những vẩn không được. Pro nào giúp mình check lỗi trong này với.Thanks nhiều lắm.
program kyphapnghichdao;
type kieu_stack = array[1..100] of 0..1;
var BT:string[30];
S:kieu_stack;
top, i, so1, so2, n, x :interger;
Procedur PUSH(var s: kieustack;var top: integer;x:integer);
begin
if top=n then
writeln('s day')
else
begin
top:= top +1;
s[top] :=x;
end;
end;
Function pop(s, var top:integer): integer;
begin
if top>0 then
begin
pop:=s[top];
top:=top-1;
end;
else
writeln('stack day');
end;
Function tinh_bt()bt:string): real;
begin
for i:=1 to legth(bt) do
begin
case bt[i] of
[+]:begin
so1:= pop(s, top);
so2:= pop(s, top);
push(s,top, so1+so2);
end;
[-]:begin
so1:= pop(s, top);
so2:= pop(s, top);
push(s,top, so1-so2);
end;
[*]:begin
so1:= pop(s, top);
so2:= pop(s, top);
push(s,top, so1*so2);
end;
[/]:begin
so1:= pop(s, top);
so2:= pop(s, top);
push(s,top, so1/so2);
end;
else
begin
val(bt[i],n,e);
push(s, top, n);
end;
end;
tinh_bt:=pop(s, top);
end;
begin
write('nhap bt hau to:'); readln(bt);
writeln(''tinh bt=', tinh_bt(bt));
end.
Mình làm thử rồi những vẩn không được. Pro nào giúp mình check lỗi trong này với.Thanks nhiều lắm.
program kyphapnghichdao;
type kieu_stack = array[1..100] of 0..1;
var BT:string[30];
S:kieu_stack;
top, i, so1, so2, n, x :interger;
Procedur PUSH(var s: kieustack;var top: integer;x:integer);
begin
if top=n then
writeln('s day')
else
begin
top:= top +1;
s[top] :=x;
end;
end;
Function pop(s, var top:integer): integer;
begin
if top>0 then
begin
pop:=s[top];
top:=top-1;
end;
else
writeln('stack day');
end;
Function tinh_bt()bt:string): real;
begin
for i:=1 to legth(bt) do
begin
case bt[i] of
[+]:begin
so1:= pop(s, top);
so2:= pop(s, top);
push(s,top, so1+so2);
end;
[-]:begin
so1:= pop(s, top);
so2:= pop(s, top);
push(s,top, so1-so2);
end;
[*]:begin
so1:= pop(s, top);
so2:= pop(s, top);
push(s,top, so1*so2);
end;
[/]:begin
so1:= pop(s, top);
so2:= pop(s, top);
push(s,top, so1/so2);
end;
else
begin
val(bt[i],n,e);
push(s, top, n);
end;
end;
tinh_bt:=pop(s, top);
end;
begin
write('nhap bt hau to:'); readln(bt);
writeln(''tinh bt=', tinh_bt(bt));
end.
mamap0511- Thành viên mới
- Ngày sinh : 05/11/1988
Tuổi : 35
Ngày đăng ký : 27/03/2011
Similar topics
» Hê thống tính điểm trong diễn đàn
» Phân cấp bậc trong diễn đàn
» đồ hoạ trong pascal
» ai biết gì về đồ họa trong pascal ko giup mình bài này vói nhe
» cho mình hỏi về xử lý segment và offset trong Pascal ?
» Phân cấp bậc trong diễn đàn
» đồ hoạ trong pascal
» ai biết gì về đồ họa trong pascal ko giup mình bài này vói nhe
» cho mình hỏi về xử lý segment và offset trong Pascal ?
Trang 1 trong tổng số 1 trang
Permissions in this forum:
Bạn không có quyền trả lời bài viết
|
|
15/4/2011, 10:34 pm by funny
» Mọi người làm giúp tôi bài này với !
13/4/2011, 11:42 am by phonggia
» Giúp mình giải bài này với
12/4/2011, 1:00 pm by ldt
» Chia se 1 bai paccal ve ve do thi
11/4/2011, 1:55 pm by duy_sau_rom
» đồ hoạ trong pascal
9/4/2011, 9:16 pm by jetlongk4
» Giá trị biểu thức bằng kí pháp nghịch đảo
1/4/2011, 8:49 am by kh1132000
» AI GIẢI GIÚP EM BÀI NÀY VỚi , ĐANG CẦN GẤP GẤP LẮM :(
31/3/2011, 11:47 pm by jancancook
» dòng thời gian
31/3/2011, 11:31 am by gianggiangonline
» anh nào giúp em với
30/3/2011, 11:00 pm by sieuhoatinh
» VTC trả lương 10 triệu cho SV tốt nghiệp ĐH Văn Hiến - khoa CNTT - ĐTVT tại Hà Nội
29/3/2011, 2:48 pm by SV_tuonglai
» Download cẩm nang mùa thi 2011 tại đây
29/3/2011, 2:47 pm by SV_tuonglai
» Check giúp mình lỗi trong code này với !
27/3/2011, 10:07 pm by mamap0511
» Tai nghe sony dr 370 ve hang moi
25/3/2011, 8:42 pm by hs_bin
» giúp em với
25/3/2011, 12:11 pm by nbni
» Headphone sony dr 370 moi ve hang
24/3/2011, 9:13 pm by hs_bin
» GIUP EM MAY BAI PASCAL CO BAN ( EM MOI HOC PASCAL)
24/3/2011, 9:11 pm by tuan045610
» Headphone sony DR 370 moi ve hang
21/3/2011, 8:11 pm by hs_bin
» Sony DR 310 moi ve hang
20/3/2011, 9:34 pm by hs_bin
» Mọi người giúp dùm em!!^^
20/3/2011, 9:53 am by trangbui_thcstanhiep
» bài tập về hàm trog pascal
18/3/2011, 10:34 pm by sieuhoatinh