[...] begin repeat writeln('Pole jakiej figury chcesz policzyc?'); writeln('1-kwadratu'); writeln('2-prostokata'); writeln('3-kola'); writeln('4-trojkata'); writeln('0-koniec zabawy'); writeln('Wpisz numer figury i kliknij Enter:'); readln (decyzja); if decyzja=1 then kwad;...
Witam. Potrzebuję na informatykę następujący program w Pascalu. Zadanie: 1. Musi to być test wyboru (a, b, c, d) gdy wybierzemy jedną odpowiedź to pytanie znika i pojawia się następne. 2. Licznik wyświetlający, który jest aktualnie numer pytania i ile zostało zaznaczonych poprawnych odpowiedzi. 3. Gdy dojdziemy do końca pytań to program wystawia ocenę....
mowisz i masz (w pascalu i metoda najmnijeszych kwadratow):
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...
Nie możesz sobie wstawiać VAR i END gdzie tylko chcesz :) Przeanalizuj ten kod : PROGRAM kalkulator; uses crt; var l1,l2,decyzja:integer; tak_nie:char; procedure dziel; BEGIN writeln(l1,':',l2,'=',l1/l2)... END; procedure mnoz; BEGIN writeln(l1,'*',l2,'=',l1*l2); END; procedure dodaj; BEGIN writeln(l1,'+',l2,'=',l1+l2);...
To, co jest w głównym (ostatnim) bloku begin ... end, obejmij pętlą nieskończoną: while true do begin __(tu reszta) end; Dodatkowo możesz dodać opcję (w case): else exit; żeby jednak dało się skończyć program;)
Może zamiast write wpisz wszędzie writeln
initgraph(gd,gm,'katalog w którym są BGI');
Po pierwsze, jeżeli stosujesz własne funkcje do dokonywania obliczeń, to możesz sprawdzać właśnie w tych funkcjach, czy ich argumenty "są odpowiednie". Zamiast : function pierwiastkowanie(a:real):... begin pierwiastkowanie:=sqrt(a); end; Zrób coś takiego : function pierwiastkowanie(a:real):... begin if...
Tak ja także bym prosił o jakieś informacje ponieważ szukam od dłuższego czasu i nic nie wymyśliłem.
Taki mam pomysl choc w T pascalu dawno juz nie pisalem : Co do poruszania sie to mozesz zrobic case'a i zwiekszac lub zmniejszac numer indeksu tablicy Tab[indeks] wcisniecie klawisza strzalka w gore indeks+1 i ponownie wyswietlac analogicznie dla strzalki w dol Pamietaj zeby zabezpieczyc sie przed wyjsciem poza zakres tablicy :!: Co do przeszukiwania...
Tak na szybko : program wisielec; uses crt; var s,m:string; l:string[1]; i,z,licznik:integer; poprawna,koniec : boolean; begin; licznik:=0; repeat clrscr; textcolor(green); gotoxy(33,4);writeln('╔...
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...
Z grafiki w TP dużo mi sie juz zapomniało (z resztą wogóle mnie to nie interesowało), ale wydaje mi się, że to tego jest funkcja GetPixel - w przeciwieństwie do PutPixel, która ustawia wybraną berwę punktu.
Pozdrawiam chemik143. Kiedyś mieszkałem w Cieszynie. A oto program: Uwaga: w linii write('podaj wartosc tablicy [',i,' ',j,']= '); musisz podawać wartości w postaci np 32 12 i enter czyli 32 spacja 12 ENTER uses crt; var tablica:array[1..100,1..100]of integer; i,j,n,k,w,wynik:integer; op:char; begin clrscr; writeln('program wypelnia tablice dwuwymiarowa...
Program działa, natomiast popełniłeś kilka błędów. Ostatnia komenda readln działa bez zarzutu, ale czyta klawisz enter użyty do zatwierdzenia komendy read(cena); . Pozmieniałem read() na readln() , oraz dodałem formatowanie ostatecznego wyniku. USES CRT; VAR ilosc,dlugosc,cena:real; BEGIN clrscr; writeln('Ilosc paczek - 20 szt.'); readln(ilosc);...
W procedurze twlist(...) ilość begin=4, a ilość end=3!!! Tu wyskakuje Twój error,ale dalej też są. Np nieznana proc. dodaj(...), Trzeba dalej analizować. Poza tym nie widzę ciała programu głównego,sterującego wykonaniem kolejnych procedur.Chyba,że źle widzę.
while 1=1 do zmień i zobacz dawno pascal'a nie używałem Pozdrawiam!
Tak zapisana funkcja ma wadę, na moim komputerze sprawdzenie czy 2.000.000.011 jest pierwsze zajęło minutę i 22 sek. długo...., podobnie długo trwało sprawdzenie liczby 2.000.000.012, a przecie już po chwili wiemy że liczba ta pierwsza nie jest. Pewnym ulepszeniem będzie: . pier:=false; . if not odd(L) then EXIT; . for i:=2 to L-1 do . . if L mod i...
Na drugi rzut to chyba nie chciałem zamykać tej wewnętrznej pętli po dwóch linijkach. Popraw trochę [url=http://www.dzyszla.aplus.pl/porada-... to od razu łatwiej bedzie zauważyć, gdzie się powinny zaczynać i kończyć poszczególne bloki.
Istnieją trzy rozwiązania tego problemu. 1. Uniwersalne - to znaczy takie które będzie w stanie wyświetlić dowolny napis, złożony z dowolnych znaków ('%','*') przenosząc poszczególne pixel-e, z których zbudowane są litery i generowanie ich odpowiedników, za pomocą znaków. Odradzam, jest to dość skomplikowane. Można co prawda znaleźć gotowe kody źródłowe...
// 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;...
Sprawdzanie danych można zrobić tak: 1) Dane powinny być liczbami dodatnimi repeat Write('Podaj długość boku, a = '); Readln(a); if a<=0 then Write('Błąd! Długość boku powinna być dodatnia.'); until a>0; Proponuję również ten schemat wprowadzania danych zastosować w całym programie, tzn. poprzedzać wczytywanie komentarzem...
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;...
Trzeba by zrobić listę lub tablice ze stringami. Sortowanie może polegać w taki sam sposób jak sortowanie liczb (można porównywać kody ASCII - ich ułożenie rośnie wraz z kolejnymi literami alfabetu). Trzeba by tylko rozważyć sortowanie wg kolejnych liter (pewnie za pomocą rekurencji jakiejś). Zadanie dość typowe na pewno coś znajdziesz Google "sortowanie...
To nie możesz po prostu złączyć "c:\"+np ?? Dodano po 53 PS. To nie jest "nie wiadomo gdzie" tylko w katalogu roboczym (jeśli nie podajesz ścieżki)
Z tego co pamiętam to byłoby coś takiego: Piszesz żeby wcisnąć przycisk 1, 2 lub3 Writeln('Wybierz: 1,2,3'); Readln(a); case a of 1: procedura1; 2: procedura2; 3: procedura3 end
skoro Cie nurtuje po co to jest to poszukaj sobie artykułów na internecie a dopiero jak czegoś nie zrozumiesz zadawaj konkretne pytania :) Konstruktory i destruktory to temat związany z programowaniem zorientowanym obiektowo, jeśli poszukasz informacji o klasach to jednym z początkowych tematów związanych z klasami będą konstruktory i destruktory klasy......
Twoja funkcja licząca potęgę, przyjmuje wartości integer, a chcesz koniecznie uruchomić ją z wartością real.
No to powiem wprost - bez szans. Gdyby pytania były znane wcześniej razem z możliwymi odpowiedziami dałoby się to zakodować wszystko bardzo prosto, wyszukiwanie pytania w bazie, wypisywanie odpowiedzi. Ale jeśli pytania są całkowicie losowe to tai program jest nie do napisania w 2 tygodnie. W zasadzie jest nie do napisania prawie w ogóle :P Zbyt duża...
Procedura w takiej formie : {procedura wyszukiwania filmu wedlug zadanego klucza} procedure wyszukaj; var p : file of film; f : film; s : string; x : integer; begin write('podaj tytul filmu ktory chcesz znalezc : '); readln(s); assign(p,'filmy.dat'); {otwieramy plik} reset(p); {reset...
Brakuje średnika na końcu w trzeciej linijce od dołu
Witam. Można wykorzystać zmienną logiczną. program tablica; uses crt; var t:array[1..10] of integer; i:integer; tak:boolean; begin clrscr; tak:=false; writeln ('Wpisz 10 liczb'); for i:=1 to 10 do readln (t[i]); writeln('liczby podzielne przez 2 to '); for i:=1 to 10 do if t[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'...
www.google.pl wpisz np algorytmy sortowania i dostaniesz odpowiedz na swoje pytanie
wszystko!!!
Po pierwsze primo: wypelniasz stojac poza prostokatem (patrz wartosc FloodFill(275,574,red); :!: :!: :!: Po secundo: skorzystaj z Rectangle(int,int,int,int) o czym mozesz poczytac tu :http://yarpo.republika.pl/kurs2/lekcje/... albo: procedure prostokat(x1:integer; y1:integer; x2:integer; y2:integer);...
jeśli znasz rozmiary macierzy, to m razy wykonujesz read(plik,zmienna) i readln(plik) aby przejść do następnej linii (albo już niekoniecznie, nie pamiętam). Czytasz w podwójnej pętli 1-n,1-m, odczytane wartości przypisujesz pod wskazany przez pętle indeks (miejsce) w tablicy. To, jak będzie wyglądać to w dokumencie to w zasadzie kwestia stworzenia specyfikacji....
Jeżeli chcemy obliczyć y=a^b,to musimy przekształcić: y=exp(b*ln(a))
W pascalu dawno nie pisałem ale jeśli dobrze pamiętam to przy odczycie odpowiedzi spróbuj readln. Wtedy wciśnięcie ENTER kończy wprowadzanie. write też możesz zastąpić writeln . Pytania i odpowiedzi będą pojawiać się w kolejnych liniach.
Pod tym adresem masz Turbo Pascal 5.5 http://www.pobierz.eu/p,1197/Turbo_P... a pod tym Turbo Pascal 7 http://www.dobrepliki.pl/Download-Pl...
To nie są dwa warunki, tylko przedział (jak napisałeś na początku) case można traktować jak argumenty warunku in
Nawias zmienić linijkę wcześniej.
Round - zaokrąglenie
Zawsze jeszcze są Google :) i trochę więcej samodzielności. uses dos, crt; var plik: text; begin assign(plik, 'plik.txt'); rewrite(plik); write(plik, 'to zostanie zapisane do pliku'); end. Pozdr! Ta odpowiedź jest bardzo niestaranna. Brakuje zamknięcia pliku close(plik); Ponadto za każdym razem plik będzie "nadpisywany"...
Obiecałem pomóc... słowo się rzekło... 1) Linię programu c:=(645-(6*a))/2; zastąp linią c:=(645-(6*a)) div 2 ; i koniecznie poczytaj o typach zmiennych liczbowych i dzieleniu całkowitym. 2) Natomiast linię e:=c+(2*a)+((1/2)... zastąp linią e:=c+(2*a)+a div 2); 3) Ponadto...
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 :)
A może w ten sposób ? program gwiazdki; uses crt; var z,k,w:byte; begin clrscr; writeln('Podaj liczbe. '); readln(k); w:=1; while w<=k do begin z:=0; while z<=k-w dobegin write('*'); inc(z); end; writeln; inc(w); end; w:=1; while w<=k do begin z:=0; while z<=k-w do begin write('...
Jak ja się bawiłem w TP jeszcze ładnych parę lat temu, to pod tryb graficzny miałem swoje biblioteki takich obiektów jak pola edycji, wyboru, combo-boxy okna i wszystkie inne a'la WinApi obiekty. Więc polecam zrobić sobie takie coś. Jeśli oczywiście pytasz o wprowadzanie danych do programu przez interface graficzny, bo nie bardzo rozumiem Twoje pytanko.
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);...
Witam. \ Chciała bym prosić o pomoc w zadaniu z tp. Byłam dopiero na drugiej lekcji z "psiaka" i wiele straciłam a nauczyciel zlecił następujące zadanie: użytkownik wpisuje dowolną liczbę większą od 0 i mniejszą od 42 ze zmienną REPEAT Pętla ma się obrócić dokładnie tyle razy ile wpisał użytkownik (np. 5) za każdym razem pobierając do tablicy: imię...
Jak najszybciej potrzebuje rozwiązanie tych dwuch zadań w języku Turbo Pascal: 1. Napisz program, który czyta liczbę naturalną n, 1<n<=10, w tablicy dwuwymiarowej tworzy tabliczkę mnożenia dla liczb naturalnych z przedziału Wskazówka Trzeba zadeklarować tablicę dla najwiekrzego n, czyli 10. a w programie korzystać z jej części odpowiednio do wczytanej...
Witam. napisałem prosty program do rysowania torusa pod windowsową konsolą. Działa to na zasadzie rzutowania na ekran przestrzeni R^3 e której torus opisany jest parametryzacią w zależności od 2 parametrów. Problem polega na tym że torus "źle się rysuje". domyślam się że problem leży gdzieś w zmianie znaku funkcji trygonometrycznych ale nie bardzo wiem...
A wiec mam do zrobienia kilka zadan w TP, jestem poczatkujacym w tej dziedzinie dlatego prosiłbym o pomoc w napisaniu takich programów: 1) Wylosować 20 liczb i posortowac je metodą bąbelkową. 2) Na posortowanej wczesniej tablicy zastosowac wyszukiwanie binarne. 3) Napisz program zamieniający miejscami dwa wskazane wiersze tablicy dwuwymiarowej 4) Napisz...
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...
Przyślijcie mi program, który będzie sortował elementy tablicy dowolnym rodzajem sortowania. Pomóżcie mi, proszę. mój adres siber1(at)wp.pl Zamykam. - arnoldziq
dziękuje za pomoc
Witam ponownie:) tym razem mam inny problem z programowania... polecenie jest takie- Napisz program rysujący na ekranie prostokąt z dowolnych znaków i wysokości zadanej przez użytkownika. Otóż samą ramkę gdzie w kodzie od razu podaje dane potrafię zrobić za pomocą 'gotoxy'. Dodano po 3 NAPEWNO DODAĆ ZE DWA WRITELNY:) Proszę poprawić temat postu. Na...
Nie wiecie gdzie mogę zdobyć program prostego kalkulatora : dzielenie, mnożenie, dodawanie itp. najlepiej z jakimś krótkim opisem kodu. Z góry dziękuje i pozdrawiam.
Witam, chciał bym wykonać program (nie proszę o gotowca) tylko o pomoc w wykonaniu... chciał bym zrobić to w ten sposób że będę wpisywał dane w programie typu ( imię, adres, data itp) wiem ze program ma to zapisywać do pliku 'txt' ale nie bardzo wiem jak to zrobić... założenia - jak wykonać program aby zapisywał wpisane dane - jak te dane w innym poleceniu...
Ujmuj kod w znaczniki [ code ] ! Problem skalowania wykresów to po prostu dostosowanie jego skali do wartości maksymalnej. Dalej z proporcji. Ponadto kolega chyba nie zna jeszcze czegoś takiego, jak pętla - zgadza się?
Witam. W szkole uczę się Turbo Pascala. Jestem bardzo początkujący bo to mój pierwszy rok z programowaniem. Chciałbym, żeby ktoś mi doradził jaką książkę najlepiej kupić. Wiem, że w internecie jest trochę takich tematów, ale chciałbym żeby ktoś na świeżo się wypowiedział bo może są jakieś nowe podręczniki. Ważne żeby książka była po polsku a cena do...
Jakie są różnice między Borland a Turbo Pascalem? Mam książke do pascala i ona jest przystosowana do Turbo Pascala a ja chciałbym programować w Borland (7.0). Jedyną różnice jaką znam to ta ze aby załączyć biblioteke dla monitora to w Turbo- Piszemy Uses CRT; Borland- Uses WinCRT; Ale np. nie mogę w borland włączyć trybu graficznego, nie mogę uruchomić...
Czy ktos z programistow znajdujacych sie na forum ma jakies doswiadczenia w pisaniu bardziej rozbudowanego kalkulatora? Chodzi mi o program z mozliwoscia wpisywania calego ciagu liczb np.: 2+(7*4)-8 ... i do tego pozniej jakis wykres (jesli bylyby sin, cos itp.). Za wszelka pomoc i informacje bede niezmiernie wdzieczny!
turbo pascalu zadanie turbo pascalu programy turbo pascalu
brotje opinie volvo silnika schemat połączenia trójkąt gwiazda
kabel brake radio engine fault peugeot
Lokalizacja bezpiecznika blokady kierownicy w Renault Scenic II Czy lampa LED ze ściemniaczem działa bez ściemniacza?
