Podmień procedurę RAMKA na taką : procedure ramka(x1,y1,x2,y2:byte); var poz,pio:char;i:byte; begin poz:=Char(205); pio:=Char(186); for i:=x1+1 to x2-1 do begin GoToXY(i,y1); write(poz); GoToXY(i,y2); write(poz); end; for i:=y1+1 to y2-1 do begin GoToXY(x1,i);...
[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'...
Nadal za mało informacji... Oto przykład rozwiązania podobnego problemu w Turbo Pascalu (pod WinXP należy odblokować porty przy pomocy UserPort): uses crt; var stan: byte; p: char; begin repeat p:=readkey; write(p); if p='w' then begin stan := port[888]; {odczyt portu} port[888] := stan or 16; {16...
na char?? eee ale jak to zrobic?? Jak mam odczytac wartosc pliku tekstowego na char??
ze zmiennej moge sie wytłumaczyć, bo sprawdzałam taką bo kompilator jakis taki komunikat wyświetlił, możesz jaśniej powiedzieć mi, który kawałek jest zbędny i dlaczego? :) jak zmienna jest char, wyskakuje inny blad:/:/
Witam. Mam problem z pascalem ;) Mianowicie źle dzieli mi liczby na moim mini kalkulatorze, oto kod: program kalkulator ; [syntax=pascal]uses crt; var a,b : real; w1 : double; znak : char; procedure dodawanie; begin w1:=a+b; end; procedure odejmowanie; begin w1:=a-b; end; procedure mnozenie; begin w1:=a*b; end; procedure dzielenie; begin w1:=a/b; end;...
Otóż chcę skompilować pod XP program, który został napisany osiemnaście lat temu w Turbo Pascalu. W tym celu chciałem go skompilować pod Free Pascalem. Poprawiłem kilka błędów, spowodowanych różnicami między TP i FPC, aż zatrzymałem się na takich: nazwa_pliku.pas(1820,10) Error: Incompatibile types: got "FarPointer" expected "^nazwa_wskaznika" nazwa_pliku.pas(1825,10)...
W Pascalu choć dość niekonwencjonalnie ale działa (choć pewnie nie pod Windowsem XP): Program Joy; { Read Joystick positions and button states } Uses DOS, Crt; Const Buttons : Byte = 0; Joystick : Byte = 1; JoyIntr : Byte = $15; JoyFunc : Byte = $84; LastKey : Char = ' '; Var { Variables for Joystick 1 } Joy1Vert...
Witam Mam następujący problem. Napisałem program który wysyła z jednego komputera ciąg znaków. Działać ma pod DOSem i tylko DOSem ... napisany jest w turbo Pascalu. Program czyta z portu COM1 nadchodzące dane... czyżby?? Czyta jakieś bzdury!! Zamiast czytać takie dane jakie przychodzą na port to program wypisuje mi same znaki r z daszkiem... A żeby...
Po wielu dniach szukania znalazłem na naszym forum program w Turbo Pascal'u który radzi sobie z obsługą portów COM a w tym wypadku portu COM3. Moje pytanie jest następujące: jak zmodyfikować ten kod aby program mógł obsługiwać port COM5 o adresie $2F0 zamiast COM3 o adresie $3E8? Co znaczy ten odcinek kodu na początku w procedurze INIT czym są te zmienne,...
Moduł skompilowałem, ale pojawił się kolejny problem. Gdy w programie próbuję go użyć wywala mi błąd ''Type mismatch'' Moduł który napisałem: Proszę pamiętać o używaniu znaczników syntax . Opcja Listing kodu . - arnoldziq
Spruboj tak, powinno dzialac, ale nie mam przy sobie TP, wiec moga byc jakies bledy skladniowe, itp.: Program Lista; Uses crt; var l: array [ 0 .. 255 ] of real; n: integer; z: char; begin ClrScr Write('Podaj pierwsza liczbe i zatwierdz wciskajac [ENTER]: '); Readln(l[1]); n:=2; Repeat Write('Podaj kolejna liczbe: '); Readln(l[n]); n:=n+1 Write('Czy...
Jest dość prosta metoda na sterowanie wysyłaniem znaków do innych aplikacji. Na oryginalnej płycie Delphi 7 znajduje się plik sndkey32.pas . Pozwala on, na wysyłanie tekstów/znaków do innych aplikacji, podając tylko nazwę okna aplikacji docelowej. Załączam ten plik, dla tych, którzy mają Delphi w wersji Personal. ;) Można ten unit wykorzystać np. w...
Witam, Mam taki oto problem: czy mógłby mi ktoś napisać lub naprowadzić na trop w jaki sposób mogę przeszukiwać tablice w Turbo Pascalu? Poniżej kod programu zaczerpnięty z kursu, ponieważ mój kompilator trochę szwankuje. Jeszcze jedno pytanie: jak umożliwić przeskakiwanie w przód i tył poprzez strzałki lub odpowiednie klawisze. Uses CRT; Var Imie,nazwisko,telefon:array[1..3...
Witam! Mam następujący problem: #include <iostream.h> #include <stdlib.h> void main(){ char c; asm{ push ax in al,255 // <-- problem mov c,al pop ax } cout << c; cin >> c; } w instrukcji "in al,255" mogę podać liczbę z zakresu od 0 do 255, w innym wypadku kompilator wywala błąd o niezgodności typów....
Jeśli chodzi o programy do tworzenia programów, to ja miałem na myśli "Turbo Pascal 7.0". Bez żadnego problemu znajdziesz ten program wykorzystując www.google.com Przedstawiam taki szkielet programu w TP 7.0: uses crt; function Bits2Char(B1,B2,B3,B4,B5,B6,B7,B8... var ChrCode:Byte; Begin ChrCode:=(128*B1)+(64*B2...
W innym Twoim temacie znalazłem takie coś: program quiz; type pytanie=record pytanie,a,b,c,d:string[150]; prawidlowa:string[15]; oznaczono:boolean; end; {...} begin pytania[1].pytanie:='Polecen... ktore zmienia znaki na liczby czy jest to:'; pytania[1].a:='CHR'; pytania[1].b:='INT';...
Środowisko Dev C++ jest trochę ubogie, ale da się coś zrobić. Użyj czegoś co się nazywa Odpluskwiacz. Praca krokowa jest możliwa w tym trybie za pomocą przycisku "Przeskocz". Pamiętaj, że trzeba zaznaczyć opcje kompilatora żeby generował informacje dla odpluskwiacza. Tu masz coś konkretnego do analizy. Nie testowałem tego zbytnio, więc możesz poćwiczyć....
Spotkałem się z pascalem dla PIC. Można ściagnąć wersje 30 dniową. Charakteryzuje się tym, że spotkana jest składnia Pascala np if then , pętle itp. Ulatwiona jest obsługa pinów i portów w stosunku do asm. Sa zawarte przykładowe programy i to co zajmuje w asm troche czsu w Pascalu jest szybsze. Polecam dla początkujacych. Osobiscie jednak pisze pod...
Poprawiłem "odrobinkę" ten twój kod. uses crt; VAR a,b,c : integer; o : char; function dodawanie(a,b:integer):i... begin dodawanie:=a+b; end; function odejmowanie(a,b:integer):... begin odejmowanie:=a-b; end; function mnozenie(a,b:integer):in... begin mnozenie:=a*b; end;...
Nie wnikałem w procedury dziel i zwyciężaj, ale już na pierwszy rzut oka zauważyłem błędy w procedurach "poczatek" i "wprowadzanie". Poniżej są te dwie procedury po poprawieniu błędów. Podstawowym błędem było dwukrotne wywoływanie funkcji IOresult. Ponadto w poprzedniej wersji procedury "wprowadzanie" użytkownik zmuszany był do wprowadzania danych pojedynczo,...
Znalazłem w swoim archiwum pisany kiedyś program w trybie graficznym Turbo Pascala (Borland). Program skompilowałem i działa. Oto moja propozycja wczytywania tekstu w trybie graficznym: procedure czytaj(komentarz: string; var napis: string; wspx, wspy: integer; max, skala :byte; znaki: zakres_znakow); var znak: char;...
OK. Zainstalowałem FreePascal i ten kompilator uruchamia tryb graficzny w osobnym okienku a nie tak jak Turbo Pascal ver.7.0 na pełnym ekranie i teraz bez problemu mogę zrobic PS i wrzucić przebieg charakterystyki do pliku *.jpeg. Co do tego że PS w Turbo Pascal 7.0 nie działa to prawda - masz rację. sharic11 - dzięki jeszcze raz za pomoc. Pozdrawiam.
Witam. Problem występuje przy zapisie listy do pliku. Błąd 113 Error in statement. Zapewne rozwiązanie jest banalne i tkwi w szczegółach. program listosob; uses crt, dos; type wsk_osoby=^osoby; osoby=record nazwisko: string[25]; imie: string[15]; telefon: string[12]; nastepny:wsk_osoby; end; var plik:file...
FreePascal uses crt; { $ASMMODE INTEL} {$i386_intel} function cpuid_support : boolean;assembler; { Check if the ID-flag can be changed, if changed then CpuID is supported. Tested under go32v1 and Linux on c6x86 with CpuID enabled and disabled (PFV) } asm pushf pushf pop eax mov ebx,eax xor eax,200000h push eax...
Witam oto dostałem zadanie domowe. Napisz program tworzący listę dwukierunkową oraz realizujacy zadania: -usuwania elementów o wartości minimalnej -wypisywania elementów listy od końca. Wypisywanie już zrobiłem, lecz nie daje rady z tym usuwaniem. Czy może ktoś pomóc ??? a oto kod program dwukierunkowa; uses crt; const N = 15; type wskLista = ^element;...
przycisk turbo pascal programować turbo pascal borland turbo pascal
oporność głośnik zawieszenie amortyzatora miernik dzwiek
mikrofalówka zwarcie mikrofalówka zwarcie
Ford Galaxy 1.9 TDI 2004 - brak biegu wstecznego Obniżenie napięcia anodowego w radiu lampowym z zasilaniem 230V