4+4=8, Программа Опции

[Rossi]

При в воде на экрна 4+4 после нажатия на ентер все должно посщитатся и вывести в таком формате 4+4=8.
Правильно ли я реализовал эту программу ?

uses crt;
var a,b,s,c:integer;
	begin
	write('>'); readln(a,c,b);
	write(a);
	s:=a+b;
		case c of
		'+':write('+');
		end;
	write(b);	
	writeln('=',s);
	end.

Сообщение отредактировано: Rossi - 20.06.2007 16:15

[Urnix]

А я бы сделал так

uses crt;
const
  GoodChars =  ['0'..'9','+','-','*','/','.'];
  ActionChars =  ['+','-','*','/'];
var
  s:string;
  error:boolean;
  i,ActionNum,val_err:integer;
  ActionChar:char;
  a,b:real;
begin
  clrscr;
  writeln('vvedite arifmeticheskoe virazhenie:');
  readln(s);
  clrscr;
  error:=false;
  for i:=1 to length(s) do
    if not (s[i] in GoodChars)
      then error:=true;
  ActionNum:=0;
  for i:=1 to length(s) do
    if s[i] in ActionChars
      then
        begin
          ActionChar:=s[i];
          inc(ActionNum);
        end;
  if (ActionNum<>1) or (pos(ActionChar,s)=1) or (pos(ActionChar,s)=length(s))
    then error:=true;
  if not error
    then
      begin
        val(copy(s,1,pos(ActionChar,s)-1),a,val_err);
        val(copy(s,pos(ActionChar,s)+1,length(s)-pos(ActionChar,s)),b,val_err);
        case ActionChar of
          '+': writeln(s,'=',a+b:1:2);
          '-': writeln(s,'=',a-b:1:2);
          '*': writeln(s,'=',a*b:1:2);
          '/': if b=0
                 then writeln('na nol delit'' nel''za')
                 else writeln(s,'=',a/b:5:2);
        end;
      end
    else  writeln('Vvedenniy tekst ne yavlaetsa arifmeticheskim virazheniem');
  readln;
end.

//это для общего случая

Сообщение отредактировано: Urnix - 20.06.2007 17:30