Калькулятор на Паскале

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by Omen666, 17 Jan 2008.

  1. Omen666

    Omen666 Elder - Старейшина

    Joined:
    3 Aug 2006
    Messages:
    339
    Likes Received:
    502
    Reputations:
    36
    Народ, и так трудное время... надо 4 по информатике... вы можите мне написать код для калькулятора(должен только скадовать) паскаля... самое элементарное(9класс) и с описанием в калькуляторе... типа сюда число и сюда... ответ такой-то
     
    #1 Omen666, 17 Jan 2008
    Last edited: 17 Jan 2008
    1 person likes this.
  2. Хозяин

    Хозяин Elder - Старейшина

    Joined:
    15 Mar 2006
    Messages:
    435
    Likes Received:
    404
    Reputations:
    110
    здесь посмотри
    http://pascal.sources.ru/math/index.htm
     
  3. C!klodoL

    C!klodoL Elder - Старейшина

    Joined:
    5 Jun 2007
    Messages:
    302
    Likes Received:
    208
    Reputations:
    4
    Program Calc;
    var
    a, c: real;
    Begin;
    WriteLn('Enter first num');
    ReadLn(a);
    WriteLn('Enter second num');
    ReadLn(c);
    WriteLn(a + c);
    End.
     
    5 people like this.
  4. Хозяин

    Хозяин Elder - Старейшина

    Joined:
    15 Mar 2006
    Messages:
    435
    Likes Received:
    404
    Reputations:
    110
    Слабо верится, что на столько простой нужен

    вот

    http://pascal.sources.ru/parsing/calc_s.htm
     
  5. Omen666

    Omen666 Elder - Старейшина

    Joined:
    3 Aug 2006
    Messages:
    339
    Likes Received:
    502
    Reputations:
    36
    у меня 9 класс... мы еще только начали
     
  6. Chrek625

    Chrek625 Elder - Старейшина

    Joined:
    6 Jun 2006
    Messages:
    143
    Likes Received:
    13
    Reputations:
    -7
    ДА мне кажется этот еод подойдёт по параметрам только не учтено ещё одно пожелание Стобы при ответе писало ответ и цифру но это легко исправить отредактировав строчку WriteLn(a + c);
    и изменив её на WriteLn('Ответ',a + c); если я конечно не ошибаюсь
     
  7. Jes

    Jes Elder - Старейшина

    Joined:
    16 Apr 2007
    Messages:
    370
    Likes Received:
    391
    Reputations:
    34
    а что надо на 5 ? ;)
     
  8. lsass.exe

    lsass.exe Elder - Старейшина

    Joined:
    5 Aug 2007
    Messages:
    156
    Likes Received:
    161
    Reputations:
    24
    Program Calc;
    uses crt;
    var
    a, c: real;
    Begin
    clrscr;
    Write('Enter first num: ');
    ReadLn(a);
    Write('Enter second num: ');
    ReadLn(c);
    WriteLn(a + c);
    readkey;
    End.

    Очистка экрана перед работой проги + ожидание нажатия клавишы после ) Пусть твоя училка кончит =)))
     
    3 people like this.
  9. W!z@rD

    W!z@rD Борец за русский язык

    Joined:
    12 Feb 2006
    Messages:
    973
    Likes Received:
    289
    Reputations:
    43
    program calc;
    var
    operation:byte;
    a,b:integer;
    begin
    writeln('a');
    readln(a);
    writeln('b');
    readln(b);
    writeln('1 - sum');
    writeln('2 - sub');
    writeln('3 - div');
    writeln('4 - mul');
    readln(operation);
    case operation of:
    1: writeln(a+b);
    2: writeln(a-b);
    3: writeln(trunc(a/b));
    4: writeln(a*b);
    end;
    end.

    //много недочетов, но для начала сойдет...
     
  10. +voron+

    +voron+ Elder - Старейшина

    Joined:
    6 Nov 2007
    Messages:
    30
    Likes Received:
    2
    Reputations:
    -2
    uses crt;
    var
    a,b,c: integer;
    Begin
    clrscr;
    Write('Enter first num: ');
    ReadLn(a);
    Write('Enter second num: ');
    ReadLn(b);
    c:=a+b;
    WriteLn(a,'+',b,'=',c);
    readkey;
    End.

    Так красивше :)
     
Loading...