Główny plik projektu to ComSter.lpr a otwierasz programem Lazarus jest to darmowe środowisko programistyczne korzystające z kompilatora FPC Free Pascal Compiler dostępne jest na http://www.lazarus.freepascal.org/
Czy masz coś wspólnego z wątkiem [url=http://www.elektroda.pl/rtvforum/to... starego peceta jako Hosta do eksperymentów :) ? 1. Musisz zrobić obsługę odczytywania sektorów ze stacji dysków, 2. Dokładasz do nich obsługę FAT12/16 (znajdziesz w sieci gotowce), 3. Wczytujesz plik z programem w jakiś obszar pamięci 4. O ile dosowe pliki...
Czy dobrze rozumiem, że nie masz problemu z punktami od a do e? Trudno się czyta kod bez wcięć, ale nie zauważyłem funkcji o których piszesz. Muszą być? Spróbuj to poprawić, a okaże się, że nie masz tak dużo problemów. Ja bym to robił według takiego schematu: begin Wypełnij(tablica,ILE); WriteLn('Średnia=', Srednia(tablica, ILE)); { punkt a } itd. end....
Zajrzyj do drugiego topicu, ktory zalozyles
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...
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"....
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);...
Witam rozpoczynam pracę z programem pascal. Napisałem banalny program (jeśli tak to można nazwać), ale niestety wywala mi 2 błędy. Nie wiem co jest źle, bardzo proszę o pomoc. Program imię var a:string begin writeln('podaj swoje imię'); readln(a); writeln('witaj ,'a', !'); readln; end.
Gratuluję realizacji ciekawego projektu. Pozwolę sobie zapytać, czy wyrzeźbiłeś od podstaw własny BIOS dla CP/M w asemblerze Z80? Zrobiłeś tzw. deblocking dla karty SD? Robiłeś jakieś podejście do CP/M 3.0? Też pracuję od trzech lat nad czymś takim, jednak jest to projekt na 8080. Jest to też układ zdecydowanie bardziej retro. Mam nawet obsługę FDD...
mam problem z 1 programem liczę na pomoc :P nie pamiętam dokładnie treści zadania ale napisze tyle ile pamiętam Treść Napisz program Tester który zawiera pytania i odpowiedzi zapisane w pliku Txt. Program ma odczytać z pliku txt dane i zapisać na plik rekordowy, pod pytaniem ma być poprawna odpowiedz(i 2 inne blednę ). W programie maja zostać zastosowane...
Witam Zmodyfikowałem program który napisałeś. Jakby jakieś pytania to pisz. Pozdrawiam.
data: array[..] of array[..] of ...; I poczytaj o recordach.
if kompilator='Borland' then PressKey(Ctrl+F1) else URL('www.google.pl/search?q=pascal+e... Widzę, że zebrało się koledze na żarty. Ale tak na poważnie : http://obrazki.elektroda.net/43_12661588... I proszę nie zapomnieć ograniczyć pamięci zajmowanej przez program 'master', bo inaczej nie program 'slave' nie uruchomi się...
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...
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
Czasami pomaga spowolnienie komputera.Łatwo zrobić to przez wyłączenie cache L1 i L2 w BIOS-ie.Można łatwiej stosownym programem do wył/wł cache a są takie i robią to w locie.
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...
paramstr, paramcount w pascalu
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
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...
Zmienna globalna, inicjujesz na początku programu.
Mam problem z programem Free Pascal Ide: 1.Wpisuję znaczniki write oraz read i one działają le writeln i readln już nie. 2. Nie mam bibliotek <chyba..., crt mi nie działa>
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)
Jak uruchamiasz ten program? Spróbuj w terminalu przejść do odpowiedniej lokalizacji z programem i uruchomić go wpisując ./nazwa_programu
Schemat blokowy ;) http://pl.wikipedia.org/wiki/Schemat_blo... Teraz pokaż co stworzyłeś :D
dopisać przed ostatnim end-em instrukcję readkey; albo readln;
czyli nie ma możliwości podłączenia żadnego przekaźnika? Jest możliwość tylko przekaźników nie włączasz bezpośrednio do portu tylko przez transoptory. Potrzebujesz do tego dodatkowego zasilacza, ale nic nie stoi na przeszkodzie wykorzystać nieużywane złącze zasilacza w komputerze.
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('***************************');....
// 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;...
Z tym programem to zartujesz prawda? Po pierwsze to zrob wciecia i odstepy zeby wogole mozna bylo widziec co jest co a z tym i na koniec repeat to ....
dopisać readln;
Panie Fyszo a umiemy czytac ze oprogramowanie jest w pelni darmowe ? Kolega Synek125 zaznaczył że chodzi o konkretny program - "Turbo Pascal for Windows", a nie inne IDE jakie były już proponowane. Domyślam się że z ciekawości, ponieważ używanie programu z epoki Windows 3.0 jeśli mamy do dyspozycji dużo nowocześniejsze byłoby co najmniej dziwne. Ten...
Witam, nie musisz męczyć się z tak tragicznym programem jak Turbo Pascal, Free Pascal jest o wiele lepszy i działa na wielu platformach, na Macu również. Pozdrawiam, Krzysztof.
Masakra - na ocene 3 to rozumie ale na 6 ??? - strasznie niski poziom nauczania informatyki mamy teraz w szkolach To prawda ale zdanie Nasza wiedza w pisaniu programów jest nie wielka i zamierzamy to zrobić przy pomocy google Chyba o wszystkim mówi, więc rzuciłem program na bardzo niskim poziomie i bardzo prosty. Bo chyba list lub grafów tutaj nie...
Witam, mam pewien problem. Problem ten polega na napisaniu kodu w programie Turbo Pascal 7.0. Niestety pierwszy raz miałem do czynienia z tym programem i nie za bardzo wiem o co chodzi. Przeszukałem wiele postów i forum, lecz nie znalazłem odpowiedniej pomocy w tej kwestii. Głownie chodzi mi o kod, który zmieni podaną liczbę w systemie dziesiętnym a...
najprawodopodbniej wlasnie brakuje ci plikow .bgi w katalogu z programem *albo podania odpowiedniego linka*
Witam mam problem z programem który będzie pobierał liczbę dana przez użytkownika i potęgował aż do 100 np jeśli podam dwa to ma mi się wyświetlić 2 4 8 16 32 itd aż do 100 Jeśli podam 2 to program wyświetla mi 2 4 a potem same 4 aż do zakończenia. programu proszę o pomoc to jest mój kod [syntax=pascal]program potega; var a: integer; begin writeln('podaj...
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,
Witam, Potrzebuje pomocy w Pascalu. A mianowicie za dużo doczynienia z Tym programem nigdy nie miałem, a wiec potrzebuje najprostszy program w Statki. Tablica dwuwymiarowa 10x10 mam mieć 5 pojedynczych statków i 10 strzałów. Bardzo proszę o pomoc. :)
Temat poruszony już kilka miesięcy temu ale zapewne interesujący dla tych, którzy zaczynają przygodę z własnymi maszynkami. Mogę przedstawić swoje rozwiazania po dwuletniej przygodzie z budową własnej obrabiarki. Piszę programy pod Pascal Delphi. Zadanie obróbki brył przestrzennych próbowałem ugryźć od strony obróbki chmury punktów czyli zbioru dużej...
Możesz też uruchomić ten program bezpośrednio w wierszu poleceń. Przechodzisz do odpowiedniej lokalizacji z programem i wpisujesz jego nazwę np. "program.exe" W tym przypadku Ci się nie zamknie pomimo ,że nie stosujesz procedur typu Readln.
Oto moja propozycja testu: [url=http://www.elektroda.pl/rtvforum/to... W Twoim przypadku zamiast pytania będzie odtwarzanie dźwięku.
litery inne niż małe: możesz zrobić tak: program test; uses crt; procedure test_znak; var ch : char; begin repeat writeln('Podaj znak do zakodowania: '); ch := readkey; until (ord(ch) >= ord('a')) and (ord(ch) <= ord('z')); writeln('Podales: ',ch); end; procedure test_liczba;...
Tak, jest wykonalne. Sposobów jest przynajmniej tuzin. Przykładowa implementacja jest tutaj: http://www.dzyszla.aplus.pl/download-18.... (hasło jest trzymane w postaci zaszyfrowanej).
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.
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...
Cześć, jestem początkującym w tym temacie a mam napisac taki oto program i nie wiem jak zrobic, by wczytywało litery i znaki, a potem jeszcze ułożyc równanie na tej podstawie. Z góry dzięki za pomoc. Dane są dwie liczby rzeczywiste x i y oraz znak określający operację arytmetyczną, który może być równy: ‘+’, ’-‘, ‘*’...
podkręcanie programem przeszukaj programem electrolux programem
przewód gruba cienki gasik kondensator volvo silnika
interfejs multidiag naprawa udaru makita
Zagłuszacze GSM – jak działają urządzenia do zakłócania częstotliwości komórkowych? Antena do telewizji naziemnej – jak wybrać? DVB-T2, ATSC, UHF/VHF, zysk, montaż, marki
