pascal programy

Pascal - Program nie wstrzymuje działania - readln;

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('***************************');....

[Pascal]Program na hasło. Czy to jest wykonalne? Jak to zrobić?

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).

Nie znalazłeś odpowiedzi? Zadaj pytanie Sztucznej Inteligencji

Turbo Pascal, program ma wypisywać liczbe pierwsze.

// 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;...

Pascal - Program nie kompiluje się, a wiem, że jest ok.

Kolega pewno używa Turbo Pascala tam te znaki wyglądają tak samo ale nie można ich zamieniać. Sprawdzałem to przed chwilą.

Pascal program-gra. Quiz, melodie, zliczanie punktów.

Oto moja propozycja testu: [url=http://www.elektroda.pl/rtvforum/to... W Twoim przypadku zamiast pytania będzie odtwarzanie dźwięku.

Turbo Pascal. Program szyfrujący. Wykorzystanie szyfru Cezara.

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;...

[Turbo Pascal] Program Permutacje. Zapis danych do pliku.

Witam. Najprostszy zapis do pliku wyglada tak: deklarujesz zmienna typu text: var plik: tekst; teraz musisz przypisac plik fizyczny zmiennej plikowej: assign(plik, 'sciezka\nazwa_pliku'); mozesz podac nazwe jeszcze nieistniejacego pliku, lub istniejacego, ale uwaga!!! istniejacy zostanie przepisany!!! teraz otwierasz plik (do przepisania): rewrite(plik);...

Pascal - szukam programu do wyświetlania wyników

Poszperaj u [url=http://www.polarhome.com:793/~franc... Marco.

Jak w PASCAL napisać program rozpoznający liczby parzyste i nieparzyste?

Witam Kod podany przez Łuk_F będzie działał tylko w przypadku liczb całkowitych: byte, word, integer, itd. Operatory mod muszą być typu całkowitego. Jeśli chcesz sprawdzić liczbę rzeczywistą to tak: if (frac(c)) <> 0 then Write ('Liczba NIECALKOWITA') else if (trunc(c) mod 2)=0 then writeln('parzysta')...

[Pascal] Dlaczego program w Pascalu wyświetla wartości 4 i 16? Analiza kodu

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...

[Pascal] Jak uruchomić program exe z poziomu innego programu w Pascalu?

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ę...

Sprawdzenie poprawności algorytmu Herona w programie Pascal

Zajrzyj do drugiego topicu, ktory zalozyles

Turbo pascal - Jak ugryźć początek programu tablica z funkcja randomize?

Proszę bardzo :[syntax=pascal]program losowanie; const dolny_zakres = 20; gorny_zakres = 59+1; {sprawdz skad te +1, bo nauczyciel na pewno zapyta} ile_liczb = 20; var x,liczba : integer; begin randomize; for x:=1 to ile_liczb do begin liczba:=random(gorny_zakres-dolny_zakres... write(liczba,','); end; writeln; end. [/syntax]

Jak poprawić dokładność odbicia piłki w programie Pascal?

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"....

[Pascal] Jak napisać program do przeglądania plików tekstowych?

zapamietaj IOResult do jakiejś zmiennej.

Pascal programowanie obiektowe - Program podający informacje o przedmiocie

Pozwolę sobie otworzyć temat i może odrobinkę Ci pomóc. Przeanalizuj taki kod : [syntax=delphi]unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TSamochod = class(TObject) nazwa : string; opis : string; end; TForm1 = class(TForm) ListBox1: TListBox; Label1: TLabel; Button1: TButton; Memo1:...

Pascal i VB. Program do naliczania prowizji i premii.

niewprawne oko różnicy nie zauważy:P stąd "troche" :) hehe --> program jest prosty do napisania tak w jednym jak i drugim języku, wystarczy znajomość samych tylko podstaw kodowania w jednym z powyższych.

Pascal i prosty program... dzielenie, drukowanie wyniku itp.

Co znaczy nie śmiga? Jakiś błąd, złe wyniki? Nie masz średnika miedzy readln a end.

Turbo Pascal: Jak dokończyć program obliczający pole trójkąta?

Brakuje średnika na końcu w trzeciej linijce od dołu

Błąd kompilacji w programie Pascal do obliczania miejsc zerowych

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...

Turbo Pascal błąd napisanego programu, nie widzę przyczyny

[syntax=pascal]Program xyz; uses crt; Var cyfra:integer; odp:char; Begin clrscr; Write('Hello, podaj cyfre 4'); Readln(cyfra); if cyfra =4 then writeln('tak to cyfra 4'); if cyfra <>4 then writeln('ty kretynie to nie cyfra 4'); delay(3000); Write('czy 4+4 to 8?'); Readln(odp); if odp ='t' then writeln('brawo, Enstein z ciebie'); if odp <>'t'...

Błąd w programie Pascal - poprawna składnia dla polecenia write

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);...

[PASCAL] Jak zsumować i posortować liczby z tablicy w programie?

[syntax=pascal]program abc; uses crt; var ania:array [1..5] of integer; i,j, suma : integer; begin clrscr; for i:=1 to 5 do begin write('podaj ',i,' element do tablicy '); readln(ania[i]); end; suma:=0; for i:=1 to 5 do begin suma:=suma+ ania[i]; end; writeln('suma: ',suma); repeat until keypressed; end.[/syntax]

[PASCAL] [C++] Potrzebny program który w pentli będzie znajdować największą...

Nie powinienem dawać gotowca, ale widzę, że często udzielasz się na Forum. W podanych kodach możesz wprowadzać liczby rzeczywiste. [syntax=cpp] #include <iostream> using namespace std; float liczba,mx=0; int main() { cout.precision(2); do { cout<<"podaj liczbe, podanie 0 konczy program "; cin>>liczba; if(liczba>mx) { mx=liczba;...

Pascal: Zapętlanie się programu przy losowaniu bez powtórzeń w procedurze nauka

Witam, Może tak będzie dobrze: program tabliczka_mnozenia; uses crt; var ByloA: array [0..9,0..9] of Boolean; a, b: Byte; wybor,i1,i2,e,wynik: integer; c:char; //--------------------------------------... procedure Zeruj; begin for i1:=0 to 9 do for i2:=0 to 9 do byloA[i1,i2] := false; end; //--------------------------------------...

[Pascal] Błąd przy uruchamianiu programu w Pascalu do sumowania ciągu liczb

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

[Pascal] Jak dodać statystyki do programu Lottomat w Pascalu?

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...

Jak dodać nową opcję w programie Pascal do wprowadzania danych klienta?

data: array[..] of array[..] of ...; I poczytaj o recordach.

[Pascal] Jak napisać program generujący przebieg trójkątny od 1000 do 2000?

i:=0; x:=0; repeat ......... if odd(i div 1000) then x:=x-1 else x:=x+1; i:=i+1 until DoKiedyChcemy;

Pascal - jak znaleźć pozycje spacji w zdaniu i poprawić kod?

[syntax=pascal] Program piszacy_ilosc_spacji; Var wyraz:String; x,dlugosc,ile:integer; Begin Write( 'napisz zdanie : ' ); ReadLn( wyraz ); Writeln; dlugosc:=length(wyraz); ile:=0; for x:=1 to dlugosc do begin if wyraz[x]=' ' then begin ile:=ile+1; Writeln('spacja znajduje sie na: ',x,' miejscu'); end; end; writeln('Spacja wystapila: ',ile, ' razy');...

Pascal - rozkład na czynniki pierwsze, błędy w kodzie, niepoprawne wyjście

Właściwie było nieźle, wystarczyło to uruchomić i poprawić. Teraz jest tak: [syntax=pascal] program project1; var n, k, k1: LongInt; begin Readln(n); k := 2; k1:=-1; Write(':'); while n > 1 do begin while n mod k = 0 do begin n:=n div k; k1:=k; end; if k1 = k then Write(' ',k); k := k+1; end; WriteLn; ReadLn; end. [/syntax]

[Free Pascal] program wyswietlajacy nazwy dni tygodnia

w pewnym sensie podałeś na tacy, z tym że w dwóch programach które mi podałeś jest zmienna typu tablicowego array i typu record a ja wyraźnie napisałem ze potrzebuje zmienna typu wyliczeniowego do mojego programu. Ale i tak dzięki za pomoc, jakoś już sobie poradzę...

[Pascal] Program losujący 5 liczb bez powtórzeń.

A nie można użyć własnego algorytmu do losowania. Trochę tego jest, głównie oparte o liczby pierwsze. Sam generator może już zapewnić wylosowanie bez powtórzeń.

[Pascal] Jak poprawić program bramek logicznych? Błąd w wyborze bramki OR

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...

Ocena programu w Pascalu: rekordy i losowanie liczb 1-49 bez powtórzeń

Trochę przekombinowałeś. Tak powinna wyglądać poprawna deklaracja dla tego zadania. [syntax=pascal]program rekordy; uses crt; type lotek = packed record jeden : byte; dwa : byte; trzy : byte; cztery : byte; piec : byte; szesc : byte; end; var wyniki_losowan : array[1..1000] of lotek;[/syntax] Zmieniłem integer na byte, bo wartości masz małe i w ten...

[Pascal] Jak usunąć tylko kropki z ekranu w animacji ładowania?

Odpowiadając krótko na pytanie - procedura ClrEol Przykład powinien wszystko wyjaśnić: [syntax=pascal]program Test; uses crt; var i, j: Integer; begin ClrScr; Write('Nacisnij dowolny klawisz'); repeat for j:= 1 to 5 do begin Write('.'); Delay(20000); end; GotoXY(WhereX - 5, WhereY); ClrEol; until Keypressed; end.[/syntax] Resztę musisz doczytać w pomocy...

PASCAL - Program obliczający największy skok temperatury.

Kompiluje się.Pomoże ktoś z tym obliczaniem ?

[Pascal] Jak napisać generator losowego ciągu znaków w Pascalu?

Proponuję sprawdzić taki kod : [syntax=pascal]program generator; uses crt; function LosowaZZAkresu:char; var result : char; begin repeat result:=Chr(random(255)); until result in ['0'..'9','A'..'Z']; LosowaZZAkresu:=result; end; var s : string; i : integer; begin randomize; s:='XXXXX-XXXXX-XXXXX-XXXXX-XXXXX'; for i:=1 to Length(s) do begin if s[i]='X'...

[Pascal] Baza danych, nie zapisuje rekordu do tablicy, niezgodność typów

Zmienna globalna, inicjujesz na początku programu.

Delphi/Pascal - Program z Memo Nie działa jak powinien

Witam Dostałem takie zadanie do rozwiązania i nie mam zielonego pojęcia jak to zrobić. Opracować aplikacje, która wykorzystuje komponent Memo do wprowadzania wymiarów prostokąta(długość i szerokość). Nie więcej niż 20 prostokątów. Każda linia Memo zawiera dwa wymiary jednego prostokąta rozdzielone znakiem dwukropka. Okienko główne powinno zawierać także...

[Pascal] Program zamieniający liczbę binarną na dzięsiętną.

:/ To dopiero 2 liceum, więc o żadnych "niezwykłych" binarnych nie miałem nic jeszcze. Próbuję zamienić tą liczbęna dziesiętną takim posobem: 1)wpisuję liczbę binarną jako string np 1101 2)sprawdzam ile jest cyfr za pomocą dlugosc:=length(liczba) 3)for i:=1 to dlugosc do if liczba[i]='1' then a[i]:=1 else if liczba[i]='0' then a[i]:=0 4)no i teraz mam...

Algorytm w Pascalu: liczby 1-100 podzielne przez 7, 8, 9

W zasadzie to ta funkcja nigdy nic nie zwróci bo NWW dla 7,8 i 9 to 7*8*9 czyli 504. Ale można to zrobić tak: [syntax=pascal]program podzielne789; var i,j: integer begin writeln('NWW dla 7,8 i 9 to: '); for i = 7 to 100 do begin j:=(i mod 7)+(i mod 8)+(i mod 9); if j=0 then begin write(i); write(', '); end; end; end.[/syntax] Szkoda że musieliśmy dać...

[PASCAL] Program Biblioteka procedura wypożyczenie książki i zwrot książki

Ale co to właściwie ma być? Nie widzę struktur na przechowywanie "bazy danych", a przynajmniej jakiegoś jej streszczenia. Jeżeli chcesz obsługiwać bardzo dużo rekordów (książek, ludzi, wypożyczeń) to musisz użyć (albo napisać) jakiejś bazy danych, co najmniej z indeksowaniem rekordów. Dla małej ilości wystarczą tablice i pliki i o to chyba tu chodzi....

[Turbo Pascal] Jak w Turbo Pascalu stworzyć program uruchamiający się przy starcie systemu?

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...

Pascal - program wyszukujący 3 największe liczby z pięciu

Nad czym kolega siedzi? Proszę przedstawić owoc "posiedzenia" albo temat, z tytułu naruszenia pkt. 3.1.17.[url=http://www.elektroda.pl/rtvf... regulaminu, wyląduje w koszu.

Pascal program szukający największej liczby z pośród trzech.

Dobry Wujek Google - szukaj: prównywanie trzech liczb... i pierwszy link jaki znalazłem [url=http://a-b-c-abc.webpark.pl/]Link. A tam rysunek 1.3 i stosowny opis. Masz więcej niż potrzebujesz... Postaraj się ten schemat dobrze zrozumieć i zakodować w Pascalu.

[PASCAL] Jak zapisać dane z programu do pliku tekstowego?

Poszukaj pliku z rozszerzeniem *.pas w którym to pisałeś, otwórz go notatnikiem i kopiuj co potrzebujesz.

[PASCAL] Program wyznaczający największy liczbę spośród 4 zmiennych

nie umiem, bo w szkole właśnie w ogóle nie mieliśmy zajęć na temat rysowania grafów.. ;/ mógłbyś mi pomóc w zrobieniu tego programu, jakieś podstawy umiem PASCALA i patrząc na dobrze zrobiony program zwykle potrafię wywnioskować gdzie robię błędy i dlaczego tak a nie inaczej ma to być zrobione. Bardzo bym cię prosił, :)

Pascal: Program z tablicą znakową i liczenie liter w tekście

OK wszystko działa jak powinno wielkie dzieki i pozdro all.:D

Pascal - Jak znaleźć najczęściej występującą liczbę w losowaniu 1000 liczb?

Bardziej chodzi o coś takiego : [syntax=pascal]program los; uses crt; var tab:array[1..100] of longint; i,a,max : integer; begin for i:=1 to 100 do tab[i]:=0; {zerowanie tablicy - zazwyczaj zbedne} clrscr; randomize; for i:=1 to 100 do inc(tab[random(99)+1]); {losowanie} a:=0; max:=0; for i:=1 to 100 do begin writeln('Liczba ',i,' zostala wylosowana...

[Free Pascal]Program testuje zmienną z wykorzystaniem bitu parzystości ??

Otóż problem taki jak w temacie. czy ktoś wie jak to napisać, oczywiście we Free Pascalu ?? Program testuje zmienną z wykorzystaniem bitu parzystości ??

Jedno zadanie w pascalu. Program do obliczania pola figur.

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}...

Jak napisać program w Pascalu do zliczania elementów w tablicy?

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}...

Jak zdefiniować precyzję obliczeń w Turbo Pascal? Program przekątna prostokątna

Nie napisałeś dokładnie, co to za błąd, ale jeśli jest błąd dzielenia przez 0, to zainstaluj sobie patcha na TP albo przejdź na Free Pascala. A w tym akurat programie możesz się przecież obyć bez modułu Crt - to też powinno rozwiązać problem.

Pascal – program z procedurami, nie działa powtarzanie i wybór ramki (kod)

witam z tego co widzę to masz niezłą rekurencję w tym programie a po co ? oto moja propozycja (program bez zadnych zabezpieczen ;) ) Procedure start; Var numer:byte; Begin Writeln('1 - Ramka Pierwsza 2 - Ramka :'); Readln(numer); if numer=1 Then Begin Writeln('I--------------------------... Writeln('I P U S T o I');...

Pascal: Program rozkładający liczby na czynniki pierwsze z użyciem pętli while

Witam! Dopiero zacząłem przygodę z Pascalem i mam problem z pewnym zadaniem. " Napisz program rozkładania dowolnej liczby na liczby pierwsze, który po wczytaniu liczby z klawiatury wyprowadzi komunikat - liczba pierwsza/liczba złożona - stosownie do sytuacji. Wykorzystaj pętlę while". Z góry dziękuję za wszelką chęć pomocy :) Obrazki wstawiamy wg

Program - aproksymacja metodą najmniejszych kwadratów. Turbo Pascal.

mowisz i masz (w pascalu i metoda najmnijeszych kwadratow):

[Pascal] Jak uniknąć powtórzeń i sprawdzić trafienia w programie Lotto w Pascalu?

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...

Pierwszy wywiad z sztuczną inteligencją ElektrodaBot - zapraszam do zadawania pytań!

(at)ElektrodaBot Napisz kod programu w języku Turbo Pascal, program ma odczytywać dane z portu $300 i w sposób graficzny pokazywać je na ekranie, wynik na ekranie ma się przewijać wraz z nowymi danymi.

[pascal] [Pascal] Błąd kompilacji przy sumowaniu pięciu cyfr - co robię źle?

Jaki rodzaj błędu występuje? Nie pamiętam Pascala, ale może po linijce "program fffffffffffff" daj średnik. Pozdrawiam.

[PASCAL]Potrzebny program dodający liczby binarne.

Witam, piszę tutaj do Was z prośbą, o program który być może ktoś posiada(może być podobny, byle bym miał jakąś podstawę), lub też byłby w stanie go napisać za darmo, czy też nie - można się dogadać. A więc, potrzebuję program w pascalu na zaliczenie. Program ma dodawac liczby binarne podane w pliku wejsciowym. Można założyć, że każda liczba ma nie...

Program obliczający logarytm nat. z liczby - PASCAL

Dla |x|<1 można logarytm przybliżyć szeregiem: ln(x)=(x-1)-\frac{(x-1)^2}{2}+\frac{(x-1... ... trzeba przeskalować x do zakresu 0<x<1 i dopiero liczyć logarytm inne przybliżenia to: ln(\frac{1+x}{1-x})=\sum\frac{x^{2k-1}}{... dla k=1 do ∞ ln(1+x)=\sum\frac{(-1)^{k+1}}{k}*x^k dla k=1 do ∞

[Turbo Pascal] Okno programu zamyka się bardzo szybko.

:arrow: qnx: Patch na TP/BP 7.0 (poprawka bibliotek kompilatora) JEST autoryzowana przez firmę Borland (Inprise) i działa w 100% poprawnie. Patch należy stosować na komputery z CPU >200MHz. Poprawka na programy skompilowane to inna sprawa - jest ich kilka ale żadna nie jest autoryzowana przez Borlanda.

Jak stworzyć schemat blokowy dla programu z tablicami w Dev Pascal?

Ależ to jest wręcz liniowy program wyłącznie z pętlami. http://www.algorytm.org/kurs-algorytmiki... - na dole strony.

[Turbo Pascal] Kod programu programatora uC rodziny '51

Może łatwiej będzie zainstalować jakiś inny program do zaprogramowania tego uC ? PonyProg ? IC-Prog ?

[Turbo Pascal] Jak stworzyć chat w Turbo Pascal z ciągłym pisaniem bez zamykania programu?

while 1=1 do zmień i zobacz dawno pascal'a nie używałem Pozdrawiam!

[Turbo Pascal 7.0] Kilka pytań na temat pisania programów

No dobrze ale jak mam wpisać żeby program zapisywał odpowiedzi użytkownika a nie pytania które on dostanie na ekranie? Bo ja zakładam, że te odpowiedzi mogą być za każdym razem inne. Odpowiedź jest dokładnie wciąż ta sama. Skoro odpowiedź jest zapisywana do zmiennej poprzez readln, to tą zmienną należy zapisać do pliku. [syntax=pascal]writeln(f, 'Chciałbym...

Pascal - MAIN - Program Wywłaszczony - jak napisać poprawnie kod?

Nie znam Pascala, ale rzuciło mi się w oczy, że tworzysz jakiś typ TNowy, którego chyba nie używasz... (?)

[Pascal] Jak zapisać dane do pliku txt w Turbo Pascal?

Ta odpowiedź jest bardzo niestaranna. Brakuje zamknięcia pliku Może, ale raczej niepełna... miała być wskazówką czego szukać a nie bezbłędnym rozwiązaniem problemu. Kolega Kuba dopiero uczy się programować i jeśli sam nie nauczy się szybko szukać potrzebnych informacji w dokumentacjach, helpach, Internecie,... to będzie miał problem z samodzielnym...

Program zamieniający mały litery na wielkie [Pascal/C++]

Zobacz nagłówek ctype.h (albo cctype w C++) i funkcję int toupper(int c); Pozdrawiam, Dr.Vee

[Pascal] Jak wrócić do menu po dopisaniu danych w programie?

Zmień procedurę Zapis, np. w ten sposób : [syntax=pascal]procedure zapis; begin repeat clrscr; assign(f,'c:\fpc\samochod.txt'); rewrite(f); writeln('Podaj marke samochodu'); readln(p.marka); writeln(f,p.marka); writeln('Podaj kolor'); readln(p.kolor); writeln(f,p.kolor); writeln('Podaj numer rej.'); readln(p.numer_rej); writeln(f,p.numer_rej); writeln('Podaj...

Jak sprawdzić parzystość wskaźników w macierzy i losować współczynniki?

1. Program, nie może się nazywać tak samo, jak jedna z procedur : [syntax=pascal]program dodaj_macierz; [...] Procedure dodaj_macierz(Var x,y,z:mac;w,k:byte); [...][/syntax]Bo otrzymasz błąd powtórzenia identyfikatora. 2. Skoro dane w macierzy mają być losowe od 0 do 10, to po co czytasz je z klawiatury ? [syntax=pascal]Procedure czytaj_macierz(Var...

[Turbo Pascal] Jak zmodyfikować program w Turbo Pascal do rysowania piramidki?

czy da sie ten programik przerobic na inna forme tz chodzi mi o to aby nie byl tak samo napisany ale zeby robil to samo <mam nadzieje ze wiecie o co chodzi> program PIRAMIDKA; uses Crt; {uzycie biblioteki Crt} var wiersze,i,j:integer; {deklaracje zmiennych} znak:char; BEGIN clrscr; write('Wprowadz znak do rysowania...

Pascal - nieprawidlowe działanie programu po kompilacji

Po prostu uczę się pisać programy w tym języku bez jakichkolwiek kursów. Miałem tylko styczność z c++ i dlatego jestem przyzwyczajony, że jeżeli kompilacja przebiegnie pomyślnie to dla mnie oznacza to że program napisany jest poprawnie. Dlatego piszę teraz ten post byście mi pomogli i ewentualnie poprawili coś w kodzie lub podpowiedzieli. Ten program...

Program do automatyzacji klawiszy na podstawie zmiany koloru na ekranie

Tak jak myślałem nie jest to związane z VBA. Sugerowałbym użycie np C, Pascal.

Free Pascal: Jak napisać program z sercem z gwiazdek dla dziewczyny?

Pascala nie używałem już kilka lat ale mnie więcej kod źródłowy tak będzie wyglądał. [syntax=pascal]program serce; var decyzja:string; begin repeat writeln ('Kocham Cię'); write ('Chcesz zobaczyć resztę? (T/N)'); readln (decyzja) until (decyzja = 'T'); writeln(' §§§§§ §§§§§'); writeln(' §§§§§§§§§ §§§§§§§§§'); writeln(' §§§§§§§§§§§§ §§§§§§§§§§§§'); writeln('§§§§§§§§§§§§§§§§§§§§§§§§§§§§');...

[Pascal] Pascal – błąd Can't find unit PORTS przy sterowaniu portem LPT, brak biblioteki

Spróbuj tak :[syntax=pascal]program porty; begin port[$378]:=255; end. [/syntax] W Turbo Pascal 7.0 działa bez problemu.

Pascal: Jak przekazać wskaźnik do funkcji i wywołać ją w programie?

Jednym słowem - callback. type TCallback = function(dane : TRekordDanych; x : cośtam) : Integer czy cokolwiek; PCallback = ^TCallback; function RobCosIWywoluj(proc : PCallback; par1, par2 : parametry) : Integer; begin ... proc^(dane, par1); ... end; Chyba da się też obejść bez typu PCallback, stosując...

Program do automatyzacji komend AT dla modemów - Delphi/Pascal

Odnośnie literatury polecam książkę "Obsługa i budowa modemu" Autorstwa L.i M. Dziczkowskich! Znajduje się tam dokładny opis At-komend. Ciebie interesuje tzw. program wsadowy (*.bat) Można utworzyć plik .txt i spróbować go skopiować do portu COM. Ale prawie po każdej komendzie AT następuje odpowiedź do terminala! Więc konieczna jest pauza po każdej...

[Turbo Pascal] Jak przenieść program z Turbo Pascal do Delphi i wyświetlić liczby na ekranie?

Delphi to pascal . Praktycznie wszystkie programy napisane w paskalu są kompilowane i uruchamiane w Delphi . Różnica istnieje w pewnych typach .Np. w pascalu typ ineger był 16 bajtowy natomiast w delphi od wersji 2 jest 32 bajtowy .Tak samo w pascalu real był 6 bjtowy ( odpowiada to w delphi real48) natomiast w delphi jest traktowany jako double . Tak...

Jakie rodzaje wyszukiwania są używane w programach Pascal?

Mo, ten trzeci niby wyszukuje "jakiśtam" zakres liczb w tablicy... więc "na siłę" albo "upartego nauczyciela" można uznać że jakieś wyszukiwanie tam jest.

Tworzenie własnych modułów w Turbo Pascalu 7.0 - przykłady i wskazówki

Wszystko ok tylko bez "procedure" tzn: [syntax=pascal] program testmoduluaaa; uses crt2, aaa; begin writeln('Wpisz cos'); czyt_z_klawiatury; [/syntax]

Program np. C++, Pascal i schemat blokowy do programu

nie dziala bo ciagle pokazuje ze mam wpisywać a i potem program się zamyka Program się zamyka, bo wykonuje się błyskawicznie, wyświetla wynik, a system operacyjny napotykając return od razu zamyka okno programu. Możesz po wyświetleniu wyniku, a przed return dodać coś takiego: [syntax=c]system( "pause" );[/syntax]

Dev-C++ – jak wyświetlać polskie znaki w konsoli, różne kodowanie CP1250/CP852

Program pisałem na konsoli, aby w prosty sposób ominąć problem polskich liter (właściwie to problemu w tym przypadku nie było). Temat postu wyniknął stąd, że chciałem pisać w środowisku Dev-C++ lub Dev-Pascal programy dla konsoli z polskimi literami. Pisanie funkcji od podstaw to element nauki... Można wogóle korzystać z gotowych programów i nie uczyć...

Pascal ogólne informacje/ dotyczy tablic, rekordów...

[syntax=pascal]program gwiazda; uses CRT ; var g: byte; k: char; BEGIN clrscr; begin for g:= 1 to 20 do writeln ('*'); readln; end; END. [/syntax] Co mam zrobić, aby przed każdą gwiazdką stawić numerację?? PS. Może ktoś jasno wyjaśnić tablicę? tzn. [syntax=pascal]program tablice; var tab: array of [1..20] of string; begin end. [/syntax] Moje pytanie...

pascal - proszę o sprawdzenie programu

Kolega Minner to chyba we FreePascalu pisał? W Turbo ta procedura losowania nie przejdzie. Po drugie co to za sposób sortowania? Na pierwszy rzut oka, wydaje mi się, że jest wolniejsza od sortowania bąbelkowego, a poza tym nie zawsze działała mi prawidłowo. Kompletnie nie rozumiem o co w niej chodzi - mógłbyś ją objaśnić? Poniżej napisałem najprostszy...

Jak zapisać odsetki do tablicy w programie Pascal?

Slicznie dziękuje tyle ,że nie rozumiem do końca działania tego programu a dokładnie działania funkcji, gdybym mógł prosić o wyjaśnienia krok po kroku.

Pascal, błąd w programie, inne polecenie zamiast gotoxy?

kod programu który ma być wykonywany przy danym warunku musi być wzięty w klamrę begin - end tak jak to masz zrobione dla else

Jak napisać algorytm emulatora minutnika w Turbo Pascal 7.0 na Windows XP?

Może nie jest to idealne rozwiązanie, ale spełnia postawione przez ciebie warunki. [syntax=pascal]program minutnik2; uses WinDos,CRT; const co_ile_godzin = 0; {ile godzin ma trwac odliczenie} co_ile_minut = 30; {ile minut...} co_ile_sekund = 16; {ile sekund...} kod_reset = 'reset'; {kod resetujacy zegar} kod_koniec = 'koniec'; {kod zamykajacy program}...

[Turbo Pascal] Jak przenieść program z Turbo Pascal do Delphi z użyciem modułu DOS?

Hmmm... no chyba, że chcesz stworzyć idealną kopię programu w Delphi, to odpalasz new->console application, robisz ctrl+c, ctrl+v i cieszysz się, że program kompiluje się pod Delphi... bo prawda jest taka, że większość prócz BGI zostało przeniesione z TP do Delphi, wiec nie powinienes miec wiekszych problemow z kompilacją...

Szukam programu do czasowego sterowania portami LPT/COM z listą zadań

Kolego a umiesz pisać w jakims programie np PASCAL

Jak w Turbo Pascal użyć komend AT do wysyłania SMS przez modem Nokia 6210?

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...

Błędy w programie Pascal - wyświetlanie imienia użytkownika

1. No gdyby był trudniejszy, to bym zaczął marudzić, że kawa mi się rozpuściła i nie widać błędów, a szklana kula potłukła... 2. W nazwach: programów , zmiennych, stałych, procedur, funkcji nie wolno stosować znaków spoza zakresu A-Z,a-z,0-9,_ (ANSI, a więc z podstawowego zakresu tablicy ASCII) a na dodatek pierwszym znakiem musi być litera lub _ 3....

[Pascal] Jak stworzyć szyfr zamieniający z użyciem tablicy dwuwymiarowej?

Proszę zapoznać się z tymi tematami : [url=http://www.elektroda.pl/rtvforum/to... Kodowanie metodą zamiany znaków. [url=http://www.elektroda.pl/rtvforum/to... PASCAL] Program do zabezpieczania danych

[Turbo Pascal] Czy schemat blokowy dla programu w Turbo Pascal jest poprawny?

Mógłbyś mi powiedzieć, który dokładnie warunek jest źle zapisany? Zależy mi na tym aby schemat w całości odpowiadał temu co jest zapisane w kodzie programu.

[Pascal] Jak napisać program w Pascalu: wektor wierszowy o zmiennym wymiarze?

Wygląda dobrze :) Można tylko nieco zoptymalizować wyszukiwanie liczb pierwszych - wystarczy szukać do połowy z badanej liczby.

[PASCAL] kalkulator do liczenia azymutu. Blad przy UNTIL

Do czego odnosi się ten powodujący błąd 'until'? Powinien chyba do 'repeat' na początku programu, ale go tam nie widzę.

[Pascal] Pascal Turbo: Komunikat Błąd 36: BEGIN expected przy prostym programie – co poprawić?

Ten twój kod działa bez problemu. No chyba, że wpisałeś do kodu tę gwiazdkę ' * ' na początku. Usuń ją razem z całym wpisem : * P000.PAS , to nie jest cześć kodu programu. Następnym razem proszę używać znaczników CODE , żeby było wiadomo gdzie kod się kończy, a gdzie zaczyna.

Jak naprawić błąd 'compile failed' w programie Pascal?

To ja trochę rozwinę, bo coś z tego języka jeszcze pamiętam. Po pierwsze napisy nie będące kodem języka, jak na przykład dom, umieszczamy w apostrofach: [syntax=pascal]if haslo = 'dom' then[/syntax] Po drugie brakuje średnika po ostatnim writeln. Z innej bajki, to kompilator pascala powinien wypisywać dość proste w zrozumieniu komunikaty i nawet pokazywać...

[PASCAL] Jak napisać program w Pascalu do dzielenia pisemnego z użyciem pętli?

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ć...