Turbo Pascal - podstawowe zadania - prosze o pomoc!

X_OczeK [ Konsul ]

Turbo Pascal - podstawowe zadania - prosze o pomoc!

Mam do szkoły 3 zadania. Bylym wdzeiczny za rozwiazania:

Zadanie 1
Napisz program, który wypisze liczby od 1 do 10 a następnie od 10 do 1. Między ciągami
liczb zastosuj pustą linię (kaŜdy ciąg w oddzielnej linii).
KaŜda liczba niech będzie zapisana na 5 pozycjach
Instrukcja
1. zadeklaruj zmienną sterującą „i” - typu BYTE
2. wykorzystaj dwie odmiany pętli FOR (to…, downto…)

Zadanie 2
Napisz program, który wypisze liczby naturalne mniejsze od 100 i podzielne przez 11.
Instrukcja:
1. do sprawdzenia podzielności naleŜy uŜyć operatora mod
2. zmienna sterująca zmienia się od 1 do 100



Zadanie 3
Pogram, który obliczy i wyświetli wartość N! (silnia)
Instrukcja:
1. zadeklaruj odpowiednie zmienne (liczba dla której wyliczmy silnię np. n, zmienna
sterująca np. i, wartość silni np. silnia), poniewaŜ wartość silni rośnie bardzo szybko
– zadeklaruj dla silni typ longint,
2. na początku naleŜy wczytać do programu wartość „n”,
3. naleŜy zainicjować wartość silni (silnia:=?),
4. kolejne wartości silni powinny wyliczać się w pętli „for” (od 1do n) - mnoŜenie
dotychczasowej wartości silni przez kolejne liczby zmiennej sterującej,
5. przetestuj działanie programu (np. 6!=720).

X_OczeK [ Konsul ]

up