. Informatica - Pagina 3 - Forum
Liceul Teoretic "Ion Creangă" Popeștii de Sus
Luni, 2024-05-06, 5:36 AM
PrincipalăÎnregistrareAutentificare Bine aţi venit Vizitator | RSS

[ Mesaje noi · Membrii · Regulamentul forumului · Căutare · RSS ]
Forum » Viața din liceu » Studii » Informatica (Intrebări de programare și de hardware.)
Informatica
ygory1Data: Duminică, 2015-04-05, 9:49 PM | Mesaj # 21
Locotenent
Grup: Administratori
Mesaje: 37
Reputaţie: 13
Status: Offline
Sa se considere declaratiile:
type Zi = (L, Ma, Me, J, V, S, D);
Venit = array [Zi]of real;
var v:real;

v- venirul zilnic al unei interprinderi.
Sa se elaboreze un program ce v-a calcula:
a) venitul saptaminal
b) media veniului zilnic
c) ziua in care s-a obtinut venitul cel mai mare
d) ziua cu venitul cel mai mic.
În primul rînd adresarea la variabila de tip ARRAY: ve[z]
și ciclul se scrie pentru zile:     For z:=L to D do

Program ex5pag120;
type Zi= (L, Ma, Me, J, V, S, D);
Venit = array [Zi]of real;
var ve: venit;
ves, med, max, min : real;
n, i: integer;
z:zi;
begin
write (' Dati venitul zilnic pentru fiecare zi ');
i:=0;
For z:=L to D do Begin
                            readln(ve[z]);
                            ves:=ves+ve[z];
                            i:=i+1;
                        end;    {pentru (a)}
writeln(ves);
med:=ves/i;  writeln(med); { pentru (b)}

readln;
end.
 
principeceambData: Duminică, 2015-04-05, 9:58 PM | Mesaj # 22
Soldat
Grup: Utilizatori
Mesaje: 4
Reputaţie: 0
Status: Offline
Multumesc! smile
 
ygory1Data: Duminică, 2015-04-05, 10:19 PM | Mesaj # 23
Locotenent
Grup: Administratori
Mesaje: 37
Reputaţie: 13
Status: Offline
Sa se considere declaratiile: 
type Zi = (L, Ma, Me, J, V, S, D); 
Venit = array [Zi]of real; 
var v:real; 

v- venirul zilnic al unei interprinderi. 
Sa se elaboreze un program ce v-a calcula: 
a) venitul saptaminal 
b) media veniului zilnic 
c) ziua in care s-a obtinut venitul cel mai mare 
d) ziua cu venitul cel mai mic. 

Program ex5pag120; 
type Zi= (L, Ma, Me, J, V, S, D); 
Venit = array [Zi]of real; 
var ve: venit; 
ves, med, max, min : real; 
n, i: integer; 
z:zi; 
begin 
write (' Dati venitul zilnic pentru fiecare zi '); 
i:=0; 
For z:=L to D do Begin 
                            readln(ve[z]); 
                            ves:=ves+ve[z]; 
                         i:=i+1; 
                        end;    {pentru (a)}   
writeln(ves); 
med:=ves/i;  writeln(med); { pentru (b)} 
max:=ve
; min:=ve;
For z:=Ma to D do Begin 
                            if ve [z]> max then max:=ve[z];
                             if ve [z]< min then min:=ve[z];
                           end;    {pentru (c si d)} 
Writeln('min = ', min);
Writeln ('max = ',max);
readln; 
end
.
 
OlgutaData: Luni, 2015-04-27, 8:12 PM | Mesaj # 24
Soldat
Grup: Utilizatori
Mesaje: 4
Reputaţie: 0
Status: Offline
Cum sa rezolv in Pascal urmatoarea problema :
    Distanta parcursa de un automobil consta din n portiuni. De la tastatura se introduce n , timpul si viteza de miscare ale automobilului pe fiecare portiune de drum. Calculati viteza medie de miscare a automobilului. De exemplu , pentru perechile de date (0.5, 62), (1.2, 50), (0.8, 75) viteza medie va fi 60.4 km/h.

Adăugat (2015-04-27, 7:51 PM)
---------------------------------------------
Ex. 4 pag. 25
  De la tastatura se introduce un caracter . Determinati daca el reprezinta o litera majuscula , o minuscula , o cifra , un semn de punctuatie sau alt caracter.

Program Ex4 ;
var c : char ;
Begin
   writeln ('Introduceti un caracter');
   readln ©;
   case c of
     '0'..'9' : writeln ('Cifra');
     'A'..'Z': writeln ('Litera majuscula');
     'a'..'z' : writeln (Litera minuscula');
     '*'..'-' : writeln ('Semn de punctuatie');
   else writeln ('Alt cartacter');
end ;
readln ; 
end.

Adăugat (2015-04-27, 8:12 PM)
---------------------------------------------
Ex. 5 pag. 23
  Se da un numar intreg. Determinati daca este pozitiv, negativ sau egal cu 0.

Program Ex5pag23;
var i : integer;
begin 
  write ('i='); readln ( i ) ;
  if i>0 then writeln ('Numar pozitiv');
  if i<0 then writeln ('Numar negativ');
           else writeln ('Egal cu zero');
  reaqdln;
end .

 
ygory1Data: Marţi, 2015-05-05, 9:52 PM | Mesaj # 25
Locotenent
Grup: Administratori
Mesaje: 37
Reputaţie: 13
Status: Offline
Program  corect. Ai un 10!
 
cameliadariiData: Marţi, 2015-05-05, 10:09 PM | Mesaj # 26
Soldat
Grup: Utilizatori
Mesaje: 1
Reputaţie: 0
Status: Offline
pr.6 pag  31
Var n,m,sum;
begin.
writeln (Dati numarul n:');
readln (n); sum:=0;
for i:=1to n do
sum:=+sgr(i);
writeln)'Suma este :',sum);
readln;
end.

Adăugat (2015-05-05, 10:09 PM)
---------------------------------------------
pr.7 pag 27
var n,m,sum,max,i,j,k;intiger;
begin
writeln('Dati numarul n:');
readln (n); m:=n;sum:=0;i:=0;max:=0;
while n<>0 do begin
k:=m mod 10;if k> max then max:=k;
sum:=sum+k;inc(i);
k:=m div 10;
end.
writeln('Suma cifrelor este:',sum);
writeln('numarul de cifre este:',k);
writeln('cifra maxima este:',max);
readln;
end.

 
ygory1Data: Marţi, 2015-05-05, 10:42 PM | Mesaj # 27
Locotenent
Grup: Administratori
Mesaje: 37
Reputaţie: 13
Status: Offline
Distanta parcursa de un automobil consta din n portiuni. De la tastatura se introduce n , timpul si viteza de miscare ale automobilului pe fiecare portiune de drum. Calculati viteza medie de miscare a automobilului. De exemplu , pentru perechile de date (0.5, 62), (1.2, 50), (0.8, 75) viteza medie va fi 60.4 km/h.
Rezolvare:
Pentru calcularea vitezei medii este necesar de timpul total și distanța parcursă.
Timpul total se poate afla sumînd timpul de pe fiecare porțiune.
Distanța se poate afla cu ajutorul vitezei și timpului pe fiecare porțiune.
variabile necesare:
 n - numărul de porțiuni,
t - timpul total, ti - timpul  porțiunea i
d - distanța totală,
vi - viteza pe porțiunea i

Program vmedieș
var i, n, t, ti, d, vi : integerș
Begin
  write ('Numarul de portiuni n ='); readln (n ) ;
  for i:=1 to n do 
       begin 
          writeln ('dati  timpul ;i viteza pentru portiunea ',i);
           write('t = '); readln (ti);
           write ('vi = '); readln(vi);
           t:=t+ti; d:=d+ti*vi;
       end;
  v:=d/t
writeln('viteza medie  = ',v);
readln;
end.
 
ygory1Data: Miercuri, 2015-05-06, 3:49 PM | Mesaj # 28
Locotenent
Grup: Administratori
Mesaje: 37
Reputaţie: 13
Status: Offline
Citat cameliadarii ()
pr.6 pag  31
Var n,m,sum;
begin.
writeln (Dati numarul n:');
readln (n);
sum:=0;
for i:=1to n do
sum:=+sgr(i);
writeln)'Suma este :',sum);
readln;
end.

Program e6p31 
Var n,i,sum: integer
begin 
writeln (Dati numarul n:'); readln (n);
sum:=0; 
for i:=1 to n do 
sum:=sum + sgr(i); 
writeln)'Suma este :',sum); 
readln; 
end.
 
love_valerikaData: Joi, 2015-05-14, 8:42 PM | Mesaj # 29
Soldat
Grup: Utilizatori
Mesaje: 3
Reputaţie: 0
Status: Offline
Program ex7p18
type Natural=0.. MaxInt;
var n:Natural;
begin
readln
if (n mod 2=0) and (n mod 3=0)
then write('Adevarat');
else write ('Fals');
end.
 
ionelamaxim99Data: Joi, 2015-05-14, 9:02 PM | Mesaj # 30
Soldat
Grup: Utilizatori
Mesaje: 2
Reputaţie: 0
Status: Offline
(pagina 20 C)

programa 9;

var c1, c2 : char;

begin

readln (c1, c2);

if ord (c1) < ord (c2) then write ('adevarat');

else ('fals');

write;

end.

Ma puteti ajuta la ceea ce am gresit? sad
 
Forum » Viața din liceu » Studii » Informatica (Intrebări de programare și de hardware.)
Căutare:

Copyright MyCorp © 2024 Creaţi un website gratuit prin uCoz