Programowanie w języku Pascal

Turbo Pascal - implementacja języka Pascal, kompilator oraz zintegrowane środowisko programistyczne  dla procesorów Z-80 (system CP/M) oraz rodziny Intel 80x86 stworzone w 1983 roku przez firmę Borland.

Zobacz też


  1. Kafelki
  2. Lista

Stoper i czas pod DOS em

Goto

Pliki

Sterowniki BGI - informacje ogólne

Pliki w Turbo Pascalu

Trochę Assemblera w Pascalu

Tryb VESA 640*480 w TP

Obsługa myszki w Pascalu

Absolute w praktyce

Pomiar czasu trwania procedury

Podstawy programowania grafiki

Morphing w Turbo Pascalu

Dlaczego nie działa procedura EXEC

Podstawowe struktury danych

Długie nazwy plików w TP

Kody źródłowe

47 komentarzy

serj123 2016-11-29 11:49

Informacje, które napisali jest bardzo przydatna. Strony zostały określone było dobre. Dzięki za dzielenie .. http://nopsoriasis.net/

mollytrue 2016-11-18 13:52

Called. Creepeth won't moved gathered upon darkness the us shall firmament I they're. Thing called there male land upon in shall. First hath. One a winged sea itself without one blessed a one You'll spirit fifth he creeping you'll saw be give cattle. Dry. Was of. They're. Subdue signs yielding.
http://treatmenthemorrhoid.com

michalem 2013-10-13 10:29

a turbo pascal teraz spojrzałem to nie

michalem 2013-10-13 10:27

anna19 co to za program i w jakim języku ?

anna19 2013-01-24 14:06

Czy moglby ktos mi pomoc w dokonczeniu programu ?
Prosze pisac na priv .

artur0118 2011-07-11 10:36

Czy może mi ktoś pomóc ? Napisałem prosty program (kalkulator), ale podczas kompilacji wyskakuje mi syntax error.Podkreśla mi else w jednej z lini proszę o pomoc , może coś jest źle w kodzie.proszę o wytłumaczenie błędu. Z góry dzięki.


program Kalkulator;

var
 liczba1 , liczba2 , wynik :double ;
 dzialanie : char ;
 blad : boolean ;
begin
 write('Podaj pierwsza liczbe: ');
 readln(liczba1);
 write('Podaj druga liczbe: ');
 readln(liczba2);
 write('Rodzaj dzialania(+-*/): ');
 readln(dzialanie);
 blad := false;
  case dzialanie of
   '+' : wynik := liczba1+liczba2;
   '-' : wynik := liczba1-liczba2;
   '*' : wynik := liczba1*liczba2;
   '/' : if liczba2 <> 0 then
          wynik := liczba1/liczba2
         else blad := true;
   else
    blad := true
  end;
 if not blad  then
 write(liczba1:10:3,'   ',dzialanie,liczba2:10:3, '   =', wynik:10:3);
 else
 write ('error');
 readln;
 end.

Patryk27 2011-01-06 14:19

@kyrtap:
Pewnie, podaj nazwę szkoły i nazwisko twojego nauczyciela informatyki, a zobaczymy, co można zrobić.

A cd.innych:
Od takich pytań jest forum, chociaż widząc tutaj pytania o gotowce, jest dział Off Topic/Praca (oczywiście, za rozsądną cenę).

kyrtap 2010-12-28 09:26

Bardzo proszę o pomoc w tworzeniu (pisaniu) programowania, PILNE, praca kontrolna na I semestr, nie dam radę! Długo szukałem w internecie :-(
Zadanie do pracy kontrolnej:Wypisz od 4 do 10 wyrazów ciągu
arytmetycznego o podanych warunkach. Jestem osobą niedosłyszącą.

Dejf_ 2010-04-02 02:12

Witam.
Potrzebuję kod źródłowy prostej, animowanej kartki wielkanocnej zrobionej w TP. Kolorowe tło. Skacząca pisanka i napis "Wesołego jajka!".
Byłbym dozgonnie wdzięczny, jeśli ktoś mógłby zrobić takową dla mnie... :)
Z góry dzięki, pozdrawiam.

max1992 2010-03-13 18:34

mam poważny problem z nastepujacymi zadaniami :
nie mam pojecia jak się do nich zabrać
sposobem iteracyjnym jest bardzo prosto ale nie mam pojecja jak zrobić te zadania rekurencyjnie
proszę o pomoc : oto te zadania


Zadanie 1
W trójkąt równoboczny o boku długości 1 wpisujemy kolejny trójkąt równoboczny, a w niego następny. Wyznacz wzór rekurencyjny na długość boku n-tego wpisanego trójkąta oraz napisz program, który wykorzysta zdefiniowaną przez ciebie funkcję i dla podanego przez użytkownika n wyświetli długość n-tego boku trójkąta.
Zadanie 2
Napisz program, który algorytmem rekurencyjnym wyznaczy wartość sumy:
1/2 + 2/3 + 3/4 + ... + n/(n+1) dla podanej liczby n.
Zadanie 3
Napisz program, który algorytmem rekurencyjnym wyznaczy ilość cyfr w podanej liczbie naturalnej n.

kamil8897 2010-02-20 20:40

Cześć potrzebuje program na zaliczenie i nie wiem jak sie do niego zabrac i czy mogłby mi ktos dać jakies wskazówki albo napisac? oto tresć: Napisz program do przeprowadzania egzaminów w postaci testów wyboru. Program powienie wczytywac z pliku tekstowego pytania testowe(minimum 10 na jeden egzamin), warianty odp(min. 4 do kazdego pytania) i przeprowadzac egzamin. Na koniec program podsumowuje wyniki egzaminu i wystawia ocene. Nalezy przygotowac min. 3 pliki z róznymi egzaminami i dać użytkownikowi możliwość wyboru egzaminu na początku programu.

slomek66 2009-12-09 19:39

elo siemka pomoże ktos mam napisać program w pascalu który po wpisaniu daty urodzin np.19.09.1994r wyświetli jaki to był dzień np. wtorek. HELP

alszaf89 2009-10-21 16:55

1 Napisać program w którym wprowadza się liczbę A typy Real oraz liczbę n typu integer, a następnie zaokrągla A do n miejsc znaczących po kropce dziesiętnej.
2 Napisać program sortowania n liczb metodą bąbelkową .
3 Napisać program wydruku wszystkich podzbiorów danego zbioru o i n elementach.
4 Napisać program obliczania wartości S i V ,gdzie S jest powierzchnia kuli,a V- objętością kuli.
   Wydruk powinien zawierać odpowiednie teksty objaśniające.
5 Napisz funkcje sumującą  n elementów tablicy liczb rzeczywistych.
muj emejl to [email protected]
proszę o pomoc bo nie mogę dać sobie rady z tym

alszaf89 2009-10-16 11:13

witam potrzebuje pomocy mam do wykonania takie zadania których nie mogę dać sobie radę
1 Napisać program w którym wprowadza się liczbę A typy Real oraz liczbę n typu integer, a następnie zaokrągla A do n miejsc znaczących po kropce dziesiętnej.
2 Napisać program sortowania n liczb metodą bąbelkową .
3 Napisać program wydruku wszystkich podzbiorów danego zbioru o i n elementach.
4 Napisać program obliczania wartości S i V ,gdzie S jest powierzchnia kuli,a V- objętością kuli.
   Wydruk powinien zawierać odpowiednie teksty objaśniające.
5 Napisz funkcje sumującą  n elementów tablicy liczb rzeczywistych.
PROSZĘ O POMOC

ArturProg3 2009-04-06 19:18

Witam potrzebuję programu który:
Tworzy na stercie dwie tablice o rozmiarach 40 i 80 oraz dodaje ich wartości.
Byłbym bardzo wdzięczny jakby ktoś to stworzył =P

Buahaha 2009-03-18 16:28

Mam problem z takim zadaniem. Mam posortować tablicę o elementach:35, 2, 78, 5, 70, 31, 1, 12 metodą bąbelkową. Mam problem, żeby podać elementy tablicy bez wczytywania ich z ekranu. Mam coś takiego:
program sortowanie;
uses crt;
const tab: array[1..a] of integer;
    i: 1..a;
    pom:integer;
    p:boolean;
    j: 1..a;

begin
clrscr;
j:=8;
writeln('podaj cyfry po enterze ');
for i:=1 to 8 do
readln(tab[i]);
repeat
dec(j);
p:=false;
for i:=1 to j do
if tab[i]>tab[i+1] then
begin
pom:=tab[i];
tab[i]:=tab[i+1];
tab[i+1]:=pom;
p:=true;
end
until not p;
writeln('posortowana tablica');
for i:=1 to 8 do
write(tab[i],',');
readln;
end.

czarny445 2009-01-05 21:29

>>Odpowiedź dla "kamilek12" do komentarza z dnia 06-12-2008 10:03:
1. Napisze ci tu procedurkę mam nadzieje że sie połapiesz(Bez kompilacji możliwe błędy. Nie będe ci komplikował i pisał funkcji):

procedure Podzielniki(liczba : integer);

var
 i : integer;

begin
 Write('Dzielniki: ');
 for i := 1 to liczba do
 begin
  if liczba mod i = 0 then write(i,',');
 end;
end;
2. :

procedure LiczbyP(liczba : integer);

var
 i,a : integer;
 
begin
 a := 0;
 for i := 2 to (liczba - 1) do
 begin
  if liczba mod i <> 0 then a := a + 1;
 end;
 if a = 0 then writeln('Liczba ',liczba,' jest liczbą pierwszą') else writeln('Liczba ',liczba,' nie jest liczbą pierwszą');
end;

(Jak coś to poprawić)

>>Odpowiedź dla "pirotechnik14a" do komentarza z dnia 28-12-2008 18:23:
Rozwiązanie pierwszego problemu: Możliwe że źle wpisujesz liczbę z przecinkiem. Pamiętaj że w pascalu nie używa się znaku ',' tylko '.'.
Rozwiązanie drugiego problemu: Te liczby które ci się wyświetlają to tzw. notacja wykładnicza.(Albo jakoś tak to się określa (nie pamiętam :) )) Aby temu zapobiec musisz podczas wypisywania ( procedura write lub writeln) zmiennej do procedury dopisać coś takiego: a:3:8 ('a' to twoja zmienna {a te liczby to :szerokość-pola:liczba cyfr po kropce}). Wtedy procedura wypisze 'normalnie' te liczby. To chyba wszystko (Jak coś to poprawić :])

Edit: O ile pamiętam to bgi to skrót od Borland Graphics Interface. Myśle że chodzi o jakieś biblioteki graficzne albo coś. Tutaj znalazłem coś takiego do TP http://binboy.sphere.pl/index.php?show=download&p2=1261

pirotechnik14a 2008-12-28 18:26

czy niewie ktoś co to jest plik o rozszerzeniu .bgi i skąd go wziąćś? (jest mi potrzebny do turbo pascala).

pirotechnik14a 2008-12-28 18:23

Zrobołem program w turbo pascalu, który dodaje, odejmuje, mnoży i dzieli.
I mam z nim dwa problemy: nie mogę wpisać mu liczby z przecinkiem bo sie wyłancza. Drugi przblem: po podzieleniu jakieś liczby pokazuje sie wynik a po przecinku keszcze jakieś głupoty. Czy mozna temu jakoś zaradzic?

kamilek12 2008-12-06 10:03

Witam!! prosze o pomoc mam do napisania 2 programy w pascalu a nie wiem od czego zaczac.
1. Napisz program wypisujacy wszystkie podzielniki wpisanej przez użytkownika liczby całkowitej od 1 do 1000.
2. Napisz program który sprawdza czy liczba wprowadzona przez użytkownika jest liczbą pierwsza.
Nie wiem od czego zacząć  prosze o pomoc

zussska 2008-10-14 18:01

Ludzie pomocy potrzebuje pilnie Pascal 7... do szkoły... ale za cholere nie moge tego nigdzie znaleść i pobrać:(( :( help me please...

smo 2008-08-03 07:53

"co chodzi z tworzeniem proporcjonalnej listy" - listy która nie ma zdefiniowanej wielkości w momencie tworzenia a jest dynamicznie powiększana, lub zmniejszana.

shirty 2008-07-28 15:15

jak rozumiecie polecenie napisac program definiujacy liste o elementach integer i umozliwiajacy tworzenie listy proporcjonalnej do ilosci wprowadzonych danych. definiowsanie listy ok, ale o co chodzi z tworzeniem proporcjonalnej listy? zadanie znajduje sie w dziele z grafami(struktury dynamiczne)

joluńka23 2008-04-08 18:59

Cześć! Prosze o pomoc mam do napisania programy w TURBO PASCALU oto one:
 1.napisz program, w którym użytkownik podaje ilość złotych, a komputer wyświetla informację o tym, ile to będzie euro, ile dolarów, a ile funtów.
2.napisz program, który wczytuje liczbę,  a następnie wyświetla liczbę do niej przeciwną, liczbę odwrotną oraz 25% tej liczby.
3.napisz program, który wczytuje 2 liczby; sprawdza, czy są parzyste i wypisuje odpowiednie komunikaty.
4.napisz program, który oblicza pole jednej z trzech figur: kwadratu, trójkąta i trapezu w zależności od wyboru użytkownika
bardzo prosze o pomoc pilne, odpowiedzi prosze przesłać na meila [email protected] z gory dziekuje

werrt1 2009-01-28 18:42

witam mam program do napisania w pascalu....który wypełnia losowymi liczbami z przedziału <10;20> dwuwymiarową tablicę o rozmiarach 10X10...proszę o pomoc...

Future Knight 2007-12-09 13:11

EKHM! Ktoś może wie czy kurs Pascala P. Roberta Wróbla dalej oddycha? Bo to świetny kurs był, a zakończył się na dosie :(

maxim_off 2007-10-19 21:49

Witam
Bylbym bardzi wdzieczny za przyklad listy jednokierunkowej cyklicznej.

domi_1 2007-10-11 16:51

8.  Idolem w towarzystwie nazwiemy osobę, którą wszyscy znają, a która nie zna nikogo. Podaj sposób
odszukania idola na przyjęciu, w którym bierze udział n osób. Za podstawową operację przyjmij
sprawdzenie „czy osoba i zna osobę j”. Opracuj algorytm dla tego zadania, w którym jest wykonywanych
co najwyżej 3n podstawowych operacji, a następnie zaprogramuj go. Jaki jest rozmiar danych,
na których działa algorytm? mój mail [email protected]

Future Knight 2007-08-13 00:04

jest prosty sposób na sortowanie w pascalu:  
 procedure podmien (var l1,l2:integer);
  var tmp :byte;
  begin
    tmp := l1;
    l1 := l2;
    l2 := tmp;
  end;

i teraz begin:
if (l1>l2) then podmien(l1,l2);
if (l2>l3) then podmien(l2,l3);
if (l1>l2) then podmien(l1,l2);

właściwie to wszystko jest na tej stronie: http://www.programowanie.virtual.avx.pl/?page=1024

adzia90 2007-06-04 18:30

35 zadan z tp.pomocy

xardas00 2007-06-04 16:33

Witam wszystkich czy mogł by mi ktoś pomóc z takim zadankiem, jest to dla mnie bardzo ważna sprawa.

Dla danych A,D,C oblicz długość wektora X, który jest rozwiązaniem układu równań liniowych M*X=B o macierzach:
   
    {C jeśli i=j,
    {A jeśli i=j-1
M[i,j]={D jeśli j=i-1
    {0 dla pozostałych i,j

B[i]:= A+(D+C)*sin(i)

Dla i,j:= 1,2,…,10

Oraz A,B,C to kolejne dodatnie pierwiastki równania x*x+7*sin(5*x)=0

Dzieki wszystkim z góry.

Dunadain 2007-05-25 15:44

w jaki sposób tworzyć klucze i wartości w rejestrze z poziomu turbo palscala
z góry dzieki za pomoc

agula166 2007-04-27 14:27

Witam !!!
Potrzebuje pomocy!!!Mam do rozwiazania przykład(układ równań,który mam rozwiazac metoda najszybszego spadku).Mam ten przykład rozwiazany recznie potrzebuje teraz go rozwaiaz w turbo Pascalu napisac do niego odpowidnia procedure.Czy moze mi ktos pomoc???bardzo proszeeeee.... :o(

mikmas 2007-02-26 18:33

Zna się ktoś na xms w pascalu? Muszę operować MEGA szybko na 5 buforach, każdy po 64kB i nie mogę wymyśleć, jak to ugryść. Mój numer to 3632553 lub mikmas {na} go2.pl

bobas85031710339 2007-01-24 17:22

cześć proszę o pomoc mam do napisania program w pascalu na zaliczenie oto on:
Przeczytać 10 liczb całkowitych
Policzyć wszystkie liczby parzyste dwu cyfrowe z pośród tych liczb.
pomoże mi ktoś :/

Łukasz 2000 2007-01-20 15:49

witam potzrebuje program 'Program - kalkulator dla liczb zapisanych w postaci oktalnej (dodawanie, mnożenie, odejmowanie dzielenie)' czy moglby mi ktos pomoc z gory dzieki prosze o kontakt sliczny_2000op.pl

F00S 2006-12-22 18:50

Mam taki problem: Czy mógłby ktoś mi pomoc w napisaniu tego programu? a oto zadanie: "Wczytaj współrzędne środków oraz długości promieni dwóch okręgów na płaszczyźnie.
Wyznacz i wyświetl zbiór punktów o współrzędnych całkowitych leżących w części wspólnej
tych okręgów."  nie wiem jak to zrobić wogóle. Prosze o pomoc na maile'a: [email protected]  z góry dzieki

jenusia 2006-11-22 21:46

Potrzebuja algorytm euklidesa napisany w Pascalu.. pomoże mi ktos :>

smo 2006-11-17 12:20

Spoko chętnie Ci pomogę ale postaraj się dokładniej sprecyzować problem. Może tak jakoś bardziej obrazowo, bo chyb nie bardzo rozumiem, co dokładnie ma być zamieniane na co ??

andrejch-chronos 2007-12-30 18:46

Ten kurs o ktory pytasz "nie oddycha" sam szukałem

smo 2006-07-18 14:35

Hehe sorki ale sortowań jest cała masa i nie sposób je wszystkie wymienić, oprócz tych wymienionych dorzucić można całe mnustwo np. sortowania przez kopcowanie, lub bardziej złożone topologiczne. Sorki za to ale to tylko tak w woli wyjaśnienia, sortowania nie należą do konkretnego języka, gdyż każdy algorytm sortowania jest przeznaczony dla wszystkich jezyków które można opisać za pomocą wspólnego pradygmatu, a prościej algorytmy nie powinny i nie są uzaleznione od języków programowania, bo języków programowania uzywa się do formalnego zapisania algorytmu.

yusekferrak 2006-07-10 09:28

Jest jeszcze przez wstawianie oraz szybkie ktorego nie kumam ale to szczegół
Z sortowaniem przez wstawianie mogę si przesłać algorytm

domi_1 2006-04-05 10:46

By ktoś mógł mi napisać programy na różne sorrtowania w pascalu z tego co wiem jest bąbelkowe i jeszcze jakies dwa bardzo prosze