Turbo Pascal
Potrzebuje modół obliczający 4 wzory matemtyczne (Koło, rąb, trójkąt, deltoid) na pola figur płaskich.
Recommend Questions
mkaminski185
October 2020 | 0 Replies
1. Jakie zagadnienia (trzy elementy) obejmuje technologia informacyjna?2. Jakie elementy znajdują się na płycie głównej komputera – opisz krótko ich funkcje:• procesor:• pamięć RAM:• chipset:• karty rozszerzeń lub kontrolery zintegrowane z płytą główną:• pamięć ROM:3. Jakie urządzenia, obok płyty głównej, mogą znajdować się wewnątrz obudowy komputera?4. Wymień urządzenia zewnętrzne (peryferyjne).5. Co to jest system operacyjny i jak nazywają się najpopularniejsze systemy operacyjne?6. Opisz system plików w systemie Windows.7. Jakie to pliki (formaty plików):• *.exe:• *.pdf:• *.txt:• *.doc:• *.xls:• *.jpg:• *.png:• *.doc:• *.mp3:• *.mp4:
laurasleczka2009
October 2020 | 0 Replies
Ważne. Posłuchajcie mam problem zawsze jak włączam firefox to włącza mi się ta sama strona. Czyli ( Dajmy na to że pisze sobie coś na wordzie i chce poszukąć coś w firefoxie no go odpalam i patrze pierwsza strona jaka mi się otworzy to yt) I nie wiem czego tak się dzieje proszę pomocy.
laurasleczka2009
October 2020 | 0 Replies
Ważne. Posłuchajcie mam problem zawsze jak włączam firefox to włącza mi się ta sama strona. Czyli ( Dajmy na to że pisze sobie coś na wordzie i chce poszukąć coś w firefoxie no go odpalam i patrze pierwsza strona jaka mi się otworzy to yt) I nie wiem czego tak się dzieje proszę pomocy.
KOŁO
uses wincrt; var P : Real; r : Real; begin Writeln('Program do obliczania pola kola'); write('Podaj poromien kola : '); readln(r); P:=pi*sqr(r); writeln('Pole kola o promieniu ', r:5:2,' wynosi : ',P:5:2) end.
TRÓJKĄT
uses crt; var a,b,c:integer; begin Writeln('Program oblicza obwod trojkata :'); Write('Podaj wartosc boku a : '); readln(a); Write('Podaj wartosc boku b : '); readln(b); Write('Podaj wartosc boku c : '); readln(c); Writeln('Obwod trojkata : ',a+b+c); readln; end.
RĄB
uses crt; var a,k:integer; begin Writeln('Program oblicza pole dowolnego rombu.'); Write('Podaj wartosc boku a : '); readln(a); Write('Podaj wartosc kata ostrego & : '); readln(k); Writeln('Pole rombu : ',sqr(a)*sin(k):0:4); readln; end.
DELTOID
uses crt; var d1,d2:integer; begin Write('Podaj wartosc przekotnej d1 deltoidu : '); readln(d1); Write('Podaj wartosc przekotnej d2 deltoidu : '); readln(d2); Writeln('Pole deltoidu wynosi : ',0.5*d1*d2:0:2); readln; end.