[satox]

Znam  kilka języków programowania lecz męczę  się  niemiłosiernie  z pascalem.

Chciałbym  aby ktoś mi pomógł  poprawiając błędy w moich  programach które  napiszę.

Szczególnie  interesuje  mnie  pomoc JózkaKg który  programuje w tym  języku.

Chodzi tu  o dialekt   free pascal  i object  pascal.

Programy ukażą się na moim githubie w tym okienkowe.

Będą tutaj: https://github.com/JERUKA9/Fix-And-Impro...ect-Pascal

Licencja publiczna do dowolnego użytku.


Dziękuję za uwagę.

[jozekkg]

Cześć

O ile moja wiedza i czas pozwolą. spróbuję Ci pomóc

[satox]

Cześć

O ile moja wiedza i czas pozwolą. spróbuję Ci pomóc

Dzięki  niebawem się odezwę  i je wrzucę.

[satox]

https://github.com/JERUKA9/Fix-And-Impro...no_gui.pas

[jozekkg]

Jeruka, zajrzałem na ten program.
Jak go uruchomisz, to nie robi kompletnie nic. Żadnego komunikatu co się dzieje, co masz zrobić.
Ładnie by było uzupełnić go o jakieś komunikaty, np. Write('Podaj liczbę a= ');Readln(a); itd.
Wyniki możesz opisać w ten sposób
writeln('a*b*c*d*f*g*h= ',a*b*c*d*f*g*h);

Nie chcę jednak zaśmiecać forum takimi rzeczami. Może lepiej było by to pisać na priva, albo jeszcze gdzie indziej.

[bonaparte]

Czy wiecie że nazwa Pascal wzięła się od nazwiska znanego matematyka Blaisa Pascala?

[satox]

Jeruka, zajrzałem na ten program.
Jak go uruchomisz, to nie robi kompletnie nic. Żadnego komunikatu co się dzieje, co masz zrobić.
Ładnie by było uzupełnić go o jakieś komunikaty, np. Write('Podaj liczbę a= ');Readln(a); itd.
Wyniki możesz opisać w ten sposób
writeln('a*b*c*d*f*g*h= ',a*b*c*d*f*g*h);

Nie chcę jednak zaśmiecać forum takimi rzeczami. Może lepiej było by to pisać na priva, albo jeszcze gdzie indziej.

Poprawię  jeszcze dziś.

Dziękuję za uwagę.

[satox]

Czy wiecie że nazwa Pascal wzięła się od nazwiska znanego matematyka Blaisa Pascala?

Wiem  bo miałem  wyjaśnione  to w kursie  programowania.

[satox]

https://github.com/JERUKA9/Fix-And-Impro.../calc2.pas

[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.