DUzun's Web
Programare, proiecte personale, divertisment

p16_40.pas

Program pag16_40;

const c1=1;   c2=5;   c3=10;

      c4=20;  c5=50;  c6=100;

      c7=200; c8=500; c9=1000;

var s,s1:integer;

    b1,b2,b3,b4,b5,b6,b7,b8,b9:integer;

begin

Writeln(#$D#$A+'Introdu suma lei!'); ReadLn(s);

s1:=s;

b9:=s1 div c9; s1:=s1 mod c9;

b8:=s1 div c8; s1:=s1 mod c8;

b7:=s1 div c7; s1:=s1 mod c7;

b6:=s1 div c6; s1:=s1 mod c6;

b5:=s1 div c5; s1:=s1 mod c5;

b4:=s1 div c4; s1:=s1 mod c4;

b3:=s1 div c3; s1:=s1 mod c3;

b2:=s1 div c2; s1:=s1 mod c2;

b1:=s1 div c1; s1:=s1 mod c1;

WriteLn(s,' lei in bancnote:');

if b1>0then Writeln(c1:5,'  - ',b1:5);

if b2>0then Writeln(c2:5,'  - ',b2:5);

if b3>0then Writeln(c3:5,'  - ',b3:5);

if b4>0then Writeln(c4:5,'  - ',b4:5);

if b5>0then Writeln(c5:5,'  - ',b5:5);

if b6>0then Writeln(c6:5,'  - ',b6:5);

if b7>0then Writeln(c7:5,'  - ',b7:5);

if b8>0then Writeln(c8:5,'  - ',b8:5);

if b9>0then Writeln(c9:5,'  - ',b9:5);

ReadLn;

end.

​

​

Aici acumulez programe şi algoritmi interesanti alcătuiţi de mine (cu mici excepţii) pe parcursul studierii unor limbaje de programare.

Cea mai mare parte din ele sunt realizate în Pascal. 

Nu am scopul creării unui curs specializat sau a descrierii detaliate a anumitor limbaje, ci doar prezint informaţii utile, plus ceva exemple interesante...

Răsfoitorul de fișiere (File Browser):

Codul sursă al programelor este organizat în mape şi fişiere.

Paginile care conțin cod sursă de programe de regulă au un răsfoitor de fișiere în partea stangă a paginii reprezentat de un bloc cu titlul „File Browser”.

Pentru a vizualiza un program sau conţinutul unei mape, faceţi click pe numele fişierului / mapei. Dacă fişierul nu este textual, el se va descărca automat, iar dacă este textual, conținutul lui se va afișa într-un bloc pe centrul paginii.

Pentru a descărca un fişier, faceţi click pe dimensiunea (size) lui.