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...
Aha :) No to się sprawa trochę komplikuje :) A jaką podstawę będą miały te graniastosłupy ? Kwadrat? Trójkąt? Koło?
http://pl.wikipedia.org/wiki/Trójkąt_Pas...
dzieki ,wielkie.
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.
Mam zrobić trójkąt prostokąt i nie wiem jak za bardzo wychodzi mi tylko romb ; 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:=y to y+n-1 do for j:=i...
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()"...
Witam. Otóż otrzymałem dodatkowe zadanie na informatyce: Danych jest n odcinków. Podać max liczbę z n tak, że z każdych 3 odcinków jest trójkąt. Treść zadania pod względem gramatycznym i składni powala. Ale tak napisał nauczyciel (może dlatego, że robił to na szybko podczas przerwy). Prosiłbym o dokładne rozpisanie jak to powinno wyglądać. Za pomoc...
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.
i:=0; x:=0; repeat ......... if odd(i div 1000) then x:=x-1 else x:=x+1; i:=i+1 until DoKiedyChcemy;
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ąś...
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 * *** ** * ** ***
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:
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>...
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, chodzi mi o zrodlo w C++ lub Pascalu.. mnozenie macierzy pasmowej gornej (lub dolnej bo latwo to zmienic:) i wektora ( rozwiazywanie ukladu rownan A* x = b) lub cos podobnego chetnie sie zapoznam z roznymi rozwiazaniami programistow.
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ą?
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;...
Wiem myslalem o pascalu a napisalem o deplhi ale chodzi oczywiscie o pascala... Aktualnie mój kod wygląda tak: PROGRAM domek; USES Graph,crt; VAR sterownik,x,y,kolor,tryb:integer; BEGIN sterownik:=detect; initgraph (sterownik,tryb,''); setcolor(5); rectangle(200,10,600,90); setcolor(13); rectangle(200,14,600,86);...
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...
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...
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...
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...
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,...
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...
połączenie trójkąt trójkąt pascal pętla sortować pascal
podłączyć telewizor philips router z18xe wymiana silnika poduszka pilot volvo
Xerox WorkCentre 6605 – komputer widzi drukarkę, ale nie widzi skanera po instalacji sterowników Demon RQ 580 – silnik mocno się grzeje na pełnym gazie mimo prawidłowej mieszanki, kolor świecy jasny kawy z mlekiem