|
Programowanie Pascal...
...Ten przedmiot był naprawdę fajny. Oczywiście chodzi o język programowania Turbo Pascal.
To co miałem można ogólnie omówić w kilku punktach:
struktura programu, procedury i funkcje, stałe, typy i zmienne, instrukcje warunkowe i pętle,
pliki tekstowe i binarne, zmienne wskaźnikowe, konstrukcja algorytmów, zasady tworzenia algorytmów,
złożoność algorytmów, rekurencja, listy i drzewa, zasada dziel i zwyciężaj, sortowanie tablic, algorytmy zachłanne.
Przez II semestry zajęć z tego przedmiotu (chodzi o wykład, konwersatorium i laboratorium) napisałem wiele programów (.PAS) (Na dole strony jest instrukcja jak otworzyć pliki z rozszerzeniem .PAS). Niektóre z nich udostępniłem do ściągnięcia (zip). Polecenia (treści zadań) zapisane są w formacie pdf. Może programiki przydadzą się początkującym programistom. Ale prawde mówiąc, kto teraz zaczynając programować uczy się języka Turbo Pascal. Może dzieci w liceum tym męczą. W tej chwili na czasie jest
C, C++, Java.
Przed ściągnięciem programu zapoznaj się z krótkim opisem zawartości.
Nie piszę programów na zamówienie!!
różności
- kody Ascii przydatne do operatorów binarnych:
pobierz (zip 90 KB)
- dla ułatwnienia można ściagnąć wszystkie poniższe programy w jednym pliku:
pobierz (zip 802 KB)
I semestr
- prawdziwy początek, czyli programiki: witaj, suma liczb, wspólny dzielnik:
pobierz (zip 10 KB)
- sposób działania operatorów binarnych and, or, xor... :
pobierz (zip 7 KB)
- obliczanie potęgi o wykładniku naturalnym k danej liczby rzeczywistej a :
pobierz (zip 56 KB)
- sprawdzenie, czy dana liczba naturalna N jest liczbą pierwszą :
pobierz (zip 54 KB)
- zamiana liczby dwójkowej na dziesiętną :
pobierz (zip 54 KB)
- program obliczający pierwiastki równania kwadratowego :
pobierz (zip 57 KB)
- Z bardzo trudnego egzaminu pisemnego z programowania można uzyskać od 0 do 100 punktów (licząc co 0,1 pkt.).
Ocena końcowa wystawiona będzie na podstawie poniższej tabeli:
2,0 - do 49,9 pkt.
3,0 - od 50 do 59,9 pkt.
3,5 - od 60 do 69,9 pkt.
4,0 - od 70 do 79,9 pkt.
4,5 - od 80 do 89,9 pkt.
5,0 - od 90 pkt.
W treści funkcji wolno umieścić tylko 5 porównań!
Program zawiera funkcję, której argumentem jest liczba uzyskanych punktów, a wynikiem ocena z egzaminu :
pobierz (zip 89 KB)
- Niech x mod y oznacza resztę z dzielenia liczby naturalnej x przez liczbę naturalną y. Wiadomo, że jeśli a i b
są liczbami naturalnymi oraz a>=b i a mod b 0, to NWD(a,b) = NWD(b,r), gdzie r = a mod b. Wiadomo też, że jeśli
a mod b = 0, to NWD(a,b) = b. Program oblicza największy wspólny dzielnik dwóch liczb naturalnych :
pobierz (zip 87 KB)
- program obliczający średnią (z dokładnością do 1) z liczb umieszczonych w tablicy :
pobierz (zip 34 KB)
- program lotto :
pobierz (zip 33 KB)
- program tabliczka mnożenia :
pobierz (zip 4 KB)
II semestr
- Programy wczytujące liczbę naturalną n i drukujące wartość n!. Pierwszy korzysta z rekurencyjnej funkcji
obliczania n!, a drugi z funkcji iteracyjnej. Wyświetlnay jest również czas działania każdego z programów
dla n = 10, 20, 30 :
pobierz =>
n! rekurencyjnie (zip 47 KB)
n! iteracyjnie (zip 47 KB)
- Programy wczytujące liczbę naturalną n i drukujące wartość n-tej liczby Fibbonaciego. Pierwszy używa funkcji
rekurencyjnej, a drugi funkcji iteracyjnej. Wyświetlany jest również czas działania każdego z programów
dla n = 10, 20, 30, 40.
pobierz =>
Fib rekurencyjnie (zip 47 KB)
Fib iteracyjnie (zip 47 KB)
- program obliczający potęgę o wykładniku naturalnym k danej liczby rzeczywistej a, działający w czasie
proporcjonalnym do log(k) :
pobierz (zip 53 KB)
- program liczący wartość n-tej liczby Fibbonaciego (rekurencyjnie) i wypisujący czas działania,
ale korzystający z biblioteki z rozszerzeniem .TPU, aby program działał należy również sciągnąć bibliotekę. pobierz =>
Fib rekurencyjnie .TPU (zip 42 KB)
- program kopiujący pliki (UWAGA! działa na stacji dyskietek - przed uruchomieniem włóż dyskietkę):
pobierz (zip 4 KB)
- program sortujący liczby wykorzystując wskaźniki :
pobierz (zip 5 KB)
- sortowanie bąbelkowe :
pobierz (zip 4 KB)
- programik rysujący coś na ekranie (mogą wystąpić problemy z biblioteką GRAPH.TPU) :
pobierz (zip 20 KB)
Jak owierać rozszerzenie .PAS Możesz to zrobić na trzy sposoby:
- uruchomić w programie Turbo Pascal 7.0
- uruchomić w programie Free Pascal, który jest kompatybilny z Turbo Pascal 7.0. Możesz go ściągnąć ze strony :
www.freepascal.org
- jeżeli nie masz żadnego z tych programów to możesz otworzyć plik w Notatniku i zobaczyć jak został napisany program
|