pentru n95

firstotherstuff — Sun, 13 Apr 2008 07:05:11 +0000

http://symbian-freak.com/downloads/download.htm

Afiseaza cel mai mare numar din 3:

firstotherstuff — Fri, 29 Feb 2008 19:23:07 +0000

program cel_mai_mare_nr;
var a,b,c:integer;
begin
write(‘a=’);
readln(a);
write(‘b=’);
readln(b);
write(‘c=’);
readln(c);
begin
if (a>b) and (a>c) then writeln(‘a=’,a)
else
if (b>a) and (b>c) then writeln(‘b=’,b)
else
if (c>a)and (c>b) then writeln(‘c=’,c)
else writeln(‘nr sunt egale’);
end;
readln;
end.

Afiseaza cel mai mic nr din 3:

firstotherstuff — Fri, 29 Feb 2008 19:22:00 +0000

program cel_mai_mare_nr;
var a,b,c:integer;
begin
write(‘a=’);
readln(a);
write(‘b=’);
readln(b);
write(‘c=’);
readln(c);
begin
if (a else
if (b else
if (c else writeln(‘nr sunt egale’);
end;
readln;
end.

Instructiunea FOR(ridica la patrat nr introdus de cate ori vrei(trebuie sa modifici cifra de dupa to si el va ridica la putera a doua pana va ajunge la nr introdus) :

firstotherstuff — Fri, 29 Feb 2008 18:05:29 +0000

program instructiune_for;
var a:longint;
begin
write(‘a=’);
readln(a);
for a:=1 to 10 do—->>>>(in loc de 10 puneti nr dorit).
writeln(sqr(a));
readln;
end.

Numele presedintelui(demonstreaza ca instructiunea case se poate folosi si pe string-uri):

firstotherstuff — Fri, 29 Feb 2008 09:08:06 +0000

program prenume_presedintele_tarii;
var x:integer;
begin
writeln(‘care este prenumele presedintelui tari’);
writeln(’1 -> traian’);
writeln(’2 -> taienel’);
writeln(’3 -> ion’);
readln(x);
case x of
1:writeln(‘Iti iubesti tara’);
2:writeln(‘ai fost aproape’);
3:writeln(‘Nu iti iubesti tara’);
end;
readln;
end.

Afiseaza tabla inmultiri:

firstotherstuff — Wed, 27 Feb 2008 15:49:45 +0000

program tabla_inmultiri;
var a,b:integer;
begin
for a:=1 to 10 do
begin
for b:=1 to 10 do
write(a:2,’*',b:2,’=',a*b:2);
writeln ;
readln;
end;
end.

Caluleaza cel mai mare divizor comun(cmmdc):

firstotherstuff — Wed, 27 Feb 2008 15:41:00 +0000

program Cmmdc;
var n,m,n1,m1,r:integer;
begin
writeln(‘D@ny(CJ)!’);
write(‘n=’);
readln(n);
write(‘m=’);
readln(m);
n1:=n;
m1:=m;
if n Begin
r:=n;
n:=m;
m:=r;
end;
repeat
r:=n mod m;
n:=m;
m:=r;
until r=0;
writeln(‘cmmdc(‘,n1,’,',m1,’)=’,n);
readln;
end.

6 din 49 dar numerele sunt puse de mine le puteti modifica….:

firstotherstuff — Tue, 26 Feb 2008 20:40:04 +0000

program loto;
var a,b,c,d,e,f:integer;
begin
writeln(‘apasa o tasta intre 1 si 49′);
write(‘primul nr ales=’);
readln(a);
write(‘al doilea nr ales=’);
readln(b);
write(‘al treilea nr ales=’);
readln(c);
write(‘al partulea nr ales=’);
readln(d);
write(‘al cincilea nr ales=’);
readln(e);
write(‘si al saselea nr ales=’);
readln(f);
if (a=1) and (b=2) and (c=3) and (d=4) and (e=5)and(f=6) then
writeln(‘esti castigator la 6 din 49,ai ales numerele 1,2,3,4,5,6′)
else writeln(‘esti un loozer,Numerele erau la mintea cocosului,Hai ca ti le zic eu …..1,2,3,4,5,6′);
readln;
end.

Transforma din secunde in minute:

firstotherstuff — Tue, 26 Feb 2008 19:56:12 +0000

program secunde_minute;
var m:longint;
s:longint;
begin
write(‘secunde=’);
readln(s);
m:=s;
s:=m div 60;
writeln(‘Minute=’,s);
readln;
end.

Transforma din minute in secunde:

firstotherstuff — Tue, 26 Feb 2008 19:48:20 +0000

program minute_secunde;
var m,s:longint;
begin
write(‘m=’);
readln(m);
m:=m;
s:=m*60;
writeln(‘s=’,s);
readln;
end.

NEXT PAGE