Informatica - Pagina 4

[ Mesaje noi · Membrii · Regulamentul forumului · Căutare · RSS ]

Pagina 4 din 4
«
1
2
3
4

Informatica (Intrebări de programare și de hardware.)

Informatica

Olguta

Data: Duminică, 2015-05-17, 9:23 PM | Mesaj # 31

Soldat

Grup: Utilizatori

Mesaje: 4

Reputaţie: 0

Status: Offline

Exercitiul 11 pagina 16

Program Ex11pag16;
const P = 3,14;
var l, A, R : real;
begin
write ('Introduceti raza R:'); readln ®;
l:=2*P*R;
writeln ('Lungimea l=', l);
A:=P*R*R;
writeln ('Aria A=',A);
end.

love_valerika

Data: Luni, 2015-05-18, 12:52 PM | Mesaj # 32

Soldat

Grup: Utilizatori

Mesaje: 3

Reputaţie: 0

Status: Offline

Se da un numar natural n.Scrieti un program Pascal ce determina valoarea de adevar a afirmatiei ca el este patrat perfect.
Program Ex11pag18
type Natural=0.. MaxInt;
var n: Natural;
begin
readln(n);
if (sqrt(n) mod 1=0 then write ('A adevarat);
else write(1 Fals');
end.

Olguta

Data: Luni, 2015-05-18, 5:04 PM | Mesaj # 33

Soldat

Grup: Utilizatori

Mesaje: 4

Reputaţie: 0

Status: Offline

Exercițiul 4 pagina 31.
Scrieți un program ce va fișa pe ecran simbolurile:
a
bb
ccc
dddd

Rezolvare :

Program Ex4pag31;
begin
writeln ('a') ;
writeln ('bb') ;
writeln ('ccc') ;
writeln ('dddd') ;
end .

love_valerika

Data: Luni, 2015-05-18, 5:11 PM | Mesaj # 34

Soldat

Grup: Utilizatori

Mesaje: 3

Reputaţie: 0

Status: Offline

Program ex7pag31
var i;j;n: integer;
writeln ('Dati valoarea lui n');
readln(n)
if n>0 then writeln('numarul dat este negativ');
else if n=0 then;
write('Numarul dat este egal cu 0') else;
write('Numarul dat este negativ')
readln;
end.

Olguta

Data: Luni, 2015-05-18, 6:12 PM | Mesaj # 35

Soldat

Grup: Utilizatori

Mesaje: 4

Reputaţie: 0

Status: Offline

Exercitiu 6 pagina 31
Scrieti un program Pascal pentru calcularea sumei patratelor primelor n numere naturale .

Rezolvare :

Program Ex6pag31;
var n, i : 1..MaxInt;
s : real;
begin
write ('n=') ;
readln (n ) ;
s:=0;
for i:=1 to n do s:=s+sqr(i);
writeln('s=', s) ;
readln;
end .

ionelamaxim99

Data: Marţi, 2015-05-19, 11:23 PM | Mesaj # 36

Soldat

Grup: Utilizatori

Mesaje: 2

Reputaţie: 0

Status: Offline

ex 6 pag 31 C

Program P6;
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.

Adăugat (2015-05-19, 11:23 PM)
---------------------------------------------
exercitu 3 (b) pag 30-31 C

Comentati secventele de mai jos.
1) 1:=0;
for i:=2.5 to 7.5
s:=s+sqr(i);
Rezolvare:
S - va fi egal cu 0+patratul unui numar de la 2.5 pina la 7.5.

2) a:=1; b:=2;
for j:=5 to 3 do
a:=b*a;
Rezolvare:
Instructiunea situata dupa dupa cuvintul cheie do nu executa nici odata ,fiindca valoare initiala este mai mare decit cea finala.

3) for c:='d' downo 'b' do
writeln(pred( c ));
Rezolvare:
c=d modul c modul b dar pred ( c )=c modul b modul a .