Spróbuj z takim kodem : program petla_w_petli; uses crt; var n,i,j,x,y:integer; begin; clrscr; write('podaj bok n= '); readln(n); write('podaj wsp x= '); readln(x); write('podaj wsp y= '); readln(y); clrscr; for i:=1 to n-1 do for j:=1 to n-i do begin gotoxy(j+x+i,i+y); write('*');...
Ja bym do tego zabrał się tak: Napisałbym funkcję typu boolean która sprawdzałaby czy trzy odcinki które jej podasz tworzą trójkąt. Zapewne wiesz ale przypomnę że warunkiem stworzenia trójkąta jest to że suma długości dwóch odcinków jest większa od długości trzeciego. Jej paraetrami byłyby (a,b,c) czyli trzy odcinki a przymowałaby wartość prawda lub...
Sprawdzanie danych można zrobić tak: 1) Dane powinny być liczbami dodatnimi repeat Write('Podaj długość boku, a = '); Readln(a); if a<=0 then Write('Błąd! Długość boku powinna być dodatnia.'); until a>0; Proponuję również ten schemat wprowadzania danych zastosować w całym programie, tzn. poprzedzać wczytywanie komentarzem...
Program obliczanie pola trójkąta Uses crt; Var a,h,pole:Real; Begin Clrsclr: Write(‘podaj długość boku a’);readln(a); Write(‘podaj wysokośc trójkąta h’);readln(a); Pole:=a*h/2 1) Po napisaniu program w pascalu jest zasada ze tekst ma być spójny bez spacji i ciągły wiec jako znak spacji...
Masz: Uses crt; var a,h,pole,obw:real; begin clrscr; write('podaj dlugosc boku ');readln(a); h:=sqrt(3)/2*a; obw:=3*a; pole:=a*h/2; writeln('wysokosc trojkata= ',h); writeln('obwod= ',obw); writeln('pole= ',pole); writeln('pressed key'); readkey; end.
http://pl.wikipedia.org/wiki/Trójkąt_Pas...
dzieki ,wielkie.
Witam, napisałem program który ma wyświetlać piramidę pascala do n podanego przez użytkownika, lecz problem tkwi w tym że od 12 wyrazu program wyświetla jakieś chore wyniki nawet na minusie i nie wiem co dokładnie tu nie gra, chciałbym również jakąś prosta metodę na posortowanie całej piramidy by wszystko było w miarę równo, próbowałem coś z "strlen()"...
chyba metodą trójkąta Pascala będzie najłatwiej: #include <iostream> #include <cstdlib> #include <queue> using namespace std; int main () { int n,k,i,j,temp; queue<int> kolejka; cout << "Podaj poziom trojkata : "; cin>>n; cout << "Podaj k-ty wyraz "<<n<<"-tego...
Chodzi o współczynniki z dwumianu Newtona? Da się je bardzo prosto wyznaczyć metodą wstępującą przy pomocy trójkąta Pascala.
Aha :) No to się sprawa trochę komplikuje :) A jaką podstawę będą miały te graniastosłupy ? Kwadrat? Trójkąt? Koło?
pole trójkąta mając trzy boki obliczysz ze wzoru Herona: P=pierwiastek(p(p-a)(p-b)(p-c)), gdzie p=(a+b+c)/2, a znając dwa boki i kąt miedzy nimi: P=1/2ab*siny, no i teraz wystarczy to przeniesc do pascala:), proponuje na warunku zapytac o dane które znamy (albo 3 boki, albo 2 i kat miedzy nimi) w zależności od wyboru użytkownika, zapytać go o te dane...
Witam wszystkich na foeum mam problem z tabicami czy ktoś tu z obecnych członków mógłby mi doradzić jaki najlepszy podrecznik zastosować Mam mianowicie do napisania program wypisujący tablicy dwuwymiarowej 20na 20 przykładowo TAB[20][20] trójkąt Pascala po przekątnej same jedynki niewiem jak z formułowac ciało funkcji Ale nie oto mi tak chodzi jak jakąś...
i:=0; x:=0; repeat ......... if odd(i div 1000) then x:=x-1 else x:=x+1; i:=i+1 until DoKiedyChcemy;
A jak to sprawdzic ktory jest w srodku ??? toc to zwykla geometria :!: poniewaz twoj trójkat (patrzac po lini ktora nazwales podstawą) jest skierowany w dół zrób taki prosty myk : przesuń sie na środek "podstawy" czyli (250, 300) i zejdz 1 jednostke w dol (ze wzgledu na orientacje trojkata) czyli punkt (250,299) powinien byc w srodku
oczywiście, że się da... sorry za pytanie, ale czy my jesteśmy w matematyce na poziomie co najwyżej pierwszej klasy szkoły średniej? Przecież każdy wykres można prosto opisać wzorem - bądź to pojedycznym bądź złożonym (Zaleznym od parametru). Przykładowo dla przebiegu prostokątnego wzór taki ma postać: {1 , dla x=((a-1)*T,a*1/2*T>...
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:
http://obrazki.elektroda.pl/1229663700_1... taka mam odpowiedz na ten kod, ogólnie jest dobrze ale nie wiem czy to przez mój program tak dziwnie wygląda czy coś źle wpisałam... i w zadaniu są trójkąty/choinki narysowane tak że w środku jest jedna pojedyńcza * *** ** * ** ***
Kiedys pisalem takie bajerki w Pascalu. Jak znajde to podesle. Tymczasem proponuje zajrzeć na: http://kik.ie.tu.koszalin.pl/psi/algorps...
leniviec: popieram kolege. Ja sam raczkowalem (tu prosze o salwe smiechu :) ) w... Logo. Tak w logo na 286 (nawet zolw to nie byl zolw, tylko trojkat :) ). Ale wlasnie dzieki logo nauczylem sie programistycznego myslenia, i dlatego dzis, gdy "przesiadam sie" na nowy jezyk, to tak jak pisalem - tylko kwestia zalapania innej semantyki (skladni). Pozniej...
Mam do zrobienia w pascalu pewien obrazek ,tylko mam problem z trybem graficznym , ponieważ jeśli chce skompilować to wychodzi komunikat : can't find unit graph used by rysunek_balwan Wpisuję : Jestem z tego zielona , a mam to dzisiaj wysłać , więc proszę o pomoc :) PS. Wiem że najpierw trzeba włączyć tryb graficzny, tylko właśnie przy tym też wyskakuje...
Podpowiem CI jak to zrobic - narysuj sobie trojkat, policz jego pole nawet po kratkach i sprawdz czy sie zgadza z wynikiem, ktory dal Ci program. To raczej nie jest Twoj kod, i nawet nie masz ochoty go sprawdzic?
Dziękuje kolego CosteC za słowa otuchy. Jeszcze raz napiszę. Jestem amatorem, może hobbystą ale nie zawodowym elektronikiem. Projekt powstał w oparciu o moją skromną wiedzę fachową i o to co znalazłem na forum czyli regulator z tego linku. https://www.elektroda.pl/rtvforum/viewto... Tamto rozwiązanie zadowoliłoby mnie. Zasilacz...
for i:=a to b do begin ... end = i:=a; while(i<=b) do begin ... inc(i) Możesz zamienić ten pierwszy trójkąt tzn.: for i:=0 to w-1 do begin for j:=1 to k-i do write('*'); writeln; end; na pętle while :) Robię według tego i nie działa :/ ps: może być pętla while w pętli while? :) Proszę pamiętać o używaniu znaczników...
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;...
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...
kompiluje się albo dpr do exe albo pas do dcu. Po co te nawiasy trójkątne? I po co w ogóle określać lokalizację docelową?
Witam dostałem do przeanalizowania programiki i przy dwóch z nich nie moge dojść o co chodzi może Ktoś z Was mi pomoże ? pierwszy jest taki Dana jest nieujemna liczba rzeczywista p. Napisz program, który wyznaczy objętość i pole powierzchni sześcianu o przekątnej długości p program zadanie_10; uses crt; var a,d,p,v :real; begin clrscr; write('Podaj...
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,...
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...
Możesz tak: uses crt; var figura: byte; var pole, a, b, h, r: real; begin clrscr; TextBackGround(black); clrscr; TextColor(blue); writeln('***XXX***'); TextColor(green); writeln('***XXX***'); TextColor(yellow); writeln('***XXX***'); TextColor(white); writeln('***XXX***');...
wrych: a co robi procedura czytaj(...) ? Autor pytania nie odzywa się i dokładnie nie wiadomo o co mu chodzi. W zdecydowanej większości przypadków nie ma potrzeby przechodzenia między trybami. Kiedyś napisałem program który rzeczywiście zmienia tryby. Załączam: uses crt,graph; var x:char; st,tryb:integer; procedure czw; begin SetGraphMode(tryb);...
no to jeszcze mała optymalizacja wynikająca częściowo z założeń autora (tylko czemu pierwiastek, a nie połówka? To nie sito!), przy okazji znacznie wydajniejsza: function Czy_Liczba_pierwsza( x: integer) : boolean; var idx : integer; begin if x in [0,1] then {sprawdzamy czy podana liczba to 0, 1} begin Czy_Liczba_pierwsza:=false;...
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;...
[...] 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;...
writeln('pole trojkata rownobocznego o boku ', d,' i wysokosci ', h,' wynosi ', wynik:2:2); Wystarczy dodać "ciapki" :P (znaczy apostrofy) kończące stringi - wtedy zadziała jak chcesz. A pętla - weź całość w pętlę repeat .. until: var a, b, c, d, e, f, h, wynik: real; z: integer; begin repeat {tutaj cała treść programu}...
Witam. Możesz poprzez funkcję IF np. If (wczytana_cyfra == 5) to przedstawienie_cyfry := pięć i tak dalej, jeżeli nie będziesz używał liczebników porządkowych to jest wszystko ok. Jeżeli cyfra jest dwu lub więcej znakowa np 33. musisz rozbić ją na dwie 3 i 3. Jedna trójka to trzydzieści a druga to trzy. Powodzenia.
Skleiłeś jakieś 3 fragmenty kodu i w ogóle nie wiesz, co one robią. Skoro wkleiłeś:[syntax=pascal] for i:=0 to 4 do memo1.lines.add(IntToStr(t[i]));[/syntax... to ile liczb ma się wyświetlać, jak nie 5? Jak podajesz w edicie 4, to tylko 4 pierwsze liczby są losowane od 0 do 99 (a nie 100) - czemu piąta miałaby też być wylosowana? Na piątym miejscu w...
To jeszcze po części zależy od tego, jak chcesz zrealizować interfejsowo kwestię. Tak, na plansze nada się tablica dwuwymiarowa. A właściwie to dwie - po jednej na każdego zawodnika. Gra by musiała składać się z dwóch etapów: 1 - wypełnienia tablicy (ręcznie lub automatycznie), 2 - właściwej gry. Jeśli to mają być tylko pojedyncze statki, to sprawa...
A w 2020 miały się wyczerpać złoża ropy naftowej Poważnie ktoś mówił o wyczerpaniu się złóż ropy ? Bo mi się wydaje, że była mowa o Peak Oil czyli szczytowej możliwej do wydobycia ilości, a później ma być spadek. Jeżeli zwrot "złoża ropy naftowej" rozumiemy dosłowie czyli odrzucimy piaski roponośne to Peak Oil prawdopodobnie jest za nami. W 2018r w/g...
Najbardziej emocjonująca potyczka mistrzów programowania ruszyła Światowa czołówka polskich programistów, setki profesjonalistów, amatorów i zdolnych zapaleńców zmierzą się z najtrudniejszymi problemami algorytmicznymi w jednych z najbardziej emocjonujących zawodów dla informatyków – Potyczkach Algorytmicznych 2011. Siódma edycja tego prestiżowego...
połączenie trójkąt trójkąt pascal pętla sortować pascal
jednostka banki oklejanie samochodów przenosić router
Rezystancja czujnika ABS Ford S-Max 2012 - wartości Opel Vectra B 1.8 16V szarpie, przerywa, brak mocy
