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.
*)
" Life is not a problem to be solved but a reality to be experienced! "
© Copyright 2013 - 2024 KUDO.TIPS - All rights reserved.
Zad.1
a)
Program cwicz_2_3; {nazwa programu}
uses crt; {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}
b)
Program cwicz_2_3; {nazwa programu}
uses crt; {deklaracja modulu Crt}
Begin {poczatek wykonania programu}
Clrscr; {wyczyszczenie ekranu}
Writeln (' Do wyczyszczenia ekranu sluzy komenda CLRSCR ');
Sound (1500); {wysokosc dzwieku}
Delay (300); {dlugosc trwania - półnuta}
Nosound; {wylacz dzwiek}
Delay (100);
Sound (1100);
Delay (100);
Nosound; {wylacz dzwiek}
Repeat until KeyPressed {czekaj na wcisniecie dowolnego klawisza}
End. {koniec programu}
c)
Program cwicz_2_3; {nazwa programu}
uses crt;{deklaracja modulu Crt}
Begin {poczatek wykonania programu}
Clrscr; {wyczyszczenie ekranu}
Writeln (' Do wyczyszczenia ekranu sluzy komenda CLRSCR ');
Sound (262); {wysokosc dzwieku}
Delay (1200); {dlugosc trwania - półnuta}
Nosound; {wylacz dzwiek}
Delay (50);
Sound (294);
Delay (1200);
Nosound; {wylacz dzwiek}
Delay (50);
Sound (330);
Delay (1200);
Nosound; {wylacz dzwiek}
Delay (50);
Sound (349);
Delay (1200);
Nosound; {wylacz dzwiek}
Delay (50);
Sound (392);
Delay (1200);
Nosound; {wylacz dzwiek}
Delay (50);
Sound (440);
Delay (1200);
Nosound; {wylacz dzwiek}
Delay (50);
Sound (494);
Delay (1200);
Nosound; {wylacz dzwiek}
Delay (50);
Sound (523);
Delay (1200);
Nosound; {wylacz dzwiek}
Repeat until KeyPressed {czekaj na wcisniecie dowolnego klawisza}
End. {koniec programu}
d)
Program cwicz_2_3; {nazwa programu}
uses crt;{deklaracja modulu Crt}
Begin {poczatek wykonania programu}
Clrscr; {wyczyszczenie ekranu}
Writeln (' Do wyczyszczenia ekranu sluzy komenda CLRSCR ');
Sound (392); {wysokosc dzwieku} //sol
Delay (1200); {dlugosc trwania - półnuta}
Nosound; {wylacz dzwiek}
Delay (50);
Sound (330); //mi
Delay (1200);
Nosound; {wylacz dzwiek}
Delay (50);
Sound (330); //mi
Delay (1200);
Nosound; {wylacz dzwiek}
Delay (50);
Sound (349); //fa
Delay (1200);
Nosound; {wylacz dzwiek}
Delay (50);
Sound (294); //re
Delay (1200);
Nosound; {wylacz dzwiek}
Delay (50);
Sound (294); //re
Delay (1200);
Nosound; {wylacz dzwiek}
Delay (50);
Sound (330); //mi
Delay (1200);
Nosound; {wylacz dzwiek}
Delay (50);
Sound (262); //do
Delay (1200);
Nosound; {wylacz dzwiek}
Delay (50);
Sound (330); //mi
Delay (1200);
Nosound; {wylacz dzwiek}
Repeat until KeyPressed {czekaj na wcisniecie dowolnego klawisza}
End. {koniec programu}
Zad.2
a)
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}
GoToXY(18,6); {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}
b)
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}
GoToXY(18,6); {ustaw kursor w 5 wierszu i 10 kolumnie ekranu}
Write (' TURBO PASCAL'); {pisz na ekranie tekst}
GoToXY (40,10);
TextColor(Yellow + Blink); {ustawienie koloru liter na blyskajacy czerwony}
HighVideo; {ustawienie trybu zwiększonej jaskrawosci}
write(' Jan ');
GoToXY (39,11);
TextColor(White + Blink); {ustawienie koloru liter na blyskajacy czerwony}
HighVideo; {ustawienie trybu zwiększonej jaskrawosci}
write(' Nowak ');
TextColor(Green + Blink); {ustawienie koloru liter na blyskajacy czerwony}
HighVideo; {ustawienie trybu zwiększonej jaskrawosci}
GoToXY (30,12);
write(' Lublin, ul. Witosa 6/10 ');
NormVideo; {ustawienie normalnej jaskrawosci}
Repeat until keypressed {czekaj na wcisniecie dowolnego klawisza}
End. {koniec programu}
c)
Program cwicz_2_4; {naglowek}
Uses Crt; {deklaracja modulu CRT}
var imie, nazwisko, adres: String;
Begin {czesc wykonawcza}
Clrscr; {procedura czysc ekran z modulu CRT}
writeln('Podaj Imie');
readln(imie);
writeln('Podaj Nazwisko');
readln(nazwisko);
writeln('adres');
readln(adres);
GoToXY (40,10);
TextColor(Yellow + Blink); {ustawienie koloru liter na blyskajacy czerwony}
HighVideo; {ustawienie trybu zwiększonej jaskrawosci}
write(imie);
GoToXY (40,11);
TextColor(White + Blink); {ustawienie koloru liter na blyskajacy czerwony}
HighVideo; {ustawienie trybu zwiększonej jaskrawosci}
write(nazwisko);
TextColor(Green + Blink); {ustawienie koloru liter na blyskajacy czerwony}
HighVideo; {ustawienie trybu zwiększonej jaskrawosci}
GoToXY (40,12);
write(adres);
NormVideo; {ustawienie normalnej jaskrawosci}
Repeat until keypressed {czekaj na wcisniecie dowolnego klawisza}
End. {koniec programu}
d)
Program cwicz_2_4; {naglowek}
Uses Crt; {deklaracja modulu CRT}
var i,x,y,xk,yk:Integer;
Begin {czesc wykonawcza}
Clrscr; {procedura czysc ekran z modulu CRT}
Randomize;
for i:=1 to 4 do
begin
x:= Random(50);
y:=Random(50);
GoToXY (x,y);
write('H');
if i=4 then
begin
xk:=trunc(x/2);
yk:=trunc(y/2);
gotoXY(xk,yk);
end;
end;
Repeat until keypressed {czekaj na wcisniecie dowolnego klawisza}
End. {koniec programu}
Zad. 4
a)
Program cwicz_2_5; {naglowek - tytul programu}
Uses Crt; {deklaracja modulu CRT}
Var n,m,a,b: integer; {deklaracja zmiennej n}
Begin {czesc wykonawcza}
Clrscr; {procedura czysc ekran z modulu CRT}
Randomize; {rozpoczecie losowania}
n := Random(100); { do zmiennej n wstaw wylosowana cyfre (od 0 do 9)}
m := Random(100);
a:=Random(10)+11;
b:=Random(900)+100;
Writeln(n:5); {wyswietl wylosowana liczbe na 5 miejscach}
TextColor(Green);
Writeln(m:5);
TextColor(Red);
Writeln(a:5);
TextColor(Yellow);
Writeln(b:5);
Repeat until keypressed {czekaj na wcisniecie dowolnego klawisza}
End. {koniec programu}
b)
Program cwicz_2_5; {naglowek - tytul programu}
Uses Crt; {deklaracja modulu CRT}
Var a,b: real; {deklaracja zmiennej n}
Begin {czesc wykonawcza}
Clrscr; {procedura czysc ekran z modulu CRT}
Randomize; {rozpoczecie losowania}
a:=(Random(100000)+1)/100000;
b:=(Random(100000)+1)/100000;
Writeln(a:7:5);
Writeln(b:7:5);
Repeat until keypressed {czekaj na wcisniecie dowolnego klawisza}
End. {koniec programu}