Turbo Pascal
Zobacz też
41 komentarzy
@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ę).
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ą.
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.
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.
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.
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
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 alszaf89@wp.pl
proszę o pomoc bo nie mogę dać sobie rady z tym
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
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
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.
>>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
czy niewie ktoś co to jest plik o rozszerzeniu .bgi i skąd go wziąćś? (jest mi potrzebny do turbo pascala).
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?
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
Ludzie pomocy potrzebuje pilnie Pascal 7... do szkoły... ale za cholere nie moge tego nigdzie znaleść i pobrać:(( :( help me please...
"co chodzi z tworzeniem proporcjonalnej listy" - listy która nie ma zdefiniowanej wielkości w momencie tworzenia a jest dynamicznie powiększana, lub zmniejszana.
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)
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 misiulk236@wp.pl z gory dziekuje
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...
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 :(
Witam
Bylbym bardzi wdzieczny za przyklad listy jednokierunkowej cyklicznej.
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 domi_1@op.pl
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
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.
w jaki sposób tworzyć klucze i wartości w rejestrze z poziomu turbo palscala
z góry dzieki za pomoc
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(
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
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ś :/
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
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: fusowski@wp.pl z góry dzieki
ALGORYTM EUKLIDESA : http://81.26.5.254/Members/achrobot/podstawy-programowania
wyklad nr 3 strona 9/17
Potrzebuja algorytm euklidesa napisany w Pascalu.. pomoże mi ktos :>
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 ??
czesc
potrzebuje program który zamienia wpisane cyfry na na słowa a dokladniej pierwsze trzy litery w zakresie 1000-9999 prosze o szybką pomoc odpowiedzi proszxe na maila mmaz@poczta.fm
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.
Jest jeszcze przez wstawianie oraz szybkie ktorego nie kumam ale to szczegół
Z sortowaniem przez wstawianie mogę si przesłać algorytm
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
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.