Wszystko z !!!!!!!!!!!!!!!!!!! trzeba wyjaśnić, a ja w zasadzie słabo się na tym znam. PomocyProgram kalkulator;
uses crt;
var
a,b,c,s,w:real; !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! w jakim celu są zmienne s i n d ?
znak,i,n:byte; !!!!!!!!!!!!!!!!!!!!!!!!!
d:longint; !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
tab:array[1..100]of real; !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! co to jest array ? i do czego?
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! co to jest procedure ????? !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!1
procedure DODAWANIE; !!!!!!!!!!!!!!!!!!!1
begin
w:=0; !!!!!!!!!! dlaczego zerowanie w ?
writeln('obliczenie wyrazenia a+b+c'); !!!!!!!!!!!!!! dlaczego trzy liczby ?
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
w:=a+b+c;
writeln('wynik wynosi: ',w:0:2);
end;
procedure ODEJMOWANIE;!!!!!!!!!!!!!!!!!!!
begin
w:=0;
writeln('obliczenie wyrazenia a-b-c'); !!!!!!!!!!!!!! dlaczego trzy liczby ?
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
w:=a-b-c;
writeln('wynik wynosi: ',w:0:2);
end;
procedure MNOZENIE;!!!!!!!!!!!!!!!!!!!
begin
w:=0;
writeln('obliczenie wyrazenia a*b*c'); !!!!!!!!!!!!!! dlaczego trzy liczby ?
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
w:=a*b*c;
writeln('wynik wynosi: ',w:0:2);
end;
procedure DZIELENIE;!!!!!!!!!!!!!!!!!!!
begin
w:=0;
writeln('obliczenia wyrazenia a/b/c'); !!!!!!!!!!!!!! dlaczego trzy liczby ?
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
w:=a/b/c;
writeln('wynik wynosi: ',w:0:2);
end;
procedure PIERWIASTEK;!!!!!!!!!!!!!!!!!!!
begin
w:=0;
writeln('obliczenia pierwiastka kwadratowego z liczby a');
write('a='); readln(a);
w:=sqrt(a);
writeln('wynik wynosi: ',w:0:2);
end;
procedure SILNIA;!!!!!!!!!!!!!!!!!!!
begin
w:=1;
writeln('obliczenie silni liczby a');
write('a='); readln(d);
for i:=1 to d do w:=w*i;
writeln('wynik wynosi: ',w:0:2);
end;
begin
repeat
writeln('MENU');
writeln('1->dodawanie');
writeln('2->odejmowanie');
writeln('3->mnozenie');
writeln('4->dzielenie');
writeln('5->pierwiastek');
writeln('6->silnia');
writeln('0->wyjscie');
write('wybierz opcje: '); readln(znak);
writeln;
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 silnia;
if znak=0 then exit;
writeln;
until znak=0;
end.!
{Jest to prosty programik napisany w pascalu (oldschoolowa nauka podstaw programownaia ;))
komentarze piszemy w klamerkach tak aby kod dzialal razem z opisem, warto sobie zainstlowac program np notepad++ gdzie ładnie koloruje po wybraniu jezyka Pascal z menu jezyk, kod i staję się bardziej czytelny
}
uses crt;
var
a,b,c,s,w:real; { w jakim celu są zmienne s i n d ? - na początku programu są zadeklarowane (jakgdyby przedstawione komputerowi) zmienne globalne wykorzystywane lub nie w całym programie i tak zmienna 'i' oraz 'd' jest używana w procedurze SILNIA, natomiast pozostałe (s, n) nie są użyte nigdzie w programie - niepotrzebne są właściwie}
znak,i,n:byte;
d:longint;
tab:array[1..100]of real; { co to jest array ? i do czego? - array jest to tzw. tablica zmyśna struktura wykorzystywana w programowniu celem ułatwienia pewnych powtarzalnych operacji. Według tej konkrtenej operacji przedstawiamy (deklarujemy) w programie 99 zmiennych typu real (takie liczby z przecinkiem - rzeczywiste) czyli zamiast pisac 99 razy a: real, a1: real mamy taką tablicę - szczegóły o tablicach znajdziesz na googlach. Niestety w programie tym array nie jest użyte nigdzie :( }
{!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! co to jest procedure ? wydzielony blok kodu, który możemy użyć wielokrotnie poprzez wywołanie}
procedure DODAWANIE; {!!!!!!!!!!!!!!!!!!!1}
begin
w:=0; { !!!!!!!!!! dlaczego zerowanie w ? korzystamy ze zmiennych globalnych, wiec jest szansa że w mogło być zmienione gdzieś wcześniej oraz drugi powód jest taki, że należy inicjalizować zmienne wartościami (po prostu może mieć jakaś losową wartość bez zerowania)}
writeln('obliczenie wyrazenia a+b+c'); { !!!!!!!!!!!!!! dlaczego trzy liczby ? po prostu ktos tak wymyslił, że chce dodawać 3 liczby, można sobie zmienić na 2 na przykład wyrzucajac linie write('c='); readln(c); i zmieniajac w:=a+b+c; na w:=a+b;}
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
w:=a+b+c;
writeln('wynik wynosi: ',w:0:2); {to w:0:2 jest ciekawe bo określa ile miejsc po przecinku się ma wyświetlać}
end;
procedure ODEJMOWANIE;{!!!!!!!!!!!!!!!!!!! procedura realizuje odejmowanie 3 liczb}
begin
w:=0;
writeln('obliczenie wyrazenia a-b-c'); {!!!!!!!!!!!!!! dlaczego trzy liczby ? tak jak w dodawaniu}
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
w:=a-b-c;
writeln('wynik wynosi: ',w:0:2);
end;
procedure MNOZENIE;{!!!!!!!!!!!!!!!!!! procedura realizuje mnozenie 3 liczb}
begin
w:=0;
writeln('obliczenie wyrazenia a*b*c'); { !!!!!!!!!!!!!! dlaczego trzy liczby ? tak jak w dodawaniu}
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
w:=a*b*c;
writeln('wynik wynosi: ',w:0:2);
end;
procedure DZIELENIE;{!!!!!!!!!!!!!!!!!!! procedura realizuje dzielenie 3 liczb}
begin
w:=0;
writeln('obliczenia wyrazenia a/b/c'); { !!!!!!!!!!!!!! dlaczego trzy liczby ? tak jak w dodawaniu}
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
w:=a/b/c;
writeln('wynik wynosi: ',w:0:2);
end;
procedure PIERWIASTEK;{!!!!!!!!!!!!!!!!!!! procedura realizuje pierwiastek z podanej liczby}
begin
w:=0;
writeln('obliczenia pierwiastka kwadratowego z liczby a');
write('a='); readln(a);
w:=sqrt(a);
writeln('wynik wynosi: ',w:0:2);
end;
procedure SILNIA;{!!!!!!!!!!!!!!!!!!! obliczamy silnie - dzielimy w petli tyle razy ile wynosi podana silnia}
begin
w:=1;
writeln('obliczenie silni liczby a');
write('a='); readln(d);
for i:=1 to d do w:=w*i;
writeln('wynik wynosi: ',w:0:2);
end;
begin
repeat
writeln('MENU');
writeln('1->dodawanie');
writeln('2->odejmowanie');
writeln('3->mnozenie');
writeln('4->dzielenie');
writeln('5->pierwiastek');
writeln('6->silnia');
writeln('0->wyjscie');
write('wybierz opcje: '); readln(znak);
writeln;
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 silnia;
if znak=0 then exit;
writeln;
until znak=0;
end.