programy pascal

Sprawdzenie poprawności algorytmu Herona w programie Pascal

Zajrzyj do drugiego topicu, ktory zalozyles

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

Nie znalazłeś odpowiedzi? Zadaj pytanie Sztucznej Inteligencji

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

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

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

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

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

Zmienna globalna, inicjujesz na początku programu.

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

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

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

[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 - szukam programu do wyświetlania wyników

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

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

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

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.

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

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.

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

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 do przeglądania plików tekstowych?

zapamietaj IOResult do jakiejś zmiennej.

Błąd w programie Pascal do interpolacji Newtona - analiza kodu

Hmm... U mnie programik śmiga, wkleiłem kod i odpalił.

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

Jak zastosować procedury w programie Pascal do obsługi plików z pytaniami?

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

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

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

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

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

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]

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

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 ∞

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.

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

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

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

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

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

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

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

Jak uruchomić stare programy Turbo Pascal na nowoczesnym Celeron 450?

Mam parę starych programów napisanych w Turbo Pascalu (niestety dość dla mnie ważnych). Programy działały bez problemu na starych maszynach 486, K6-233 itp. Niedawno zdecydowałem się jednak na wymianę sprzętu na nowoczesny :-) Celeron 450. Przy próbie uruchomenia programów komputer wyświetla błąd w rodzaju: 'runtime error at.....' Słyszałem, że winę...

[Pascal] Jak wypełnić linię pobranym znakiem w poziomie?

Napisać ci kompletny program ?

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

Program w Pascalu: operacje arytmetyczne na liczbach binarnych w tablicach

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.

Pascal - Jak zapisać dane pracownika i obliczyć średnią pensję?

Bardzo proszę o kod źródłowy takiego programu.

PASCAL - zadanie z tablicami - jak się za nie zabrać?

No z tym wojem to był dobry argument... Tylko to szczyt, żeby nie znać nawet szkieletu programu...

Jak w Pascalu zapisać bity z BYTE do tablicy boolean?

Program w pascal-u który zamienia zmienną byte na jej reprezentację bitową : program Project2; uses CRT; FUNCTION Dec2Bin(Dec:byte):String... var B1:byte; Bin,BinDigit:STRING; begin BinDigit:='01'; Bin:=''; repeat B1:=DEC MOD 2; DEC:=DEC DIV 2; Bin:=CONCAT(BinDigit[B1+1 ... until DEC<1;...

[Pascal] Jak w Pascalu przypisać tablicy unikalne losowe liczby?

do czego służy słowo "break"? jest pod koniec programu

Program w Pascalu przy użyciu procedury (który poprawny?).

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.

prosty program w pascalu: czy 3 punkty są współliniowe

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

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

[Turbo Pascal] Kod programu programatora uC rodziny '51

Skompilowany program.

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]

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

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.

Problem z programem z Pascalu(rekordy).Przyparty do muru

Witam Zmodyfikowałem program który napisałeś. Jakby jakieś pytania to pisz. Pozdrawiam.

Program w Pascalu: sortowanie rekordów i wyświetlanie danych osób

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

[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 - 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] Jak dodać kolejne pytanie po wyborze odpowiedzi w grze?

[syntax=pascal] if OdpowiedziUdzielone[2]=1 then begin // zadanie kolejnego pytania end;[/syntax] Strasznie dziwna struktura programu.

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]

Pascal - jak napisać kalkulator ułamków z funkcjami arytmetycznymi?

Nie zwracasz wartości z funkcji, zamiast tego wypisujesz w nich wyniki. Dlatego pewnie jakieś głupotki wychodzą. Zwracanie wartości z funkcji w pascalu wygląda tak (o ile pamiętam): [syntax=pascal] function suma(a,b : real) : real; begin suma := a + b; end;[/syntax] Nic nie musisz wyświetlać w samej funkcji bo wyświetlanie masz w głównym programie na...

[Pascal] Borland Pascal 7.0 - jak obejść limit 300 zmiennych?

Jeśli potrzeba tak dużej ilości zmiennych, to może warto byłoby skorzystać z tablic? A może część zmiennych nie jest niezbędna do działania programu...

[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!

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

[pascal] Obsługa LCD alfanumerycznego przez port LPT

Odblokowywuję port poprzez program UserPort co napisałem wczesniej. Po podłączneniu diod i napisaniu odpowiedniego programu diody migają nawet pod systemem WinXP dzięki temu programowi

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

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

[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] Jak zaimplementować menu w Pascalu do obliczeń statystycznych?

zrób menu w procedurze potem w następnych procedurach obliczenia a w głównej funkcji programu je wywołaj i nałóż na to pętle repeat coś w stylu "czy chcesz zakończyć program"

[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 ?

Jak uruchomić program w Pascalu bez pokazywania kodu źródłowego?

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 zatrzymać program w Pascalu po obliczeniu funkcji kwadratowej?

dopisać przed ostatnim end-em instrukcję readkey; albo readln;

Jak napisać program w Pascalu do sterowania portem LPT?

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.

Jak narysować schemat blokowy dla programu w Pascalu obliczającego udziały?

Schemat blokowy ;) http://pl.wikipedia.org/wiki/Schemat_blo... Teraz pokaż co stworzyłeś :D

Błędy podczas kompilacji programu w języku Pascal

robie to we free pascalu. Więc co mam przkopiować i do jakiego folderu

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

[Pascal] Jak w Pascalu zapisać wczytaną liczbę całkowitą słownie?

Zapętliłem się na dobre, nie wiem jak "dołożyć" do tablicy drugi wymiar czyli zapis słowny jedności do następnej tablicy dziesiątek itd. W załączeniu kawałek tego programu

[PASCAL] Sprawdzanie podzielności liczby rzeczywistej przez 3 - błąd typów

tak tylko w tedy powie że jeszcze takich rzeczy jak "frac" czy "int" nie mieliśmy... chodzi mu oto żeby gdy liczba jest podzielna przez 3 została wyświetlona odpowiedź a jeżeli nie no to...eeee...żeby zatrzymać program

Jak napisać program do ograniczenia czasu gry na komputerze?

Programy piszesz w taich programach: - Delphi - Pascal - C++(dla zaawansowanych)

Błąd w programie Turbo Pascal - zmienna 'n' niezainicjalizowana, brak wartości 'x'

Na przykład 4

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

Jak napisać program w Pascalu do obliczania pola pod wykresem funkcji?

dopisać readln;

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

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] Jak obliczyć liczbę składników sumy przekraczającej n w Pascalu?

Dobre, tylko jak na to wpasc. Dodano po 1 Moglbys to po krotce wyjasnic dzialanie tego programu?

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

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

Kolego a umiesz pisać w jakims programie np PASCAL

[Turbo Pascal] Jak narysować schemat blokowy i naprawić program w Turbo Pascal?

1. Co nie chce działać? 2. Jakie były założenia? 3. Jeśli robisz przedziały rozłączne, to radzę stosować instrukcję else w celu ograniczenia ilości sprawdzanych warunków.

Pascal: Jak zadeklarować tablicę o zmiennej wielkości w funkcji?

Hmmm.. to dziwne bo dają mi takie programy do zrobienia na strukturach danych i algorytmach. i to jest drugi taki program. Dodano po 22 Co do WinAPI to zalezało mi aby z poziomu pascala napisac taki program