mowisz i masz (w pascalu i metoda najmnijeszych kwadratow):
Cześć, dostałam zadanie do wykonania w Pascal jak w załączaniu, ktoś może pomóc ?
Przez nieuwagę napisałem dla sinusa, ale zamiast sin.... napisz cos..... uses crt, Graph; var grDriver,grMode,i,y1,y2,ErrCode: Integer; str:string; begin writeln('podaj pelna sciezke dostepu do katalogu BGI np c:\tp\bgi'); readln(str); grDriver := Detect; InitGraph(grDriver, grMode,str); ErrCode := GraphResult; if ErrCode = grOk then begin setcolor(14);...
Aha :) No to się sprawa trochę komplikuje :) A jaką podstawę będą miały te graniastosłupy ? Kwadrat? Trójkąt? Koło?
W Pascal-u będzie to bardzo podobne : program pierwiastki; var n,k,x : word; suma : double; begin Write('Podaj wartosc n : '); readln(n); Write('Podaj wartosc k : '); readln(k); If n>k then begin Writeln(' Blad : n>k !'); exit; end; suma:=0.0; for x:=n to k do suma:=suma+sqrt(x);...
dopisać przed ostatnim end-em instrukcję readkey; albo readln;
Witam, mam do napisanie program, który pyta czy obliczyć pole kwadratu czy sześcianu, a potem wykonuje działanie. Kiedyś uczyłem się Pascala, ale nie wiem jak dokończyć ten program i gdzie są błędy. Tyle udało mi się zrobić. Pomoże ktoś? [syntax=applescript]program kwadrat_szescian start uses crt, cls; var a,b: real; a,b: integer; tak, nie: word; begin...
Tak. Te programy powyżej są złe. Potrzebuje program przykładowo podaje liczbę 2 i otrzymam wynik 4. Jest ktoś w stanie przysłać mi taki program? Zastanów się co piszesz: podniosłeś do kwadratu! Podam kod, mimo że nie powinienem bo nic sam nie zrobiłeś. Ale komentarza nie dodam, ani nic nie zrobię z wcięciami i schematem blokowym kodu. Popracuj sam....
[...] begin repeat writeln('Pole jakiej figury chcesz policzyc?'); writeln('1-kwadratu'); writeln('2-prostokata'); writeln('3-kola'); writeln('4-trojkata'); writeln('0-koniec zabawy'); writeln('Wpisz numer figury i kliknij Enter:'); readln (decyzja); if decyzja=1 then kwad;...
function rownanie(A:real;B:real;C:... var DELTA:real; begin if A=0 then begin Writeln('row. jest liniowe'); Halt; end; DELTA:=(B*B)-4*A*C; if DELTA=0 then Writeln('X1=X2= ',-B/(2*A)); if DELTA<0 then Writeln('row. nie ma pierwiastkow rzeczywistych'); if DELTA>0...
potrzebuje waszej pomocy w zaliczeniu w szkole mam do wykonania program "Kalkulator z menu który dodaje, odejmuje,mnoży , dzieli, liczy silnie, dzieli 2 liczby, sume i srednia n liczb, liczy pole powierzchni: trójkąta,koła, kwadratu" był bym wdzieczny gdyby mi ktos pomógł:cry:
Tak mało Pascala w tym Pascalu, że pan Wirth się przewraca. :) Napisz przynajmniej jaka jest treść Twojego zadania, bo teraz wszyscy się domyślają, niestety. Ja nie wiem co masz właściwie zrobić z tą funkcją, znaleźć miejsca zerowe (delta) czy stablicować i pokazać na wykresie? A może i to i to? A co do samego zadania, to rób po kolei, Masz już wczytywanie...
AD.1.Funkcja VAL, znana z Turbo Pascala działa na tej zasadzie, że jeżeli tekst podany w pierwszym parametrze dla funkcji nie jest liczbą całkowitą zwróci w ostatnim parametrze Code wartość większą od zera (będącą pierwszą napotkaną pozycją wadliwego znaku - nie będącego cyfrą). Oto przykład właśnie tej funkcji: var Str : string; I, Code : integer;...
Twoje dzieło po poprawkach: program bartek2; uses crt; VAR a,b,c:integer; {o ,d:string;}o, d: char; {!zmiana typu zmiennych} {poczatek funkcji} function dodawanie(a,b:integer):i... begin dodawanie:=a+b; end; {koniec funkcji} {poczatek funkcji} function odejmowanie(a,b:integer):...
Mam napisac programw pascalu który bedzie liczył pole kwadratu, prostokąta, rombu i trojkąta równobocznego, na poczatku programu ma sie wybierać jaka figura, potem podac boki czy co tam potrzebne dla danej figury, a na koncu ma sie pytac czy ponowic obliczenia, dziekuje z góry za pomoc :)
Znaczy to musi byc tak: Jak mam tablice, to liczby nie moga sie powtarzac w danej kolumnie i danym wiersz. A gdzie indziej w tablicy moze wystapic taka sama. Zaluzmy dla t komurce musi byc rozna liczba, dla t[2,i] i:=... musza byc rozne liczby, tak samo dla t[j,1] musza byc rozne liczby. Ale moze sie powtorzyc w t[1,1] , t[2,2] , t[3,8] itd. W oglole...
Spróbuj takiego kodu : [syntax=delphi]program Project2; {$APPTYPE CONSOLE} uses SysUtils, windows; var a,b,c,o,p,d,z : extended; begin writeln('Kalkulator obliczania miejsc zerowych funkcji kwadratowej.'); writeln('*******************************... writeln('Wzor funkcji: ax^2 + bx + c'); writeln('***************************');....
Witam Mam problem nine moge zrobić kalkulatora zeby liczył silnie proszę o pomoc !!! To mój program !! Program kalkulator; uses crt; var liczba1,liczba2,wynik,i:real;znak:char; label {menu,poczatek,dodawanie,odejmowanie,dzi... procedure MENU; forward; { ****************************************...
zamieszcze kawałek kodu który działa w TP moze zauważysz coś co ci pomoże. program detekcja; uses graph; var i,x,y : integer; var a:char; Karta, Tryb : Integer; begin DetectGraph(Karta,Tryb); InitGraph(Karta,Tryb,'c:\bgi'... { ustawienie koloru } setcolor(white); {okrag} Circle(300, 300,...
sqrt - pierwiastek kwadratowy (square rot) sqr - kwadrat (square) arctg x + arcctg x = π/2 (dla x=0; dla przeciwnych jest to - π/2)
Ad. 1. Po prostu Write(g) (możesz też w jednej procedurze podawać kilka parametrów oddzielonych przecinkami i mogą to być zarówno teksty jak i liczby w postaci stałych lub zmiennych. Ad 2. Każde odwołanie do tablicy zapisuje się poprzez nawias kwadratowy ( tablica ), gdzie tablica to zmienna typu array, a numer to wartość z zakresu indeksu (nie koniecznie...
ale mi chodzi jak to narysować w tym trybie graficznym, a nazywam to matematycznie bo jest mi łatwiej niż miałabym pisać kwadrat gdzie boki są styczne do okręgu.
Bolek: 1.Żeby nie było przesunięcia tak jak mówisz, to musisz użyć liczb ujemnych. Bo jak masz liczby -20 i 20, to skalowanie x3 zamieni to na -60 i 60 - wszystko ok Jak masz liczby 10 i 20, to skalowanie x3 zamieni na 30 i 60.. środek kwadratu jest już zupełnie gdzie indziej 2.Żeby otrzymać dobrą płynność powinieneś użyc wyników z mnożenia/dzielenia...
No to mam taki kod: program domek; uses crt, graph; var x,a,h,c,d,f,g,i,e,p,j,k:integer; vga,vgahi:integer; const b:integer=320; z:integer=0; begin write('Podaj dlogosc boku a (1 = 10 pxl.): '); readln(x); vga:=vga; vgahi:=vgahi; initgraph(vga,vgahi,'BGI'); a:=x*10; c:=(645-(6*a))/2;...
mam problem jak napisac kalkurator budowlany ktury obliczyile dachówki bedziemy potrzebowali na pokrycie 100 metrów kwadratowych dachu Dodano po 1 mam problem jak napisac kalkurator budowlany który obliczy ile dachówki bedziemy potrzebowali na pokrycie 100 metrów kwadratowych dachu
Użyłem tylu zmiennych ponieważ mam za zadania zrobić program razem z jego menu wyboru który: 1. rysuje linię pionową z gwiazdek 2. ----II----- poziomą z gwiazdek 3. kwadrat pusty z gwiazdek 4 kwadrat wypełniony z gwiazdek stąd tyle zmiennych tak naprawdę pracuje we FREE PASCALU
Witam Sprawa wygląda następująco. Napisałem program w którym kuleczka spada z góry na dół i wraca powoli do poprzedniego stanu. Chciał bym wykonać ruch jak na zdjęciu. Otóż chciał bym, żeby kuleczka wykonywała ruch taki jak zakreśliłem kolorem różowym i żeby odbijała się od ekranu (ten kwadrat symbolizuje ekran komputera). Ruch która ma wykonywać nasza...
Mam nadzieje że, mi ktoś pomoże. A oto co ma robić program który mam napisać: Dane są dwie liczby naturalne m i n przyczym m <= n. Spośród liczb naturalnych nalezących do przedziału <m, n> znaleść i wydrukować te, których kwadrat jest podzielny przez zadaną libczE naturalną - p. Bardzo was prosze, POMOCY!!!
Program Miejsca_zerowe_funkcji_Metoda_naturalna; uses crt, graph; var karta, tryb, poz:integer; x, xpocz, xkon, y, Dx, sk:real; xS, yS:string; function f (x: real): real; begin f :=x/2-sin(x); end; begin karta:=detect; initGraph(karta,tryb,''); xpocz:=-10; xkon:=8; Dx:=0.0001; sk:=(xkon-xpocz)/640;...
W/g Wiki mamy: 1+2+3+...+x = x(x+1)/2 szukamy x(x+1)/2 >= n no to mamy 1/2x^2 + 1/2x - n >= 0 czyli znane równanie kwadratowe, interesujący jest tylko dodatni pierwiastek delta to (1/2)^4 + 4*1/2n = 1/4 + 2n zero mamy dla (-b+sqrt(delta)) / (2a) = -0.5 + sqrt(0.25+2n) interesują nas tylko rozwiązania całkowitoliczbowe, tu trunc(zero+1)
Witam! Nie wiem, jak utworzyć dwuwymiarową tablicę dynamiczną. Otóż mój kawałek kodu wygląda tak Proszę pamiętać o używaniu znaczników syntax . Opcja Listing kodu . - arnoldziq
Oloam napisał: Moze troche off topic ale czy Turbo pascal byl jezykiem obiektowym? programowanie obiektowe chyba zaczelo sie od delphi 1 (wprowadzona w 1995r) a pakiet skladal sie z object pascal 1.0 i borland pascal 7.0 . Pamietam w szkole mialem turbo pascala 7.0 i tam nie byl to jezyk obiektowy(chociazby dlatego ,ze nie bylo obiektu do opisywania...
Witam mam problem mam do wykonania program liczący obw, objętosci, pola itp figur 3D i plaskich. Wszystko dziala tylko mam problem co zrobić aby np po wykonaniu 2 punktu program powrucił do menu wyboru opcji obliczweń? (program poprostu kończy się) program obliczenia; uses crt; var wybor : byte; a, b, c, d, h, hb, p, r, l : integer; procedure prostopadloscian;...
Widzę że to chyba kontynuacja innego tematu. Najpierw odpowiem na konkretne punkty, tzn. jak bym to kodował, a potem dorzucę parę uwag. 1. Musisz mieć podaną listę wierzchołków, powinna być skończona i albo możliwa do przeliczenia (jeżeli np. używa się zawsze tablicy 2x1000 i ustala się że po ostatnim "legalnym" wierzchołku występuje dana o specjalnej...
napisalem program ktory rozwiazuje problem dla tablic do 8 x 8 a jak zrobic dla tablic wiekszych w gre wchodza wielokrotnosci 5 tzn chcialem rozbic np tablice 15 x 15 na 9 tablic po 5 x5 bo 5x5 liczy szybko tyle ze w tablicy 5x5 miejsca startowe skoczka nie moga byc w na bialych polach bo wtedy algorytm sie nie wykona http://obrazki.elektroda.pl/8157295000_1...
uses crt; VAR a,b,c:integer; {o ,d:string;}o, d: char; {!zmiana typu zmiennych} {poczatek funkcji} function dodawanie(a,b:integer):i... begin dodawanie:=a+b; end; {koniec funkcji} {poczatek funkcji} function odejmowanie(a,b:integer):... begin...
Musculus, mam pytanie: jak zmierzyć charakterystykę mojego przepływomierza 13621734653? Nie mam problemów z wystrzałami, bo zamontowana jest sekwencja i podobnie jak AlexMastah chcę pozbyć się oporów przepływu. Dodatkowo jak kolega pisze, jest możliwość zmiany charakterystyki w celu zwiększenia mocy silnika. Nasuwa mi się pytanie: czy można zastosować...
OK... Poradziłem sobie z trójkątem :) Narysowałem kwadrat: setcolor(brown); setlinestyle(solidln,0,thickwidth... {sciana} line(275,350,275,550);{lewy bok} line(575,350,575,550);{praw... bok} line(275,550,575,550);{pods... sciany} line(250,350,600,350);{pods...
Jak w Pascalu to kalkulator. Na forum jest nawet gotowy kod. Ktoś może pomyśleć, że Pascal służy tylko do pisania kalkulatorów. A program niech napiszę samodzielnie to się czegoś jeszcze nauczy i przyda się jeszcze. Program nie musi robić czegoś konkretnego, chodzi raczej o wykazanie się umiejętnością programowania np. aby miał menu, pasek narzędziowy,...
Witam Posiadam dwa wymienione w temacie kompilatory których używam na przemian. Uczę się pisać proste programy z książek o programowaniu w Turbo Pascalu.( które są dosyć stare ) Jak do tej pory szło mi wyjątkowo dobrze ale natrafiłem na pewien problem. Niektóre przepisane z książki programy nie chcą się kompilować na free Pascalu. Natomiast na Turbo...
A jeszcze jedno musze jeszcze napisac algorytm na rownanie kwadratowe ale nie wiem cos mi nie wychodzi motam sie z tymi wszyskimi if delta <0 itp :/
1.Procesor •1 rdzeń = 3 wątki •Architektura ARM 64 bit Express •64 rdzenie procesora •Pamięć cache L1 1GB •Pamięć cache L2 1GB •Pamięć cache L3 1GB •Pamięć cache L4 1GB •Pamięć cache 3D 1GB 1.Karta Graficzna •64 rdzenie graficzne •5000 rdzeni PASCAL •5000 jednostek RT •5000 rdzeni...
Najprościej będzie jak wstawisz sobie 3 shape-y okrągłe i jeden kwadratowy jako sygnalizator dasz domyślnie kółka białe i będziesz zmieniał kolor shape-ów potem użyjesz timera i będą się same zmieniały światła http://forum.4programmers.net/Delphi_Pas... http://komputery.katalogi.pl/%5BDelphi%5... to powinno starczyć...
:arrow: hunterhouse Dobrze, ale nie wszystko, nie zgadza się z algorytmem :( W sumie to się zgadza, ale tylko dla 3 próbek, ale te 3 próbki to za mało. aby zapisać sygnał 31 Hz (najniższa częstotliwość filtrowana) przy próbkowaniu 44.1kHz potrzebujesz aż: 44100/31=1423 próbki. Do atmega można chyba podłączyć pamięć zewnętrzną (ale nie wiem, bo nigdy...
Zrobiłem coś takiego: [syntax=pascal] procedure sprawdzanie; begin p := [p1..p2]; {linia 67} o := [o1..o2]; {linia 68} for i:=1 to 50 do begin if p[i] in o then {linia 72} begin crash; break; end; end; end; [/syntax] Niestety wywala błędy kompilacji: putpixel2.pas(67,6) Error: Incompatible types: got "Set Of Byte" expected "SmallInt" putpixel2.pas(68,6)...
Łał ale baljzel w tym twoim programie. Rakordy definiuje się tak: Type osoba = record imie, nazwisko: string[20]; wiek: integer; end; var dane_osobow : array[0..9] of osoba; A zapis do takiej strukrury to np: writeln ('Podaj Imię:'); Readln (dane_osobow[0].imie); {w nawiasie kwadratowym podajesz...
mam dwa kody które napisałem do szkoły teraz dostałem zadanie połączenia tego by wyglądało jak kalkulator o to kod FUNKCJI : uses crt; VAR a,b,l,wynikh,x1,x2:integer; o, d,c: char; e,s:string; reszta,i,j:integer; wx,wy,w,x,y,a1,b1,c1,a2,b2,c2,pdelta,del... wynik:array[1..20]of integer; function dodawanie(a,b:integer):i...
Przepraszam, czy fizyki już przestali uczyć? A widziałeś jakie są jednostki ciśnienia: Pascal (Pa) = 1N/1m² atmosfera techniczna at = 1KG/1cm² PSI - funt siły na cal kwadratowy. Zawsze jest to siła przez powierzchnię. Tak więc ciśnienie z siłowniku od podnoszenia jest związane wprost z siłą wywierana na powierzchnie tłoka tego siłownika. Jak...
Witam jak w temacie, kolega poprosił mnie o napisanie zadania, które ma na jutro do wykonania. Podchodzę do niego już n-ty raz, ale dalej nie mam pomysłu jak to rozwiązać. Dodam tylko, że programowałem w VB , Pascal ale z C++ większej styczności nie miałem. Jeśli ktoś ma jakieś sugestie, rady lub chce pomóc to serdecznie z góry dziękuje, oto treść zadania:...
Witam. Podczas próby wywołania procedury SpeedButton1.onMouseDown muszę podać parametry ale coś nie jarzę bo jeśli podaję np. SpeedButton2.OnMouseDown(Form1,mbLeft,ss... to mam błąd taki przy ssLeft: Dodano po 22 ok. już znalazłem błąd może komuś kiedyś się przyda :) : [ssLeft] należało ująć w kwadratowe nawiasy.
no wiesz, to zera z jedności czynią miliony! :-) Layons fajny (i ładnie wydany), Nadachowski (bez kulki:-) przetłumaczył "www.dspduide.com", fajne i godne polecenia (zdecydowanie mniej matematyki) := to przypisanie, w literaturze i w Pascalu ano sposób prosty, bo... bo czemu miałby byś skomplikowany? dla małych N można liczyć jak pokazałem, dla większych...
niestety samemu nie mogę sobie poradzić z tym, w ogóle nie znam delphi ani pascala itp programów (jedynie bascom ale to nie do tego służy). W pliku niżej jest prosty schemacik tego co bym chciał zrobić: http://obrazki.elektroda.net/48_12761059... Czy jest jakaś szansa uzyskać pomocne odpowiedzi na tym forum? czy tylko będziecie odsyłać mnie do szukania...
Wydaje mi się, że to forum elektrody jest używane głównie przez amatorów lub okazyjnych programistów . ..Bullshit. Jesli wszyscy byliby tutaj dorywczymi lub poczatkujacymi programistami, to kto by pomagał w rozwiązywaniu problemów? "pomagał głuchy ślepemu". Racz zauwazyc, ze na tym forum wypowiadają się ludzie, którzy pracują już w zawodzie związanym...
https://obrazki.elektroda.pl/3105483500_... W wielu projektach, takich jak latające roboty, stacje pogodowe, czy systemy do wyznaczania tras, urządzenia sportowe itp bardzo ważny jest pomiar ciśnienia oraz wysokości nad poziomem morza. W poniższym artykule opisujemy jak korzystać z czujnika BMP180, który jest jednym z najczęściej używanych...
Czytając te posty, szlak mnie trafia! Ludzie! Po co wyrażacie chęć studiowania na danym kierunku po czym jak się tam dostaniecie np. na 3 wybór to płaczecie, że się nie dostaliście na swój upragniony number one ? Takim sposobem zabieracie miejsce innym, który na prawdę zależało na tym kierunku na którym wy po dostaniu się kręcicie nosem i "płaczecie",...
Pracuję jako programista od wielu lat. Zaczynałem od Logo, Basica na Atari. Potem był Pascal, Assembler, C, Delphi, C++, PHP, ASP .net i wiele innych. Powiem szczerze, że ciężko jest przewidzieć który język/platforma/środowisko będą popularne za 8 - 10 lat. Sam często żałuję, że poświęciłem czas na naukę pewnych technologii, architektur które obecnie...
//** "Rozklad f-Snedecora i rozklady pokrewne - ich zastosowanie w statystyce i metodach Monte Carlo" ** //** napisanej na Wydziele Matematyki Uniwersytetu Lodzkiego ** //** kopiowanie calosci i fragmentow bez zgody autora zabonione ** //** kontakt z autorem: jk1980(at)poczta.onet.pl ** //**************************************...
Problem 1 - mega uproszczony i zmodyfikowany tak by latwo było sobie wyobrazić - jak obliczyć wysokość fontanny strumienia wody? Powiedzmy, że mamy pompe zanużona w płytkiej sadzawce na otwartym terenie pod ciśnieniem atmosferycznym 1 bar. Pompa pompuje wode z przepływnościa 10l/minute i ma ciśnienie na wyjściu 6 bar. Pytanie jest takie jak obliczyć...
Wiele procesów przemysłowych wymaga poddania materiału bądź produktu odpowiednim zabiegom produkcyjnym. Jednym z takich zabiegów jest zastosowanie zmniejszonego bądź zwiększonego ciśnienia w celu wpłynięcia na parametry produkowanego przedmiotu. Dla przypomnienia należy zaznaczyć, że jednostką ciśnienia jest Pascal (Pa), oznaczający siłę jednego Newtona...
czarny kwadrat kwadrat ekranie monitor kwadrat
alarm prestige toyota avensis odpalać medion internetowy
tłumienie krytyczne zmiana hasła
Samsung BN44-00339A Power Supply Board Issues and Fixes Krótkoterminowy zespół rozrządu paliwa - czujnik 2