Pierwszy. Po co przekazywać nieużywany parametr tylko by mieć zmienną? Zmienianie parametrów w funkcji to trochę zły pomysł - zmniejsza przejrzystość kodu. IMHO takie różne clrscr na początku i readln na końcu to raczej nie są cechy profesjonalnego programu.
Tak jak napisales ten program jest latwy. Ale nie wiem co sobie trzeba w nim przypominac. Skoro jesli nie pamietasz wzoru na wyznaczenie prostej wystarczy toworzyc tablice. Wczytanie 6 zmiennych - obliczenie parametrow a i b (pierwsze 4 parametry) funkcji postaci y=ax+b. Podstawienie do funkcji 5 parametry i porownanie y z 6 parametrem jesli y=6.par...
Witam Zmodyfikowałem program który napisałeś. Jakby jakieś pytania to pisz. Pozdrawiam.
if kompilator='Borland' then PressKey(Ctrl+F1) else URL('www.google.pl/search?q=pascal+e...
Najpierw zapisujesz plik z kodem (F2, albo file->save), a następnie kompilujesz (F9, ew. compile->make). Plik exe pojawi się tam gdzie był zapisany plik z kodem (.pas)
dopisać przed ostatnim end-em instrukcję readkey; albo readln;
Załóżmy że do portu będzie podłączony przekaźnik i rezystor. według mnie "port się spali" (za duży pobór prądu) albo przekażnik nie zadziała (zależy to od rezystora). Przeanalizuj program jaki umieściłem kiedyś w innym poście program on_off; uses crt; var stan: byte; p: char; begin repeat p:=readkey; write(p); if p='1' then begin...
Spróbuj w ten sposób: [syntax=pascal]program zliczanie; const NUM = 100; {Rozmiar tablicy z liczbami} var tablica: array[1..NUM] of integer; {Tablica z liczbami} licz: array[0..9] of integer; {Tablica licznikow} i, n: integer; begin randomize; for n:=1 to NUM do begin tablica[n]:=random(10); end; for i:=0 to 9 do licz[i] := 0; {Zerowanie licznikow}...
Witam Mam rozwiązanie twojego problemu ale w osobnych plikach. Jest tam dodawanie, odejmowanie, mnożenie i dzilenie we wszystkich kodach (NKB, U1, U2, BDC). Musisz przejrzeć te programy i wybrać odpowiednie procedury.
miałem to wszystko na pierwszym semestrze. tu masz linka do materiałów z wykładów: http://www.zpcir.ict.pwr.wroc.pl/~witold...
Piszesz sterowanie klawiszami i po wcisnieciu np. strzalka w gore przesuwasz obiekt do gory zmieniajac jego wspolrzedne osi y, efekt "animacji" mozna uzyskac np. delay,
Zgłaszany błąd to "niezgodność typów". Masz zadeklarowaną zmienną "a" typu word, czyli całkowitego a przypisujesz do niej wynik działania funkcji "exp". Ona z kolei zwraca wartości type real - rzeczywiste. Zmień typ zmiennej "a" na real i będzie OK. Brakuje jeszcze średników i "end;". Dołączam poprawiony program
Witam, Poniżej końcówka programu: // sortowanie repeat Pom:=False; for i:=1 to x-1 do if tablica[i+1].nip < Tablica[i].nip then begin Pom:=True; pomocnicza:=tablica[i+1]; tablica[i+1]:=tablica[i]; tablica[i]:=pomocnicza; end; until Pom=False; writeln ('posortowane wedlug nipa '); for i:=1 to x do writeln (tablica[i].nip); readln; end. Pozdrawiam
dopisać readln;
Schemat blokowy ;) http://pl.wikipedia.org/wiki/Schemat_blo... Teraz pokaż co stworzyłeś :D
Skoro autor chce coś okienkowego zrobić to najłatwiej mu będzie wspomnianym Delphi lub Lazarusem. Wystarczy uruchomić, dodać myszką jakiś przycisk czy coś, dwa razy na tym kliknąć i wpisać kod. Łatwiej nie będzie. Lazarus właśnie korzysta z Free Pascala.
Trzeba było od razu napisać, że dostałeś taki kod na kolokwium, bo to zmienia postać rzeczy... oraz moje zdanie na jego temat. Teraz twierdzę, że kod jest prawie genialny w swoim zagmatwaniu i pewnie też taki miał być w zamyśle tego, kto to układał. Ale do rzeczy. Wbrew temu, co Ci się wydaje ostatnia i zresztą jedyna operacja zapisu do zmiennej tablicowej...
PLC programming Add new block w language: LAD / FBD / SCL
Albo zrobic zeby czekal po wykonaniu odpowiedniej liczby petli na jakis klawisz, i dopiero wtedy pojdzie dalej.... program lottomat; uses CRT; var i,j,k,n,s,x,OK:integer; A:array[1..100,1..6] of integer; {......tablice......} B:array[1..49] of integer; {... tablica statystyk...} enter: char; begin...
paramstr, paramcount w pascalu
Witam, czy na forum jest ktoś kto potrafi napisać program w pascalu ? Jest. To pilna sprawa jak ktoś potrafi to bardzo bym prosił. Pokaż co sam wykombinowałeś, to pomożemy ci dalej.
Albo licznikiem, albo miernikiem częstotliwości, albo tam, gdzie masz to zastosować.
i też prawda, ja to zrozumiałem, że w losowej kolejności wypisujemy 20 liczb naturalnych z zakresu 1-20, a w zadaniu wcele nie jest to jednoznacznie napisane, a po o losowo? żeby muc je posortować, jak to w zadaniach dla dzieci. Program MOŻE mieć 100% losowy generator, ale jako urządzenie zewnętrzne, np. wzmocniony szum termiczny.
To w takim razie tak, musisz wrócić do rozwiązania z tablicą. Chodzi tu o dwie proste sytuacje: Pierwszą, jeżeli kilkukrotnie kopiujesz i wklejasz ten sam kod po czym modyfikujesz poszczególne kopie. Drugią jest pisanie "identycznego" kodu parokrotnie. Nie tylko masz więcej kodu do ogarnięcia, ale też ryzykujesz przeoczeniem jakiejś zmiany którą powinieneś...
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}...
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...
Podam kod dla lotka. Bardzo prosto można go przerobić na inne systemy. [syntax=pascal] uses Crt; type xx=array[1..49]of integer; var i,nr_los,n:integer; wylosowane:array[1..6]of integer; liczby:xx; swoje:xx; begin clrscr; randomize; for i:=1 to 49 do begin liczby[i]:=i; swoje[i]:=0;end; writeln('podaj swoje 6 liczb'); for i:=1 to 6 do begin write('podaj...
Napisałem taki programik:
najbardziej prostackie rozwiazanie jest takie program blablabla; var a,b,c: integer; begin readln(a); readln(b); readln(c); if a>b then if a>c then writeln('najwieksza jest:',a); if b>a then if b>c then writeln('najwieksza jest:',b); if c>a then if c>b then writeln('najwieksza jest:',c); readln; end. i jesli sa to twoje poczatki to zacznij od tego,...
Prosty to prosty :) tylko nie pamiętam jak przerwac pętle porównująca liczby tam gdzie jest znak zapytania ale to moze sama cos wymyslisz bo ja nie robiłem notatek i teraz nie pamiętam jak to leciało :)
Może tak ? USES CRT; VAR w:char; a,b:real; PROCEDURE licz; BEGIN clrscr; writeln('Program rozwiazuje rownanie Ax + B = 0'); writeln; repeat write('podaj wartosc A: '); read(a); if a=0 then writeln('Wartosc A nieprawidlowa. Dzielenie przez zero!! '); until a<>0; write('podaj wartosc B: ');...
czesc, jest ktoś w stanie pomoc mi przy tym kodzie? Mam do napisania 3 programy, napisałem je odzielnie, ale mają stanowić jeden główny program, oczywyście po połączeniu razem nie działają, aplikacja nie chce przejść pierwszego end; //Program do zadania nr 1 program Rok_przestepny; uses SysUtils; //funkcaj jaka zostala zastosowana do zadania function...
Zajrzyj do drugiego topicu, ktory zalozyles
zrob sonie uruchomienie stacji radiowej (linku) w zaplanowane zadania (co 50 minut) pozdrawiam przy okazji: dlaczego nie napisac programu w pascalu to beda jakies 4 linijki, pozdrawiam:)
Szczerze mówiąc czy się da exe zrobić to nie wiem ale zrobiłem to w delphi W załączniku jest plik project.exe jest to wersja okienkowa bo pascala nie trawię :D A tak to jest zrobione w Delphi Oczywiście operacje na liczbach całkowitych :) [syntax=delphi]var a,b,p : Integer; begin a := StrToInt(Edit1.Text); b := StrToInt(Edit2.Text); p:=(a*b); Edit3.Text:=IntToStr(p);...
W podanym kodzie, przy odbiciu zmienna yspeed przyjmuje wielkość ok. 30. To jest ta różnica. Ponieważ sprawdzasz warunek na początku pętli lina nigdy nie przekroczy dolnej granicy 479-~30 = 449. Powoduje to także, że przy szczycie wykresu, zmienna yspeed zmienia wartość z ujemnej na dodatnią, juz przy y=14 a nie przy y=0. Stąd bierze się górny "margines"....
Teraz jest dobrze: program dwumian; var a,b,c: real; d: real; x1,x2:real; y1,y2:real; begin write('Podaj współczynniki równania : '); readln(a,b,c); if a=0 then if b=0 then writeln('Równanie sprzeczne') else begin x1:=-c/b; writeln('Pierwaistek równania to : ',x1:0:4);end else begin...
TO zależy co ma robić Twój program. Standrdowo na dyskietce muszą zostać (i to w odpowiednich sektorach fizycznych) msdos.sys, io.sys, himem.sys, command.com - jeżeli planujesz korzystać z interpretatora poleceń, no i plik bat Inne pliki z dyskietki startowej to "dodatki": obsługa CD, myszki, klawiatury z polskimi znakami itd. Pisanie systemu to chyba...
Zobacz jakie sa programy. Zapewne uzywasz teraz, srodowiska uruchomieniopego, czegos jak tp.exe czy bp.exe. Jesli chcesz miec plik .exe, sprobujz linii polecen uruchomic ptc.exe albo pbc.exe i podaj odpowiednie parametry, np: tpc.exe moj_program.pas Pozdrawiam, Caladan
mowisz i masz (w pascalu i metoda najmnijeszych kwadratow):
Skoro możesz sobie napisać program w Pascalu, C++ itp to może sprawa się trochę uprościć bo wystarczy Ci np. sam falownik z protokołem np. MODBUS a Ty napiszesz sobie aplikację do sterowania tym falownikiem wykorzystującą protokół MODBUS (www.modbus.org). W aplikacji "zaszyjesz" ustawianie parametrów falownika oraz będziesz mógł nim sterować - start,...
data: array[..] of array[..] of ...; I poczytaj o recordach.
po pierwsze umiesc kod w tagach CODE po drugie sformatuj kod - czyli zrob tabulacje przed sekcjami, zeby byly na tym samym poziomie - jak nie wiesz o co chodzi to przejrzyj forum - wiele osob jak pisze kod to daje go sformatowanego :) inna sprawa, ze jak masz kod sformatowany i znasz podstawy jezyka to zrobienie schematu blokowego nie jest zbyt wielkim...
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....
Oba programy wyświelą ten sam tekst na czarnym tle, z tym że drugi najpierw wyczyści ekran,a potem wypisze tekst.
[url=http://www.sdsi.eu.org/~wojnow/pomo... masz gotowe rozwiązanie.
Witam Program działa na zasadzie rekurencji. Procedura LiczbaSlownie wywoływana jest tyle razy ile cyfr ma liczba. Dla liczby np. 123 będzie to nastepująco 1. wywołana jest procedure w programie głównym z parametrem 123. 2. Jeśli liczba jest wieksza od 9 to wywolywana jest ta sama funkcja ale już z parametrem 123 div 10 czyli 12. a) Jeśli liczba jest...
na pewno prostokąt błędu-ale niestety dalej nie za wiele mi to mówi pomocy :(
Gdziekolwiek zaglądniesz w zakamarki internetu znajdziesz wszystko, wystarczy poszukać. Program aby przeliczył stopnie for i := 1 to 100 begin writeln (i, ' Celcjiusza => ', 32+(5/9*i) ' Fahrenheita') end Powodzenia
Załączam 2 programy do obsługi RS-232 w Turbo Pascalu. Są to programy terminalowe, ale uproszczone w ten sposób, że najpierw jest wczytywane polecenie z klawiatury, wysyłane do modemu, a potem wypisywana jest odpowiedź modemu. Można więc wykonać jedno polecenie AT. Programy operują na portach (bez BIOS'u), jeden z użyciem przerwań, drugi bez. Niestety...
Pomóc to i owsze - może wiele osób. Tylko powiedz chociaż kto Cię skrzywdził tym programem dając Ci taką pracę a nie mówiąc wcześniej co to jest pascal? No i może jakieś dodatkowe info o zadaniu... Czy to ma być sprawdzanie w pliku czy w tekście wpisanym przez użytkownika?
Witam potrzebuje program w Pascalu. program ten ma wczytać plik z wyrazami (są one ułożone alfabetycznie) i mam dodać na wejściu jeszcze jeden wyraz i program ma go zapisać w pliku (z którego wczytał pozostałe wyrazy) i ma on być w takim miejscu w tym pliku aby wszystkie wyrazy dalej były ustawione alfabetycznie (razem z tym dodatkowym). z góry dziękeję...
mozna tez bez asma zrobic, za pomoca readkey, ja sprawdzalem na klawiszu nierozszerzonym, ale to kwestia pewnie lekkich modyfikacji, dzialalo jak ta lala:)
Oto kilka moich wypocin napisanych w Pascalu i Delphi
Musisz dać odpowiedni parametr przy ładowaniu emm386.
Instrukcja zawarta w pliku rar W udostępnionym przez kolegę archiwum nie ma żadnego pliku rar. Poza tym ten plik poprawek został przetestowany z programami pisanymi w języku Borland Pascal 7 oraz Turbo Pascal 7. Nie był testowany z Turbo Pascalem 6. Patch ten usuwa błąd wykonania 200, który występuje na komputerach z procesorami wyższymi niż Pentium...
Jakie tam wartości podajesz? Wyczytałem, że funkcja Sound() chce zmienną tyou word, ty masz integer. Nie wiem czy to ma znaczenie... pascal... kiedy to było ^^ Masz głośniczek systemowy w komputerze? :D
Wygląda dobrze :) Można tylko nieco zoptymalizować wyszukiwanie liczb pierwszych - wystarczy szukać do połowy z badanej liczby.
Właśnie nie potrafię rozróżnić po co deklarować w procedurze zmienne skoro deklarujemy je na początku programy po uses crt; Przyznam szczerze, że nie rozumiem tego. Dodano po 1 Do tego pisałem przecież nie na darmo, aby opcje pozostawić w programie głównym, po co wyważać otwarte drzwi ? Na procedury zrzucić jedynie przeliczanie. W CASE pozyskiwać potrzebne...
Cześć, potrzebuje pomocy w napisaniu pewnego programu w pascalu. Nie proszę Was o gotowca, a raczej o wskazówki. Potrzebuje prostego programiku który będzie wykonywał dzielenie pisemne w taki sposób: http://iv.pl/images/26838419853080576908... Nie mam pojęcia jak do tego się zabrać, wiem ze program musi wczytywać 1-2-3-4... cyfrę a następnie sprawdzać...
Przyznaję sie bez bica ze nie mam zbytniego pojecia o programowaniu.Ma to być soft która ma pokazywać jakie jest prawdopodobiństwo wylosowania jakiegoś oczka napisany w jezyku Pascal.Tyle wiem.Jesli kolega by mi pomógł to będe bardzo wdzięczny.
Chyba faktycznie zaczne sie uczyc assemblera bo ten mikropascal nie ma wogóle żadnej pomocy Wiesz, powiem Ci, że aby zacząć programować w asemblerze wystarczy znać nazwy najważniejszych rejestrów, wiedzieć za co odpowiadają i mieć pod ręką listę rozkazów dla danego procka. W porównaniu z Micropascal, Microbasic, BASCOM lub nawet z C, w przypadku programowania...
Backus Naur Form, czyli BNF. Poszukaj dla Pascala
Witam. Potrzebuje pomocy. Muszę zaprojektować układ i napisać program w pascalu do włączania lewych i prawych obrotów silnika ~220V. Problem polega na tym żeby silnik włączał się przez naciśnięcie konkretnego klawisza na klawiaturze. np.: strzałka w prawo - silnik obraca się w prawo, strzałka w lewo silnik obraca się w lewo. Wyłączenie następuje po...
Dlaczego sam nie skompilujesz tego programu w Pascalu?? Wystarczy: (foto obczaj)
Random(100);
jak wiesz jak sie zamienia liczby binarne na dziesietne to nie powinno byc problemu, wejscie wczytujesz do tablicy 1-wymiarowej, znak po znaku, potem w petli lecisz od konca (lub od poczatku jak kto woli), i jak w komorce jest 0 to do zmiennej wynik dodajesz 0 (czyli nic nie robisz), jak 1 to 2^n (gdzie n to odpowiednia potega wynikajaca z indeksu tablicy)
Za pomocą sortowania kubełkowego (a właściwie tylko zliczania) łatwo policzysz ilość wystąpień każdego znaku. Potem tylko znaleźć ten, który występuje najczęściej, przeanalizować tekst jeszcze raz, ale zamieniając najczęstszy znak na duży. Ze względu na źródło (wejście), należało by wczytać tekst do ciągu znaków (string, nie piszesz nic o możliwości...
Witam Popieram zdanie Jacu$. Najwięcej miłośników PIC'ów pisze w asm dzięki czemu znajdziesz szybciej pomoc (nawet tu na elektrodzie). Sam kiedyś marnowałem czas na basick i C aż w końcu dotarłem do asm. Oto link z lista instrukcji assemblera oraz opisami po polsku. http://www.mikrokontrolery.net/main.php?... Jeśli znasz angielski...
Cześć! Najprościej jest tutaj: http://www.ece.mtu.edu/faculty/schulz/co... A tutaj tochę inaczej http://www.mathworks.com/matlabcentral/f... http://www.mathworks.com/matlabcentral/f... http://www.mathworks.com/matlabcentral/f...
Witam-mam takie zadanie do zrobienia"program zapisujacy slownie liczbe z przedzialu 1000...9999"i trzeba to napisac w pascalu-robil moze ktos cos takiego kiedys?prosilbym o pomoc-dopiero zaczynam programowac i mam z tym spory problem.Jezeli ktos moglby pomoc bylbym wdzieczny.pozdrawiam
Wpadłem na pomysł, żeby zrobić taki prototypowy syntezator mowy :P Mam zamiar nagrać każdą literę alfabetu do osobnego pliku audio po wpisaniu tekstu będzie on dzielony na pojedyncze litery, które będą przypisywane do zmiennych 1,2,3,4,5,6,7,8,9 itd... i potem każda zmienna po kolei będzie przepuszczana przez instrukcję warunkową i jeżeli litera będzie...
[url=http://www.eioba.pl/a2323/liczby_pi... - nie ma przykładu dla pascala ale jest dla delphi więc prawie to samo.
Chce zrobić taki programik do różnych testów w pascal i chciałbym zrobić oddzielny plik text z pytaniami odpowiedziami i żeby pascal czytał mi np 1 pytanie podaje odpowiedź jeśli dobra to ide do następnego pyt. zła wyświetla jakiś komunikat a na końcu części pytań ma być podsumowanie ile dobrych ile złych i procent odpowiedzi.Da rade czy za dużo wymagam...
Mały błąd się wkradł w program...mianowicie kawałek kodu był w nawiasach...wersja skompilowana w Turbo Pascalu do pliku pwm.exe w załączniku. Ps: Kompilacja do pliku exe w Turbo Pascalu COMPILE -> BUILD
Zmienna globalna, inicjujesz na początku programu.
Witam Program drugi w załączniku.
Witaj. Dosbox w wersji portable z odpowiednią konfiguracją i odpowiednim autoexec będzie działał jak trzeba. Użytkownik będzie odpalał jeden skrót tylko. Możesz się też zainteresować kompilatorem Pascala, który potrafi wyprodukować plik dla platformy x86/x64: https://www.freepascal.org/
Pytanie czy ten "kernel" ma dzialac w trybie rzeczywistym czy chronionym ? Jesli w chronionym to bedzie to wymagalo od ciebie poustawiania wszystkich struktur od obslugi pamieci (tablice stron,segmenty) i odpowiednie zainicjalizowanie procesora. Programy skompilowane w Pascalu sa skompilowane tak aby dzialac w trybie chronionym pod opieka systemu operacyjnego,...
Właśnie dodałem moduł z obsługą liczb zmiennoprzecinkowych (32 bity) do repozytorium UnoLib na GitHub (https://github.com/ackarwow/unolib). Jest tam też kilka programów testowych w Pascalu na Arduino Uno i Lazarusa. Od pewnego czasu w rozwijaniu UnoLib współpracuję z (at)Dzandaa, więc to także jego praca :)
Pascal może stanowić pewien problem przy nauce C, jeżeli za bardzo przywiązałeś się do jego składni. Jest w nim kilka elementów, które, chociaż kosmetyczne, potrafią utrudnić życie przy przeskokach między językami. Przykładowo operatorem przypisania w C jest = , co w Pascalu jest porównaniem i wtedy jeśli w C przez pomyłkę napiszesz: [syntax=C]if (zmienna...
Wystarczy sprawdzić najniższy bit liczby Jeżeli jest 1 , to liczba nieparzysta, inaczej liczba parzysta. W Pascalu dawno nie pisałem, ale to będzie coś w stylu IF ((liczba and 1) = 1) then nieparzysta else parzysta
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...
Witam Mam problem z programem w pascalu chodzi dokładnie o zapis do tablicy. Program ma obliczać odsetki w systemie rocznym i po każdym roku zapisywać odsetki do tablicy. Poniżej zamieszczam program, gdyby ktoś mógł pomóc był bum wdzięczny. program procent; uses crt; var rocz: array[1..4] of integer; a,b,c,d,e:integer; f:integer; begin clrscr; writeln('podaj...
niczym sie to nie rózni. Jesli umiesz napisać program w Pascalu, to należy iść do tyłu, to znczy zrobic z tego schemat blokowy, bo tak działa Eli. Pisząc program zaczynamy od algorytmu. Ty zrób na odwrót, napisz program w Pascalu a potem na jego podstawie zbuduj schemat blokowy
tak wygląda program w pascalu ogólnie: program nazwa_programu; begin {tutaj wstawiasz treść programu} end.
Witam ! Mam program w pascalu : program noclegi; uses crt; type THotel = record nazwa : string; pokoi : integer; miejscowosc : string; klasa : 1..5; end; const HOTELI = 20; var Hotele : array[1..HOTELI] of THotel; Baza : text; i : integer; begin ClrScr; Assign(Baza, 'HOTELE.TXT'); Reset(Baza); for...
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 Chciałeś mieć na środku to miałes na środku. Nie bardzo wiadomo o co chodzi w Twoim problemie. Coś kolega niejasno pisze. -- pozdrawiam
Oj nie nie nie, bardzo małe szanse że ktoś Ci tutaj poda gotowy kod... Trzeba się napracować trochę samemu a zgłosić się z jakimś problemem a nie "odróbcie za mnie zadanie..." Nie ma tak łatwo. Chyba że podasz bardzo konretny i dobry powód dlaczego nie możesz tego sam napisać. Swoją drogą to bardzo podstawowy program i można go napisać mając jedynie...
temat z kosza:p http://www.elektroda.pl/rtvforum/viewtop... cały działajacy program uses crt; var i,m,n,p:integer; begin clrscr; write('Podaj m: '); readln(m); write('Podaj n: '); readln(n); write('Podaj p: '); readln(p); for i:=m to n do if (i*i) mod p=0 then writeln(i); readkey; end.
// w tym miejscu stoję, wymyśliłem pewien algorytm ,że liczba pierwsza to taka która (a mod 2) będzie <> 0 oraz ,że liczba a nie jest podzielna przez żadną z liczb aż do a-1.. Pomyślałem ,żeby zwiększać i=i+1 i znowu sprawdzić czy a mod i=0 Ten pomysł jest dobry, sprawdź taki kod (spróbuj to dokładnie zrozumieć): readln(n); a:=2;...
Witam może nie takiej odpowiedzi się spodziewałeś ale nie wiem na jakim jesteś etapie programowania w Pascalu przesyłam ci plik ze źródłem pewnego programu sam go napisałem jakiś czas temu na zaliczenie wiec nie ma obawy o prawa autorskie. :) Jest tam kilka procedur i może wydawać się rozbudowany ale działa poprawnie, a w programie głównym jest zastosowana...
ok :), piszez programy w pascalu?? Pozdrawiam
Może spróbuj wpisać ścieżkę "dosową" InitGraph(Karta, Tryb, 'c:\Progra~1\TP\BGI'); albo skopiuj katalog BGI na dysk c: i zmień ścieżkę w programie.
Mogłby mi ktos mi napisac program w pascalu znjadujacy 3 najwieksze liczby gdy wpsiujemy 5 do programu i wyswietlajacy je w kolejnosci malejącej, Siedze nad tym i nie moge sobie poradzić :(
witam, może ktoś pomoże, do napisania mam program wykrywający typ procesora i jego parametry. Jakieś pomysły??? Najlepiej jak by był napisany w Turbo Pascalu, ale na inne języki też sie nie obrażę:)
Czy ktoś może mi wyjaśnić jak powinien wyglądać program w Pascalu obsługi RS 232
witam mam do napisania program w Turbo Pascalu który ma pobierać longintegera i wyświetlać kwotę słownie w złotych... ma on być oparty na case'ach, bez tablic dla liczebników, a i jeszcze odmiana liczebników i 'złotych'... nie wiem jak się do tego zabrać, jeżeli ktoś jest dobry w Pascalu to niech pomoże, plz!! zależy mi na czasie :( w poniedzialek zaliczenie...
Karta przetwornika analogowo - cyfrowego z pamięcią oraz program w pascalu dla systemu DOS.
programy turbo pascalu programy pascalu ascii kalkulator pascalu
baterie rowerowe połączenie atmega obciążalność portów bester regulacja prądu
żarówka szeregowo początkujący elektronicy
1N5712 vs BAT62-03 – zamienność diod Schottky, różnice parametrów, obudowy Wyłączenie trybu oczekiwania przy braku operacji w telewizorach Samsung, LG, Sony, Philips, Panasonic