Posted By

kvaso on 06/01/10


Tagged


Versions (?)

ujo fero


 / Published in: Pascal
 

  1. uses {uTEST,} crt;
  2. var K, N, A, B, C, M, P, Z, i,j,ii,jj : longint;
  3. var prvaCifra, druhaCifra,pocet,code:integer;
  4. var s:real;
  5. var pom:string;
  6.  
  7.  
  8. begin
  9. clrscr;
  10. {0}
  11. gotoxy(2,2); write( 'Kpt. ujo Fero je tu!');
  12. assign(input,'VSTUP.in'); reset(input);
  13. read(K,N,A,B,C,M,P,Z);
  14. {a}
  15. gotoxy(2,4); write('Kubkov panelak ma 5 poschodi.');
  16. gotoxy(2,5); write('Matkov panelak ma ',k*2-1,' poschodi.');
  17. {b}
  18. gotoxy(2,7); write('IAIA: ');
  19. str(n,pom);
  20. prvaCifra := ord(pom[1])-48;
  21. druhaCifra := ord(pom[2])-48;
  22. druhaCifra := druhaCifra + 1;
  23. for i:=1 to 5 do begin
  24. write(prvaCifra,druhaCifra,prvaCifra,druhaCifra,' ');
  25. druhaCifra:=druhaCifra+1;
  26. if (druhaCifra > 9) then begin
  27. druhaCifra := 0;
  28. prvaCifra := prvaCifra + 1;
  29. end;
  30. end;
  31. {c}
  32. gotoxy(2,9); write('3u: A=',A,' B=',B,' C=',C);
  33. if (a+b>c) and (a+c>b) and (b+c>a) then write(' sa da.')
  34. else write(' sa neda.');
  35. gotoxy(2,10); write('Obvod: ',a+b+c);
  36. s := (a+b+c)/2;
  37. gotoxy(2,11); write('Plocha: ',sqrt(s*(s-a)*(s-b)*(s-c)):0:1);
  38. {d}
  39. {uff no s tymto boli problemy - urcote sa to da cez nejaku matiky, ale
  40.   z tohto vztahu som nevedel vyjadrit X: sqrt(b+x)-sqrt(a+x)=sqrt(c+x)-sqrt(b+x)
  41.   takze nakoniec som to urobil britalnou silou :D }
  42.  
  43. gotoxy(2,12);
  44. i := 0;
  45. while true do begin
  46. if (frac(sqrt(a+i))=0.0) and (frac(sqrt(b+i))=0.0) and (frac(sqrt(c+i))=0.0) then begin
  47. {ak su odmocniny cele cisla}
  48. if sqrt(b+i)-sqrt(a+i)=sqrt(c+i)-sqrt(b+i) then break; //nasiel som vysledok
  49. end;
  50. i := i + 1;
  51. end;
  52. write(A,'+',i,'=',round(sqrt(A+i)),'^2 ');
  53. write(B,'+',i,'=',round(sqrt(B+i)),'^2 ');
  54. write(C,'+',i,'=',round(sqrt(C+i)),'^2');
  55. end.

Report this snippet  

You need to login to post a comment.