Question

Czy jest możliwość napisania kalkulatora potrafiącego dzielić z resztą lub potęgować( a najlepiej pierwiastkować też) w notatniku?

Jeżeli tak to poproszę o dokładny opis jak to zrobić , napisanie odpowiedniej formuły ( notatnik ) . Może też być do Turbo Pascala 7.0. Przede wszystkim chodzi o notatnik. Niech będzie sprawdzona i wypróbowana na komputerze z Windows XP.Daję dużo punktów i proszę o dokładność w świecie programowania jestem nowy więc proszę o szczegółowość. Za wszystkie odpowiedzi odpowiedzi bardzo dziękuję. Na pewno będzie Naj.

Answer 1

Wklejasz to do notatnika :

@echo off
title Kalkulator By Ja
color 14
echo Witamy Was
pause
:start
cls
set /p calc= Myslacy Kalkulator
set /a calc2=%calc%
echo %calc% = %calc2%
pause>nul
goto start

 

I zapisujesz np. Kalkulator.bat ALE MUSI BYĆ BAT!

 

 

 

 

 

PASCAL:

Jak będą błędy to napisz to poprawie, bo na szybko robiony.

 

Program kalkulator;
 uses crt;
 var
 a,b,c,w,w1,w2,w3,w4,w5:real;znak:char;
 label {menu,poczatek,dodawanie,odejmowanie,dzielenie,mnozenie,pierwiastek,kwadrat,}koniec;
 procedure MENU; forward;
      procedure DODAWANIE;
 begin
 clrscr;
 writeln('obliczenie wyrazenia a+b+c');
 write('a=');
 read(a);
 write('b=');
 read(b);
 write('c=');
 read(c);
 w:=a+b+c;
 writeln('wynik wynosi',' ',w:0:2);
 write('press any key');
 readkey;
 MENU;
end;
     procedure ODEJMOWANIE;
 begin
 clrscr;
 writeln('obliczenie wyrazenia a-b-c');
 write('a=');
 read(a);
 write('b=');
 read(b);
 write('c=');
 read(c);

 w1:=a-b-c;
 writeln('wynik wynosi',' ',w1:0:2);
 write('press any key');
 readkey;
 MENU;
 end;
      procedure MNOZENIE;
 begin
 clrscr;
 writeln('obliczenie wyrazenia a*b*c');
 write('a=');
 read(a);
 write('b=');
 read(b);
 write('c=');
 read(c);
 w2:=a*b*c;
 writeln('wynik wynosi',' ',w2:0:2);
  gotoxy(10,15);
 write('press any key');
 readkey;
 MENU;
 end;
          procedure DZIELENIE;
 begin
 clrscr;
 writeln('obliczenie wyraľenia a/b/c');
 write('a=');
 read(a);
 write('b=');
 read(b);
 write('c=');
 read(c);
 w3:=a/b/c;
 writeln('wynik wynosi',' ',w3:0:2);
  gotoxy(10,15);
 write('press any key');
 readkey;
 MENU;
 end;

         procedure PIERWIASTEK;
  begin
  clrscr;
 writeln('obliczenie pierwiastka kwadratowego z liczby a');
 write('a=');
 read(a);
  w4:=sqrt(a);
  writeln('wynik wynosi',' ',w4:0:2);
 gotoxy(10,15);
 write('press any key');
 readkey;
 MENU;
  end;

       procedure KWADRAT;
 begin
 clrscr;
 writeln('obliczenie kwadratu liczby a');
 write('a=');
 read(a);
 w5:=sqr(a);
 writeln('wynik wynosi',' ',w5:0:2);
 gotoxy(10,15);
 write('press any key');
 readkey;
 MENU;
 end;

      procedure MENU;
  begin
 clrscr;
 writeln('MENU');
 writeln('1->dodawanie');
 writeln('2->odejmowanie');
 writeln('3->mnozenie');
 writeln('4->dzielenie');
 writeln('5->pierwistek');
 writeln('6->kwadrat');
 writeln('wyjscie z programu 7');
 writeln('wybierz cyfre dzialania ktore chcesz wykonac ');
 znak:=readkey;
 if znak='1' then dodawanie;
 if znak='2' then odejmowanie;
 if znak='3' then mnozenie;
 if znak='4' then dzielenie;
 if znak='5' then pierwiastek;
 if znak='6' then kwadrat;
 if znak='7' then halt;
 end;    {end menu}

 begin
 writeln('KALKULATOR');
 menu;
 end.