[jozekkg]

program calc2;

var

a:integer;{Our values to read integer numbers}

b:integer;

const

V = 12;{Our const number}



begin

clrscr; // czyszczenie ekranu, bez tego wyświetlone będą niepotrzebne śmieci.

write('Podaj liczbę całkowitą a= ');

{Wyświetli prośbę o podanie liczby a.bez tego na monitorze będzie migał sam kursor i nie będzie wiadomo o co chodzi.
Skolei naciśnięcie Enter spowoduje wczytanie jakiejś przypadkowej liczby znajdującej się w pamięci komputera,albo po prostu wywali błąd.}

readln(a);{Reading from keybord}

write('Podaj liczbę całkowitą b= '); // podobnie jak w przypadku liczby a.
readln(b);

writeln(a+b*V);{Multiply our values by const twelve}

writeln(a-b*V);

writeln(a/b*V);
{w tym przypadku wyświetli wymik w postaci wykładniczej czyli np. 6.2500000000E+00. Jest to nieczytelne.
proponuję a byś spróbował tak
writeln(a/b*V:8:3); czyli osiem cyfr, w tym trzy miejsca po przecinku.}



writeln(a*b*V);

writeln(a mod b*V);{Modulus give the rest of division}
{tutaj podobnie jak w przypadkudzielenia}

writeln(a div b*V);{Integer division}

{division,czyli dzielenie bez reszty, może tak być}

{Jeszcze jedna uwaga. Program wyświetli cztery linijki jakichś liczb i za tydzień sam nie będziesz wiedział o co chodzi.
Proponuję wyświetlać wyniki z opisami. Np. w ten sposób: writeln('a div b*V= ',a div b*V);
Uzyskasz tedy wynik np. a div b*V= 26
Możesz taki wynik wyświetlić też tak: writeln('Dla a= ',a,' i b= ',b,' przy stałej V= ',v,' a div b*V= ',a div b*V:8:3};

Proponuję to poćwiczyć na zadaniu.
Spróbuj napisać program obliczający pole powierzchni bocznej oraz objętość graniastosłupa o zadanych wymiarach.
Jak dasz radę,to niech program oblicza też minimalną powierzchnię arkusza potrzebnego do wycięcia siatki takiego graniastosłupa.
Tutaj może być pomocne, jak sobie na kartce wyrysujesz przykładową siatkę.
Oczekuję, aby program wyświetlał wyniki w postaci

Dla wymiarów a=20, b=25, c=30, objętość graniastosłupa wynosi V=15000.
Dla wymiarów a=20, b=25, c=30, pow.boczna graniastosłupa wynosi S=3700.
Dla wymiarów a=20, b=25, c=30, pow.arkusza wynosi A=6300.
Oczywiście wartości liczb powinny odpowiadać tym, które wstawisz.






end.