1zad.(* Cwiczenie 2.3Napisz 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.4Program 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.5Program 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.*)
Answer
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

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.