September 2018 1 33 Report

1zad.

(* Cwiczenie 2.3
Napisz w Turbo Pascal wydajacy dzwiek. Uzyj CRT w celu wyczyszczenia ekranu oraz zatrzymania dzialania programu.*)

Program cwicz_2_3; {nazwa programu}
{deklaracja modulu Crt}

Begin {poczatek wykonania programu}
Clrscr; {wyczyszczenie ekranu}
Writeln (' Do wyczyszczenia ekranu sluzy komenda CLRSCR ');
Sound (2300); {wysokosc dzwieku}
Delay (600); {dlugosc trwania - półnuta}
Nosound; {wylacz dzwiek}
Delay (100);
Sound (2300);
Delay (1000);
Nosound; {wylacz dzwiek}
Repeat until KeyPressed {czekaj na wcisniecie dowolnego klawisza}
End. {koniec programu}

(*
a) Aby program dzialal - zadeklaruj modul CRT.
b) Zmien program tak, aby wydawane tony byly nizsze i krotsze.
c) Zagraj game calymi nutami: (delay(1200) - cala nuta),
gama - sound: 262, 294, 330, 349, 392, 440, 494, 523
d) Zagraj melodyjke: sol, mi, mi, fa, re, re, mi, do, mi.
*)

2zad.

(* Cwiczenie 2.4
Program wyswietli napis TURBO PASCAL w czerwonym blyskajacym kolorze na niebieskim tle w 5 wierszu i 10 kolumnie ekranu. *)

Program cwicz_2_4; {naglowek}
Uses Crt; {deklaracja modulu CRT}
Begin {czesc wykonawcza}
Clrscr; {procedura czysc ekran z modulu CRT}
TextBackground(Blue); {ustawienie koloru tla na niebieski}
TextColor(Red + Blink); {ustawienie koloru liter na blyskajacy czerwony}
HighVideo; {ustawienie trybu zwiększonej jaskrawosci}
GoToXY(10,5); {ustaw kursor w 5 wierszu i 10 kolumnie ekranu}
Write (' TURBO PASCAL'); {pisz na ekranie tekst}
NormVideo; {ustawienie normalnej jaskrawosci}
Repeat until keypressed {czekaj na wcisniecie dowolnego klawisza}
End. {koniec programu}

(*
a) Wyswietl drugi napis TURBO PASCAL pod spodem pod litera S - jak ponizej:
TURBO PASCAL
TURBO PASCAL.
b) Dodaj wyswietlenie Twojego imienia, a ponizej nazwiska oraz adresu roznymi kolorami.
c) Wyswietlane napisy powinny byc wczytywane z klawiatury.
d) Na pustym ekranie wyswietl cztery litery H w losowych miejscach i losowymi kolorami.
e) Po ostatnim H odczytaj polozenie kursora na ekranie
i ustaw go w polowie odleglosci X i w polowie odleglosci Y na ekranie
*)

3zad.

(* Cwiczenie 2.5
Program wyswietli wylosowana cyfre (liczbe z przedzialu <0; 10)). *)


Program cwicz_2_5; {naglowek - tytul programu}
Uses Crt; {deklaracja modulu CRT}
Var n : integer; {deklaracja zmiennej n}
Begin {czesc wykonawcza}
Clrscr; {procedura czysc ekran z modulu CRT}
Randomize; {rozpoczecie losowania}
n := Random(10); { do zmiennej n wstaw wylosowana cyfre (od 0 do 9)}
Write(n:5); {wyswietl wylosowana liczbe na 5 miejscach}
Repeat until keypressed {czekaj na wcisniecie dowolnego klawisza}
End. {koniec programu}

(*
a) Wylosuj i wyswietl dwie liczby z przedzialu <0; 100>,
liczbe z przedzialu <11; 20> oraz liczbe trzycyfrowa - kazda w innym kolorze.
b) Wyswietl dwie wylosowane liczby z przedzialu (0; 1> z piecioma miejscami po przecinku.
*)


More Questions From This User See All

Przeczytaj tekst i napisz o czym on jest. Na zasadzie "własna wypowiedź".To nie musi być długie ;) tak na kilka zdań, żeby zajęło około 3/4 kartki a5(jak zeszyt)Czytanie z Księgi RodzajuPan Bóg ulepił człowieka z prochu ziemi i tchnął w jego nozdrza tchnienie życia, wskutek czego stał się człowiek istotą żywą. A zasadziwszy ogród w Edenie na wschodzie, Pan Bóg umieścił tam człowieka, którego ulepił. Na rozkaz Pana Boga wyrosły z gleby wszelkie drzewa miłe z wyglądu i smaczny owoc rodzące oraz drzewo życia w środku tego ogrodu i drzewo poznania dobra i zła. A wąż był najbardziej przebiegły ze wszystkich zwierząt polnych, które Pan Bóg stworzył. On to rzekł do niewiasty: „Czy to prawda, że Bóg powiedział: »Nie jedzcie owoców ze wszystkich drzew tego ogrodu?«„. Niewiasta odpowiedziała wężowi: „Owoce z drzew tego ogrodu jeść możemy, tylko o owocach z drzewa, które jest w środku ogrodu, Bóg powiedział: »Nie wolno wam jeść z niego, a nawet go dotykać, abyście nie pomarli«„. Wtedy rzekł wąż do niewiasty: „Na pewno nie umrzecie! Ale wie Bóg, że gdy spożyjecie owoc z tego drzewa, otworzą się wam oczy i tak jak Bóg będziecie znali dobro i zło”. Wtedy niewiasta spostrzegła, że drzewo to ma owoce dobre do jedzenia, że jest ono rozkoszą dla oczu i że owoce tego drzewa nadają się do zdobycia wiedzy. Zerwała zatem z niego owoc, skosztowała i dała swemu mężowi, który był z nią; a on zjadł. A wtedy otworzyły się im obojgu oczy i poznali, że są nadzy; spletli więc gałązki figowe i zrobili sobie przepaski.
Answer

Recommend Questions



Life Enjoy

" Life is not a problem to be solved but a reality to be experienced! "

Get in touch

Social

© Copyright 2013 - 2024 KUDO.TIPS - All rights reserved.