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

[compiler]

я тестировал твою программу с пробелами(как было сказано в 9 посте)...

не работает... да и не только

вторая причина не есть причина по которой она не работает... возможность редактирования может и хорошо, но необезательна(см. заданее)...

думаю тема закрыта... четыре сложили с четырьмя

[Malice]

Вот так я думаю вернее будет

var s:string;
begin
write ('>');
readln (s);
while pos (' ',s)>0 do delete (s,pos(' ',s),1);
if s='4+4' then writeln ('4 + 4 = ', 4+4) else
writeln ('Введенные данные не соответствуют заданию..');
end.

[Fanat]

Извините,не удержался...
Malice,тогда проверить ещё не мешало бы, что 4+4=8... ...

[Rossi]

Народ воть я и доработал калькулятор терь он умнажает че хош кароче делает )))
Мне не много помог преподовтель мой ^_^.
Как вам реализация ???

program cal;
uses crt;
var
   code:integer;
   sa,sb,s:string;
   f,a,b:real;
   c:byte;
begin
  textcolor(2);
  clrscr;

  write('>');
  readln(s);
  if pos('+',s)<>0 then c:=pos('+',s);
  if pos('-',s)<>0 then c:=pos('-',s);
  if pos('*',s)<>0 then c:=pos('*',s);
  if pos('/',s)<>0 then c:=pos('/',s);

  sa:=copy(s,1,c-1);
  sb:=copy(s,c+1,length(s)-c);

  val(sa,a,code);
  val(sb,b,code);

  write(sa);

  case s[c] of
    '+':f:=a+b;
    '-':f:=a-b;
    '*':f:=a*b;
    '/':f:=a/b;
  end;
  writeln(s[c],sb,'=',f:1:2);
  readkey;
end.

Сообщение отредактировано: Rossi - 22.06.2007 17:57