Document, comentariu, eseu, bacalaureat, liceu si facultate
Top documenteAdmitereTesteUtileContact
      
    


 


Ultimele referate adaugate

Adauga referat - poti sa ne ajuti cu un referat?

Politica de confidentialitate



Ultimele referate descarcare de pe site
  CREDITUL IPOTECAR PENTRU INVESTITII IMOBILIARE (economie)
  Comertul cu amanuntul (economie)
  IDENTIFICAREA CRIMINALISTICA (drept)
  Mecanismul motor, Biela, organe mobile proiect (diverse)
  O scrisoare pierduta (romana)
  O scrisoare pierduta (romana)
  Ion DRUTA (romana)
  COMPORTAMENT PROSOCIAL-COMPORTAMENT ANTISOCIAL (psihologie)
  COMPORTAMENT PROSOCIAL-COMPORTAMENT ANTISOCIAL (psihologie)
  Starea civila (geografie)
 

Ultimele referate cautate in site
   domnisoara hus
   legume
    istoria unui galban
   metanol
   recapitulare
   profitul
   caract
   comentariu liric
   radiolocatia
   praslea cel voinic si merele da aur
 
despre:
 
PROBLEME
Colt dreapta
Vizite: ? Nota: ? Ce reprezinta? Intrebari si raspunsuri
 
PROBLEME q6i8ih
De Apostol Vlad & Al-Zaim .....bla bla 1.
Program afisare_alfabet;
AAcest program afiseaza toate literela mari in ordine invers alfabeticaS
Uses crt;
Var a:char;
Begin
Clrscr;
For a:=’Z’ downto ‘A’ do write(a,’,’);
AAm folosit instructiunea “For…to,For…downto”.”a” ia valori de la Z pana la AS
Readln;
End.

2.
Program anotimpuri;
AAcest program afiseaza un anotimp corepunzator tastei apasateS
Uses crt;
Var nr:char;
Begin
Clrscr;
Write(‘Dati numarul anotimpului: ‘);
Nr:=readkey;
AReadkey este o functie a bibliotecii CRT care returneaza un caracter - corepunzator tastei apasateS
Case nr of
‘1’: write(‘primavara’);
‘2’: write(‘vara’);
‘3’: write(‘toamna’);
‘4’: write(‘iarna’);
AAm folosit istructiunea “Case” cu ajutorul careia am luat fiecare caz in parteS end readln; end.

3.
Program perimetru_arie;
AAcest program calculeaza aria shi perimetrul unui triunghiS
Uses crt;
Var perimetrul,p,a,b,c,arie:real;
Begin
Clrscr;
Write(‘introduceti prima latura: ‘);
Readln(a);
Write(‘Introduceti cea de-a doua latura: ‘);
Readln(b);
Write(‘Introduceti cea de-a treia latura: ‘);
Readln(c); p:=(a+b+c)/2;
Arie:=sqrt(p*(p-a)*(p-b)*(p-c));
Writeln(‘Aria este: ‘,arie:7:2);
A“ arie:7:2 inseamna ca rezultatul poate avea 7 cifre inainte de virgula si 2 cifre dupa virgulaS
Perimetrul:=a+b+c;
Writeln(‘Perimetrul este: ‘,perimetrul:7:2);
Readln;
End.




4.
Program triunghi_dreptunghic;
AAcest program calculeaza perimerul, aria si ipotenuza unui triunghi dreptunghicS
Uses crt;
Var a,b,c,p,arie:real;
Begin
Clrscr;
Write(‘Dati valoarea lui a: ‘);
Readln(a);
Write(‘Dati valoarea lui b: ‘);
Readln(b); c:=sqrt(sqr(a)+sqr(b)); p:=a+b+c; arie:=(a*b)/2;
writeln(‘Ipotenuza este: ‘,c:7:2);
writeln(‘Perimetrul este: ‘,p:7:2);
writeln(‘Aria este: ‘,arie:7:2); readln; end.

5.
Program nume;
AAcest program afiseaza doua nume in ordine alfabeticaS
Uses crt;
Var n1,n2:string;
A“n1,n2:string” inseamna ca n1 si n2 sunt siruri de caractere cuprinse intre apostrofuriS
Begin
Clrscr;
Write(‘Primul nume este: ‘);
Readln(n1);
Write(‘Al doilea nume este: ‘);
Readln(n2);
If n1>n2 then writeln(n2,’ ‘,n1)
Else writeln(n1,’ ‘,n2);
ADaca n1>n2 atunci va afisa n2,n1 sau altfel n1,n2S
Readln;
End.
6.
Program optiune;
AAcest program calculeaza ,dupa dorinta utilizatorului, media aritmetica sau media geometricaS
Uses crt;
Var a,b,ma,mg:real; op:char;
AChar este o instructiune string dar are un singur caracter cuprins intre apostrofuriS
Begin
Clrscr;
Write(‘Dati valoarea lui a: ‘);
Readln(a);
Write(‘Dati valoarea lui b: ‘);
Readln(b);
Write(‘Ce doriti sa calculam? (1)-ma, (2)-mg’);
Readln(op);
If op’1’ then
Begin
Ma:=(a+b)/2;
Writeln(‘Media aritmetica este: ‘,ma:5:2);
End
ADaca utilizatirul a ales optiunea 1 atunci se va calcula media aritmeticaS
Else
If op=’2’ then
Begin
Mg:=sqrt(a*b);
Writeln(‘Media geometrica este: ‘,mg:5:2);
End
Else
If op>’2’ then writeln(‘Nu ati ales una dintre optiuni’);
Readln;
End.

7.
Program piramida;
Uses crt;
Var u,I,j:integer;
Begin
Clrscr;
Write(‘Dati valoarea lui n: ‘);
Readln(n);
For I:=1 to n do
Beginfor j:=1to I do write(j:2);
Writeln;
End;
Readln;
End.
8.
Program unghiuri;
Uses crt;
Var g,g1,g2,m,m1,m2,s,s1,s2:integer;
Begin
Clrscr;
Write(‘Dati marimea primului unghi: ‘);
Readln(g1,m1,s1);
Write(‘Dati valoarea celui de-al doilea unghi: ‘);
Readln(g2,m2,s2); g:=g1+g2; m:=m1+m2; s:=s1+s2;
If s>60 then begin m:=m+1; s:=s-60 end;
If m>60 then begin g:=g+1; m:=m-60; end;
writeln(‘Suma este: ‘,g,’ grade ‘,m,’ minute ‘,s,’ secunde ‘); readln; end.

9.
Program patrat;
Uses crt;
Var n:integer;
Begin
Clrscr;
Write(Dati valoarea lui n: );
Readln(n);
For n:=1 to 9 do
If n*(n-1) mod 10=0 then writeln(n);
For n:=11 to 99 do
If n*(n-1) mod 100=0 then writeln(n);
For n:=101 to 999 do
If n*(n-1) mod 1000=0 then writeln(n);
Readln;
End.

10.
Program numar_roman;
Uses crt.
Var x:integer;
Begin
Write(‘Dati numarul arab’);
Readln(x);
Write(x,’=’);
While x>=1000 do begin write(‘M’); x:=x-1000;
End;
If x>=900 then begin write(‘CM’); x:=x-900; end; else if x>=500 then begin write(‘D’); x:=x-500; end; else if x>=400 then begin write(‘CD’); x:=x-400; end;
while x>=100 then begin write(‘C’); x:=x-100; end; if x>=90 then begin write(‘XC’); x:=x-90; end; else if x>=50 then begin write(‘L’); x:=x-50; end; else if x>=40 then begin write(‘XL’); x:=x-40; end;
while x>=10 then begin write (‘X’) x:=x-10; end;
If x>=9 then begin write (‘IX’); x:=x-9; end; else if x>=5then begin write (‘V’); x:=x-5; end; else if x=4 then begin write (‘IV’) x:=x-4; end;
while x>=1do begin write(‘I’); x:=x-1; end; readln; end.


Colt dreapta
Creeaza cont
Comentarii:

Nu ai gasit ce cautai? Crezi ca ceva ne lipseste? Lasa-ti comentariul si incercam sa te ajutam.
Esti satisfacut de calitarea acestui document, eseu, cometariu? Apreciem aprecierile voastre.

Nume (obligatoriu):

Email (obligatoriu, nu va fi publicat):

Site URL (optional):


Comentariile tale: (NO HTML)


Noteaza documentul:
In prezent fisierul este notat cu: ? (media unui numar de ? de note primite).

2345678910

 
Copyright© 2005 - 2024 | Trimite document | Harta site | Adauga in favorite
Colt dreapta