Какую программу написать? (Паскаль)

[Fly090]

Учусь програмировать на Паскаль

[Utkin]

Сделай калькулятор. Вводишь первое число, потом второе, потом операцию. Получаешь результат. Помни что на ноль делить нельзя и есть числа которые могут не поместиться в стандартные типы.

[Fly090]

program kalkulator;
var
a,b,c:real;
x:char;
begin
writeln('введите первое число');
readln(a);
writeln('введите второе число');
readln(b);
writeln('введите знак');
readln(x);
case x of
'/': c:=a/b;
'*': c:=a*b;
'+': c:=a+b;
'-': c:=a-b;
end;
writeln('Результат:',c);
end.

[Stilet]

Браво. А теперь так, чтоб можно было выражение вводить в одну строку.
Два числа - один знак действия.

[newerow1989]

Без функций Pos, Copy тут не обойтись, если выражение в одну строку вводить!

[Utkin]

Введи a=1 b=0 x='/' А я ведь предупреждал. Вот всегда так, не слушают аксакала... Эх молодежь, мастера Угвея на вас не хватает.

[newerow1989]

Вот только что составил программу с вашими "премудростями":

program kalkulator;
var
 a,b,c:real;
 x:char;
 s:string;
 i:integer;
 begin
 writeln('Введите выражение');
 readln(s);
 i:=0;
 If Pos('+',s)<>0 then
 begin
    x:='+';
    i:=Pos('+',s);
 end else
 If Pos('-',s)<>0 then
 begin
    x:='-';
    i:=Pos('-',s);
 end else
 If Pos('*',s)<>0 then
 begin
    x:='*';
    i:=Pos('*',s);
 end else
 If Pos('/',s)<>0 then
 begin
    x:='/';
    i:=Pos('/',s);
 end;
 If i=0 then
 begin
    writeln('Где знак операции? :)');
    readln;
    Exit;
 end;
 a:=StrToFloat(Copy(s,1,i-1));
 b:=StrToFloat(Copy(s,i+1,Length(s)));
 If (x='/') and (b=0) then
 begin
    writeln('Деление на НОЛЬ запрещено!');
    readln;
    Exit;
 end;
 case x of
 '/': c:=a/b;
 '*': c:=a*b;
 '+': c:=a+b;
 '-': c:=a-b;
 end;
 writeln('Результат:',c);
 readln;

end.

Можно так писать: 7+6 и Enter

[Fly090]

Сообщение от Utkin

Введи a=1 b=0 x='/' А я ведь предупреждал. Вот всегда так, не слушают аксакала... Эх молодежь, мастера Угвея на вас не хватает.

program kalkulator;
label 1;
var
a,b,c:real;
x:char;
begin
 writeln('введите первое число');
 readln(a);
 writeln('введите второе число');
 readln(b);
1:writeln('введите знак');
 readln(x);
 case x of
  '/':
  begin
  if b=0 then goto 1; 
  c:=a/b;
  end;
  '*': c:=a*b;
  '+': c:=a+b;
  '-': c:=a-b;
 end;
 writeln('Результат:',c);
end.

отак от)

[Stilet]

Без функций Pos, Copy тут не обойтись, если выражение в одну строку вводить!

Ошибаешься )
Без них обойтись можно.

1:writeln('введите знак');
case x of
'/':
begin
if b=0 then goto 1;

Это работает? О_о
Всмысле оно нормально работает?

[Fly090]

Сообщение от newerow1989

Вот только что составил программу с вашими "премудростями":

program kalkulator;
var
 a,b,c:real;
 x:char;
 s:string;
 i:integer;
 begin
 writeln('Введите выражение');
 readln(s);
 i:=0;
 If Pos('+',s)<>0 then
 begin
    x:='+';
    i:=Pos('+',s);
 end else
 If Pos('-',s)<>0 then
 begin
    x:='-';
    i:=Pos('-',s);
 end else
 If Pos('*',s)<>0 then
 begin
    x:='*';
    i:=Pos('*',s);
 end else
 If Pos('/',s)<>0 then
 begin
    x:='/';
    i:=Pos('/',s);
 end;
 If i=0 then
 begin
    writeln('Где знак операции? :)');
    readln;
    Exit;
 end;
 a:=StrToInt(Copy(s,1,i-1));
 b:=StrToInt(Copy(s,i+1,Length(s)));
 If (x='/') and (b=0) then
 begin
    writeln('Деление на НОЛЬ запрещено!');
    readln;
    Exit;
 end;
 case x of
 '/': c:=a/b;
 '*': c:=a*b;
 '+': c:=a+b;
 '-': c:=a-b;
 end;
 writeln('Результат:',c);
 readln;

end.

Можно так писать: 7+6 и Enter

ну здесь мне надо разобратся)