|
 |
Liceul Teoretic "Ion Creangă" Popeștii de Sus |  |
 |
Luni, 2024-05-06, 11:26 AM |  |
       |
Bine aţi venit Vizitator | RSS |  |
|
Informatica
| |
| Dan | Data: Luni, 2014-12-22, 0:18 AM | Mesaj # 11 |
 Soldat
Grup: Utilizatori
Mesaje: 1
Status: Offline
| Determinati solutiile ecuatiei utilizind metoda bisectiei: x3+4x+1 pe [1,2] pentru 10 iteratii.
Program P1;
var a, b, c:real;
i, n : integer;
function f (x:real): real;
begin f :=x*sqr(x)+4*x+1; end;
begin a:=1; b:=1; n:=10;
for i:=1 to n do
begin c:=(b+a)/2;
writenln ('i=',i:3,' x=', c:12:8,'f(x)=',f©;12:8);
if f©=0 then break
else if f©*f(a) > 0 then a:=c else b:=c;
end;
end.
i= 1x= 1.50000000 f(x)= 10.37500000
i= 2x= 1.75000000 f(x)= 13.35937500
i= 3x= 1.87500000 f(x)=15.09179688
i= 4x= 1.93750000 f(x)= 16.02319336
i= 5x= 1.96875000 f(x)= 16.50582886
i= 6x= 1.98437500 f(x)= 16.75146103
i= 7x= 1.99218750 f(x)= 16.87536573
i= 8x=1.99609375 f(x)=16. 93759149
i= 9x=1.99804688 f(x)=16.96877288
i= 10x= 1.99902344 f(x)= 16.98438072
Mesajul a fost editat de către Dan - Luni, 2014-12-22, 0:29 AM |
| |
| |
| anellina96 | Data: Luni, 2014-12-22, 0:26 AM | Mesaj # 12 |
|
Soldat
Grup: Utilizatori
Mesaje: 1
Status: Offline
| Problema
Determinati solutia ecuatiei,utilizind metoda newton
x3+4x+1 pe[1,2] pentru 10 iteratii
Program cn10;
var a,b,x,c: real;
i,n : integer;
function f(z:real) :real:
begin f:=z*z*z+4x*z+1; end;
function fd1(z:real):real;
begin f:d1:=3*x*x+4; end;
begin a:=1; b:=2; n:=10; i:=0;
c:=a-(f(a))/(f(b)-f(a))*(b-a);
if f©*f(a)<0 then x:=a else x:=b;
while i<n do
begin i:=i+1;
x:= x-f(x)/fd1(x);
writeln('i=', i:2,'x=', x:15:12,' f=',f(x):15:12);
end;
end.
Mesajul a fost editat de către anellina96 - Luni, 2014-12-22, 0:34 AM |
| |
| |
| ygory1 | Data: Sâmbătă, 2014-12-27, 7:45 PM | Mesaj # 13 |
 Locotenent
Grup: Administratori
Mesaje: 37
Status: Offline
| Dar rezultate?
|
| |
| |
| cebotarivitalie98 | Data: Marţi, 2015-01-13, 7:00 PM | Mesaj # 14 |
|
Soldat
Grup: Utilizatori
Mesaje: 1
Status: Offline
| program pascal care va afisa un numar introdus de la tastatura cu litere ajutatima
?
|
| |
| |
| ygory1 | Data: Duminică, 2015-01-25, 8:10 PM | Mesaj # 15 |
|
Locotenent
Grup: Administratori
Mesaje: 37
Status: Offline
| In primul rind trebuie de clarificatCitat program pascal care va afisa un numar introdus de la tastatura cu litere |
| |
| |
| ygory1 | Data: Duminică, 2015-01-25, 8:20 PM | Mesaj # 16 |
|
Locotenent
Grup: Administratori
Mesaje: 37
Status: Offline
| O secventa de program care afisaza numarul de o cifra introdus in litere:
...
case i of
1: write('unu');
2: write('doi');
3: write('trei');
4: write('patru');
5: write('cinci');
6: write('sase');
7: write('sapte');
8: write('opt');
9: write('noua');
end;
...
|
| |
| |
| maria101197 | Data: Joi, 2015-02-12, 9:15 PM | Mesaj # 17 |
|
Soldat
Grup: Utilizatori
Mesaje: 1
Status: Offline
| cum va arata acest program ?
Se citesc de la tastatură n (n£20) numereleîntregi foarte mari (de cel mult 999 de cifre). Să se afişeze suma lor.
|
| |
| |
| ygory1 | Data: Joi, 2015-03-12, 7:24 PM | Mesaj # 18 |
|
Locotenent
Grup: Administratori
Mesaje: 37
Status: Offline
| Pentru numere de 250 de cifre se lucreaza cu string, se transforma fiecare celula cu val in numar si se aduna apoi de la rezultat ultima cifra se transforma in sir si se scrie la stringul rezultat
|
| |
| |
| ygory1 | Data: Sâmbătă, 2015-03-28, 10:36 PM | Mesaj # 19 |
|
Locotenent
Grup: Administratori
Mesaje: 37
Status: Offline
| 1. Dispozitiv necesar pentruaccesul la internet, care se conectează la linie telefonică.
2. Adresa unei pagini WEB semai numeşte ...
3. Un ansamblu de programepentru manevrarea informaţiilor bazate pe grafică şi text.
4. Tip de browser.
5. Regula de transformare a mesajelor în cuvinte se numeşte...
6. Un ansamblu de programese mai zice ...
7. Tasta din dreapta tastei“R”
8. Calculator caregăzduieşte un grup de informaţii şi oferă accesul la ele.
9. O pagină de Internet semai numeşte ...
10. Furnizor de servicii Internet.
11. Persoană care accesează fară a avea drepturi sistemeinformatice cu caracter secret.
12. Primul browser cu interfaţă grafică.
13. Reţele pe Net pe care se pot purta conversaţii în directcu alţi utilizatori.
14. Limbaj de programare.
|
| |
| |
| principeceamb | Data: Duminică, 2015-04-05, 9:39 PM | Mesaj # 20 |
|
Soldat
Grup: Utilizatori
Mesaje: 4
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;
begin
readln(n);
for i:=1 to n do begin
write(Zi); readln(ve);
end;
for i:=1 to n do begin
ves:=ve*i;
writeln(ves);
med:=ves/n;
writeln(med);
end;
readln;
end.
Puteti sa-mi spuneti ce sa fac ca acest program sa mearga?
Mesajul a fost editat de către principeceamb - Duminică, 2015-04-05, 9:43 PM |
| |
| |
|
| |
