Turbo Pascal - Programe si Instructiuni

2x puncte

categorie: Informatica

nota: 9.56

nivel: Liceu

Unul din cele mai simple programe, este acela de a afișa un text pe ecran, ca în exemplul următor :
Program inceput;
begin
writeln('Vornicescu Silviu');
writeln('Programator al firmei Delphin Software');
end.
În acest caz programul cuprinde :

..........

Citirea datelor

Citirea datelor se face începînd din poziți[...]
DOWNLOAD REFERAT

Preview referat: Turbo Pascal - Programe si Instructiuni

Unul din cele mai simple programe, este acela de a afișa un text pe ecran, ca în exemplul următor :
Program inceput;
begin
writeln('Vornicescu Silviu');
writeln('Programator al firmei Delphin Software');
end.
În acest caz programul cuprinde :

..........

Citirea datelor

Citirea datelor se face începînd din poziția curentă a cursorului și lasă cursorul după ultimul caracter citit.

Procedurile Read și ReadLn

Sintaxa : Read (variabila1, variabila2, …, variabila n)

Numărul minim de parametri este unu. Datele citite de la tastatură,se transferă într-o zonă tampon de memorie (bufer).

Program Citire_Scriere_Prg_0002;

VAR {Declarare variabile}
Raza : Integer; {Raza cercului}

Begin {Începutul programului}
WriteLn; {Afișează un rînd gol}
WriteLn('Introduceti raza cercului'); {Afișează textul dintre apostroafe}
ReadLn(Raza);WriteLn('Raza = ',Raza); {Citește valoarea introdusă de la
tastatură pentru variabila “raza” și
apoi tipărește această valoare}
WriteLn('Aria cercului este ',3.14*Raza*Raza:10:3); {Tipărește textul
dintre apostroafe și apoi valoarea
rezultată, prin calculare directă, începînd cu
coloana 10, spre stînga}
WriteLn('Lungimea cercului este ',2*3.14*Raza:10:3); {La fel deasupra}
WriteLn; {Afișează un rînd gol}
End. {Sfirșitul programului}

Unit-ul Crt

Unit-ul standard Crt (prescurtare de la Cathode Ray Tube) implementează un număr de subprograme axate spre aplicații în care ecranul este utilizat în mod caracter. Programele care utilizează aceste subprograme, trebuie să conțină directiva uses Crt .
Subprogramele unit-ului Crt pot fi clasificate astfel :

De interes general
Subprograme destinate gestiunii ferestrelor
Subprograme orientate spre culori
Subprograme destinate generatorului de sunet și a intensitații video

În accepțiunea unit-ului Crt, valorile “x” sau coloanele sînt numerotate crescător, de la stînga la dreapta, iar valorile “y” sau liniile sînt numerotate crescător, de sus în jos. Un ecran cu coordonate normale are 80 de coloane și 25 de linii.

Citiri speciale de la tastatură

Funcția KeyPressed

Funcția “KeyPressed” returnează valoarea “True” dacă pe claviatură s-a apăsat o tastă sau “False” în caz contrar. Funcția nu sesizează apăsarea tastelor “Shift, Alt, NumLock”. Se folosește în situațiile în care se rulează o secvență de instrucțiuni pînă cînd este apăsată o tastă. În cazul în care această funcție este reapelată, trebuie golit buffer-ul, utilizînd funcția “ReadLn” fără parametri, altfel funcția returnează “True” fără ca vreo tastă să fie apăsată. Programul următor (Prg_0003) așteaptă apăsarea unei taste pentru a se opri.

Program Functia_KeyPressed_Prg_0003;
Uses Crt;

Begin {Începe programul}
ClrScr; {Șterge ecranul}
Repeat {Repetă secvența de instrucțiuni
cuprinsă între "Repeat" și "Until"
cît timp "KeyPressed" este "True"}
Write('Turbo Pascal');Until KeyPressed; {Afișează textul dintre apostroafe}
End.

Funcția ReadKey

Funcția “ReadKey” este de tip caracter, fără parametri formali și returnează un caracter care s-a apăsat la tastatură. Caracterul tastat nu apare la ecran. Dacă în timpul funcționării unui program, se ajunge la această instrucțiune, programul așteaptă un timp nedeterminat, pînă se apasă o tastă.

Program ReadKey_Prg_0004;
Uses Crt;

Var
c:Char;

Begin
ClrScr; {Ștergerea ecranului}
c:=ReadKey; {Citirea caracterului tastat}
If c=#0 Then c:=ReadKey;
Case c Of {Instrucțiune de selecție multiplă}
#72:Write('Am apasat sageata sus');
#80:Write('Am apasat sageata jos');
#75:Write('Am apasat sageata stinga');
#77:Write('Am apasat sageata dreapta');
Else Write('Nu am apasat tastele cu sageti');
End
End.

Program Prg_0005_ReadKey;
Uses Crt;
Var
c:Char; {Variabila "c" este de tip caracter}
Begin
ClrScr; {Șterge ecranul}
c:=ReadKey; {Așteaptă să se apese o tastă}
Write('Ai apasat o tasta'); {Afișează textul dintre apostroafe}
End.

Ferestre ecran

O fereastră reprezintă o porțiune dreptunghiulară din ecran, în care se fac citiri și scrieri de date. Dacă nu se declară nici o fereastră, atunci tot ecranul este fereastra implicită. În momentul în care avem declarate mai multe ferestre, numai una poate fi activă la un moment dat.

Deschiderea unei ferestre se face cu procedura :

Window(C1,L1,C2,L2)
Perechile (C1,L1) și (C2,L2) reprezintă coordonatele colțurilor din stînga sus și dreapta jos. C1 și C2 reprezintă coloanele iar L1 și L2 reprezintă liniile. Colțul din stînga sus al unei ferestre are coordonatele (1,1). Nu există o procedură prin care se închide o fereastră. Prin deschiderea unei ferestre, se închide fereastra anterioară, adică nu mai este activă. Pentru a activa din nou o fereastră, se folosesc iar procedurile Window, TextBackGround și TextColor.

Despre culori

Culorile sînt obținute prin amestecul a trei culori : Red (Roșu), Green (Verde) și Blue (Albastru). Ele sînt codificate cu numere de la 0 la 15 sau cu constante simbolice reprezentînd denumirile în engleză a culorilor.

Unit-ul Crt lucrează în mod text. Ecranul văzut de noi dispune de 25 de linii și 80 de coloane. Un caracter se afișează la intersecția dintre o linie și o coloană. În memoria video pentru fiecare caracter se utilizează doi octeți, unul pentru a reține codul caracterului și unul pentru a reține atributele grafice, adică culoarea fondului, culoarea caracterului și pîlpîirea.

Spațiul de afișare a unui caracter are o culoare de fond (F), caracterul are o culoare de afișare (C) și afișarea este continuă sau intermitentă (B = Blink). Informațiile referitoare la atributele caracterului sînt reținute într-un octet. Structura acestuia pe biți este următoarea : BFFFCCCC. Cei patru biți notați cu C rețin culoarea de afișare a caracterului. De aici rezultă că avem la dispoziție 24 culori adică 16, codificate de la 0 la 15. Culoarea de fond se reprezintă pe 3 biți notați cu F, deci aem la dispoziție 23 culori, adică 8, notate de la 0 la 7. Bitul B indică afișarea continuă (valoarea 0) sau intermitentă (valoarea 1).
DOWNLOAD REFERAT
« mai multe referate din Informatica

CAUTA REFERAT

TRIMITE REFERAT CERE REFERAT
Referatele si lucrarile oferite de E-referate.ro au scop educativ si orientativ pentru cercetare academica.
Confidentialitatea ta este importanta pentru noi

E-referate.ro utilizeaza fisiere de tip cookie pentru a personaliza si imbunatati experienta ta pe Website-ul nostru. Te informam ca ne-am actualizat termenii si conditiile de utilizare pentru a integra cele mai recente modificari privind protectia persoanelor fizice in ceea ce priveste prelucrarea datelor cu caracter personal. Inainte de a continua navigarea pe Website-ul nostru te rugam sa aloci timpul necesar pentru a citi si intelege continutul Politicii de Cookie. Prin continuarea navigarii pe Website-ul nostru confirmi acceptarea utilizarii fisierelor de tip cookie conform Politicii de Cookie. Nu uita totusi ca poti modifica in orice moment setarile acestor fisiere cookie urmarind instructiunile din Politica de Cookie.


Politica de Cookie
Am inteles