Oblicz pole i obwód trójkąta równobocznego

Data aktualizacji: 22.04.2024r. Autor: Bartosz Stefanicki.

Dana jest długość boku trójkąta równobocznego. Napisz program w Pascalu, który wyznaczy jego pole powierzchni i obwód.

clrscr - wymaga załadowania biblioteki crt,
sqrt - pierwiastek kwadratowy,
s:4:2 - ograniczenie wyniku do 4 znaków, 2 po przecinku,

begin //rozp. bloku
clrscr; //oczyszczenie ekranu

writeln('Podaj długość boku: '); //wyśw. zapytania
readln(a); //wczytanie wartości zmiennej

h:=(a*sqrt(3))/2; //obliczenie wys.
s:=a*h/2; //obliczenie pola powierzchni
o:=3*a; //obliczenie obwodu

writeln('Pole powierzchni wynosi: ',s:4:2); //wyśw. pola powierzchni
writeln('Obwód wynosi: ',o); //wyśw. obwodu

end.

Kategorie: Pozostałe. Tagi: #pascal, #skrypty. Źródło obrazków: Pixabay, Font awesome.

Zobacz także

Szukasz hostingu?

Jest dużo firm oferujących hosting, ale którą wybrać? Przedstawiamy zestawienie ranking hostingów (Luty 2026).

4 komentarzy

katie

30.12.2011, 01:31

@Bartek: A wiesz, że dawno temu, jeszcze lata dziewięćdziesiąte? Byliśmy jedną z nielicznych szkół z pracownią informatyczną, która miała komputery z Windows 95 :D Ja też pamiętam te wszystkie błędy w kompilacji :) Teraz już się tym nie zajmuję, więc powylatywało z głowy :) Teraz to ewentualnie obserwuję błędy przy kompilacji programów pisanych w C/C++ jak mnie najdzie na instalację czegoś na Linie :D

Bartosz Stefanicki

28.12.2011, 17:59

Autor

@Katie: Pisanie w Pascalu zacząłem w liceum. Nie wiem jaka to podstawówka ale podejżewam że z kierunkiem informatycznym (o ile takie są, bo nie słyszałem). Ja wspominam błędy w kompilacji, chociaż nie było tak źle.. :)

katie

28.12.2011, 17:25

Takie rzeczy podstawówce pisałam... :D Ale miło wspominam tamte czasy. Pascal nauczył mnie czytania ze zrozumieniem wielu różnych rodzajów kodu, po prostu idea jest podobna.