Калкулатор – подобрена версия

Публикувано на 25 април, понеделник от Данаил

Да се напише програма, която позволява да се въвеждат по две числа и знак за операция между тях (+ – * / ) и пресмята резултата от операцията. Това да се повтаря докато не се въведе невалиден знак за операция или знак ‘=’.

Публикувано в 9а с етикети , . Постоянна връзка.

2 Responses to Калкулатор – подобрена версия

  1. Боряна каза:
    25 април, понеделник в 16:34 
    program Project1;
var
  chislo, chislo2, result: real;
  operacia: char;
begin
  WriteLn('Tova e kalkulator.');
  Write('Vavedete chislo:');
  ReadLn(chislo);
  repeat
  Write('Vavedete operacia:');
  ReadLn(operacia);
  if operacia='=' then
        break
  else  begin
        Write('Vavedete chislo:');
        ReadLn(chislo2);
        case operacia of
         '+': result:=chislo+chislo2;
        '-': result:=chislo-chislo2;
        '*': result:=chislo*chislo2;
        '/': result:=chislo/chislo2;
        end;
        chislo:=result;
        WriteLn('=', chislo:0:2);
  end;
  until operacia='=';
  WriteLn(chislo:0:2);
  ReadLn;
end.
    • Данаил каза:
      14 май, събота в 07:40

      Браво, много добре! Тук специално ‘Vavedete chislo:’ и ‘Vavedete operacia:’ са излишни в цикъла. Там е по-добре да се виждат само изчисленията. По-скоро опиши какво трябва да се прави преди цикъла. Другото е, че ще е добре ако числата се извеждат едно под друго (единици, десетици, стотици и т.н.)

Вашият коментар