esercizi di fisicacon turbo pascal 1.1 su mac

 

(* conca2.fis immagini specchi concavi e lenti convesse*)
program concavi;
var p,q,i,g:real;
    s,f:integer;
    contatore,passo:integer;
    b:string;
begin
  clearscreen;
 b:='----------------------------------------------------';
 f:=40;
 p:=120;
 s:=50;
 passo:=10;
 writeln('legge punti coniugati per specchi concavi o lenti convergenti');
 writeln('osservare variazione segno per q,g,i ');
 writeln('fuoco=40..posizione sorgente iniziale=120..sorgente=50 ');
 writeln;
 for contatore:=1 to 10 do
  begin
  if p=2*f -passo then writeln(b);
  if p=f then
  begin
  writeln('sorgente su fuoco=immagine a infinito');
  p:=p-passo;
  end;
  q:=f*p/(p-f);
  g:=q/p;
  i:= s*g;
  write('dsorgente=',p:3:0,'...dimmagine=',q:3:0);
  writeln('...g=',g:3:2,'...altezzas=',s,'...altezzai=',i:3:0);
  p:=p-10;
  end;
  writeln('premi enter per finire');
  readln;
end.