Pascal
Czy ktoś wie jak zrobić kalkualtor w Pascalu z tymi wszystkim funkacjami dodawania, odejmowania, mnoźenia, dzielenia, funkcjami trygonometrycznymi, ułamkami, pierwiastkami, potęgami i źeby po wybraniu jednego działania program się od razu nie kończył tylko przechodził do wyboru działania jeszcze raz, ale teź źeby po jakichś 3–4 wyborach działań się zakończył??
Odpowiedzi: 12
i tak dzięki :)
a funkcje , ktora moze słuzyc jako menu plecam:
case of
:
:
:
...
:
end;
a tutaj aby łatwiej to zrozumiec podam przykład:
program kalkulator;
uses crt;
var a,b,c: integer;
begin
writeln('co chcesz zrobic');
writeln('1. policzyc pole kwadratu');
writeln('2. policzyc obwód kwadratu');
readln(a);
case a of
1: begin
writeln(' podaj bok kwadratu');
readln(b);
c:= b*b;
writeln('pole kwadratu wynosi',c);
end;
2: begin
writeln(' podaj bok kwadratu');
readln(b);
c:= 4*b;
writeln(' obwod kwadratu wynosi',c);
end;
readkey;
end.
P.S.
program tenpisałem na sucho wiec moga wystopic jakies drobne bledy
case of
:
:
:
...
:
end;
a tutaj aby łatwiej to zrozumiec podam przykład:
program kalkulator;
uses crt;
var a,b,c: integer;
begin
writeln('co chcesz zrobic');
writeln('1. policzyc pole kwadratu');
writeln('2. policzyc obwód kwadratu');
readln(a);
case a of
1: begin
writeln(' podaj bok kwadratu');
readln(b);
c:= b*b;
writeln('pole kwadratu wynosi',c);
end;
2: begin
writeln(' podaj bok kwadratu');
readln(b);
c:= 4*b;
writeln(' obwod kwadratu wynosi',c);
end;
readkey;
end.
P.S.
program tenpisałem na sucho wiec moga wystopic jakies drobne bledy
gusioo:
porgram aaa;
var
uses
...
begin
repeat
writeln('czy chcesz zakaczyc program??? T/N');
:= readkey;
until(
end.
powinno dzialac :)
P.S.
to jesli chodzilo ci o powtarzanie, a reszte wymyśl juz sam :)
W jaki sposób realizujesz procedurę wyboru działania ? Bo z załoźenia ma:tymi wszystkim funkacjami dodawania, odejmowania, mnoźenia, dzielenia, funkcjami trygonometrycznymi, ułamkami, pierwiastkami, potęgami
A źadnej procedury tudzieź funkcji realizującej w/w załoźenia nie widzę
ale pomiedzy begin a end jest napisane i tutaj naleźy wpisac te wszystkie instrukcje dodawania mnoźenia itd itp. a ja podałem "przepis" jak zrobic zeby program nie zamykał sie po wykonaniu jednej operacji
ooo dzięki :D właśnie zakończenia pętli nie wiedziałam jak zrobić
porgram aaa;
var
uses
...
begin
repeat
writeln('czy chcesz zakaczyc program??? T/N');
:= readkey;
until(
end.
powinno dzialac :)
P.S.
to jesli chodzilo ci o powtarzanie, a reszte wymyśl juz sam :)
W jaki sposób realizujesz procedurę wyboru działania ? Bo z załoźenia ma:
tymi wszystkim funkacjami dodawania, odejmowania, mnoźenia, dzielenia, funkcjami trygonometrycznymi, ułamkami, pierwiastkami, potęgami
A źadnej procedury tudzieź funkcji realizującej w/w załoźenia nie widzę
porgram aaa;
var
uses
...
begin
repeat
writeln('czy chcesz zakaczyc program??? T/N');
:= readkey;
until(
end.
powinno dzialac :)
P.S.
to jesli chodzilo ci o powtarzanie, a reszte wymyśl juz sam :)
var
uses
...
begin
repeat
writeln('czy chcesz zakaczyc program??? T/N');
:= readkey;
until(
end.
powinno dzialac :)
P.S.
to jesli chodzilo ci o powtarzanie, a reszte wymyśl juz sam :)
samo 10 zł nie, ale juź 10 zł za LINIJKĘ kodu to juź lekka przesada :] dobrze wiem z ilu linijek moźe sie taki program składać :P
buahahahah... jasne ;) jak tak to dzięki, sama se napiszę. PS: to nie jest praca domowa, tylko praca na lekcji :P
No widzisz jak chcesz to potrafisz.
Nie wiedziałem, źe 10 zł ma taką 'wartość dydaktyczną' :mrgreen:
buahahahah... jasne ;) jak tak to dzięki, sama se napiszę. PS: to nie jest praca domowa, tylko praca na lekcji :P
A moźesz mi go napisać???? Plissss
10 zł za linijkę kodu.
Zadań domowych nie mam zamiaru robić.
Jak sie zdecydujesz to napisz PW :mrgreen:
A moźesz mi go napisać???? Plissss
Ja wiem.
Strona 1 / 1