NEXT PAGE

Calculeaza Ab patrat:

program a_plus_b_patrat;

uses
crt;
var a,b:longint;
abpatrat:longint;
begin
TextColor(red);
TextBackground(white);
writeln(‘make by D@ny(CJ)!’);
write(‘a=’);
readln(a);
TextColor(red);
write(‘b=’);
readln(b);
if a<0 then abpatrat:=(a*a)-2*(a*b)+(b*b)
else abpatrat:=(a*a)+2*(a*b)+(b*b);
writeln(‘ab patrat=’,abpatrat);
readln;
end.

Calculeaza Adunarea,Scaderea,Inmultirea,Inpartirea a doua numere:

program toate_calculele;
uses
crt;
var a,b:integer;
formula,Scadere,adunare,inpartire,inmultire:real;
begin
TextColor(white);
TextBackground(red);
writeln(‘by D@ny(CJ)!’);
write(‘a=’);
readln(a);
write(‘b=’);
readln(b);
Scadere:=a-b;
adunare:=a+b;
inpartire:=a/b;
inmultire:=a*b;
TextColor(green);
writeln(‘Scadere=’,Scadere);
writeln(‘Adunare=’,adunare);
writeln(‘Inpartire=’,inpartire);
writeln(‘Imultire=’,inmultire);
readln;
end.

Calculeaza Aria Triunghiului si a Dreptunghiului:

program aria_triunghiului;
uses
crt;
var BC,AD:integer;
AT:real;
At2:real;
begin
TextColor(green);
TextBackground(Blue);
writeln(‘Make by D@ny(CJ)!’);
write(‘BC=’);
readln(BC);
write(‘AD=’);
readln(AD);
At2:=(BC*BC);
AT:=(BC*AD)/2;
TextColor(red);
writeln(‘ATriunghi=’,AT);
writeln(‘APatrat=’,At2);
readln;
end.

Program care foloseste ”Length” si afiseaza cate  caractere  are  cuvantul scris:

program string;
uses
crt;
var c:string;
b:integer;
begin
TextColor(red);
TextBackground(green);
writeln(‘make by D@ny(CJ)!’);
write(‘Introdu text=’);
readln(c);
c:=c;
b:=length(c);
TextColor(white);
write(‘cuvantul are ‘,b);
write(‘ caractere’);
readln;
end.

Calculeaz Media,Aritmetica,Geometrica,Armonica:

program liber1;
uses
crt;
var a,b:integer;
Ma:real;
Mg:real;
Mp:real;
begin
TextBackground(white);
TextColor(red);
writeln(‘Make by D@ny(CJ)!’);
write(‘a=’);
readln(a);
TextColor(black);
write(‘b=’);
readln(b);
Mg:=sqrt(a*b);
Mp:=(2*a*b)/(a+b);
Ma:=(a+b)/2;
TextColor(green);
writeln(‘Ma=’,Ma);
writeln(‘Mg=’,Mg);
writeln(‘Mp=’,Mp);
readln;
end.

Verifica daca numerele de la 1 la n sunt palindroame:

Palindrom = numar egal cu inversul sau
Ex. 121=121, 123<>321
Program palindrom;
Uses
crt
var n,m,i,x:integer;
begin
writeln(‘make by D@ny(CJ!’);
TextColor(red);
TextBackground(Blue);
write(’n=’); readln(n);
for i:=1 to n do
begin
x:=i; m:=0;
repeat
m:=m*10+x mod 10;
x:=x div 10;
until x=0;
if m=i then write(i,’ ‘);
end;
readln;
end.

Cifra de control a unui numar:

program cifra_control;
uses crt;
var x,n,s:integer;
begin
writeln(‘make by D@ny(CJ!’);
TextColor(red);
TextBackground(Blue);
write(’n=’); readln(n);
while n>9 do
begin
s:=0; x:=n;
while x<>0 do begin
s:=s+x mod 10;
x:=x div 10;
end;
n:=s;
end;
write(’cifra de control: ‘,n);
readln;
end.

Suma cifrelor unui numar:

program suma_cifrelor;
uses
crt;
var n,s,x:integer;
begin
writeln(‘make by D@ny(CJ!’);
TextColor(red);
TextBackground(Blue);
write(’n=’); readln(n);
x:=n;
while n<>0 do
begin
s:=s+n mod 10;
n:=n div 10;
end;
write(’suma cifrelor numarului ‘,x,’ este: ‘,s);
readln;
end.

Cea mai mica valoare:

program cea_mai_mica_valoare;
uses
crt;
var n,min:integer;
begin
writeln(‘make by D@ny(CJ!’);
TextColor(red);
TextBackground(Blue);
write(’n=’); readln(n);
min:=maxint;
while n<>0 do
begin
if n<min then min:=n;
write(’n=’); readln(n);
end;
write(’minimul: ‘,min);
readln;
end.

Cea mai mare valoare:

program cea_mai_mare_valoare;
uses
crt;
var n,max:integer;
begin
writeln(‘make by D@ny(CJ!’);
TextColor(red);
TextBackground(Blue);
write(’n=’); readln(n);
max:=-maxint;
while n<>0 do
begin
if n>max then max:=n;
write(’n=’); readln(n);
end;
write(’maximul: ‘,max);
readln;
end.

Numarul de cifre al unui numar:

program nr_cifre;
uses
crt;
var n,nr:integer;
begin
writeln(‘make by D@ny(CJ)!’);
TextColor(white);
TextBackground(red);
write(’n=’); readln(n);
while n<>0 do
begin
nr:=nr+1;
n:=n div 10;
end;
write(n,’ are ‘,nr,’ cifre’);
readln;
end.

Verifica daca doua cuvinte rimeaza:

program rima;
uses
crt;
var s,t,ss,tt:string;
i,p:integer;
begin
TextColor(Red);
TextBackground(blue);
writeln(‘make by D@ny(CJ)!’);
write(’s=’); readln(s);
write(’t=’); readln(t);
write(’p=’); readln(p);
ss:=”; tt:=”;
for i:=1 to p do
begin
ss:=ss+s[length(s)];
delete(s,length(s),1);
end;
for i:=1 to p do
begin
tt:=tt+length(t);
delete(t,length(t),1);
end;
if ss=tt then write(’Cele doua cuvinte rimeaza’)
else write(’Cele doua cuvinte nu rimeaza’);
readln;
end.

Transformarea literelor mari în litere mici:
program litere_mari_in_litere_mici;
uses
crt;
var s:string;
i:integer;
begin
TextColor(red);
TextBackground(white);
writeln(‘make by D@ny(CJ)!’);
write(’s=’); readln(s);
for i:=1 to length(s) do
if (s[i]>=’A’) and (s[i]<=’Z’) then
s[i]:=char(ord(s[i])+32);
write(s);
readln; end.
Posted in Algoritmi | No Comments »
Pozitiile calului pe tabla de sah
February 11th, 2007
var i,c,x,y:integer;
begin
write(’x=’); readln(x);
write(’y=’); readln(y);
for i:=1 to 8 do
case i of
1:begin if (x-2>0) and (y+1>0) then writeln(’(‘,x-2,’,’,y+1,’)’); end;
2:begin if (x-1>0) and (y+2>0) then writeln(’(‘,x-1,’,’,y+2,’)’); end;
3:begin if (x+1>0) and (y+2>0) then writeln(’(‘,x+1,’,’,y+2,’)’); end;
4:begin if (x+2>0) and (y+1>0) then writeln(’(‘,x+2,’,’,y+1,’)’); end;
5:begin if (x+2>0) and (y-1>0) then writeln(’(‘,x+2,’,’,y-1,’)’); end;
6:begin if (x+1>0) and (y-2>0) then writeln(’(‘,x+1,’,’,y-2,’)’); end;
7:begin if (x-1>0) and (y-2>0) then writeln(’(‘,x-1,’,’,y-2,’)’); end;
8:begin if (x-2>0) and (y-1>0) then writeln(’(‘,x-2,’,’,y-1,’)’); end;
end;
readln;
end.