Facebook
From Kamil, 6 Years ago, written in Plain Text.
Embed
Download Paste or View Raw
Hits: 287
  1. ZADANIE 1
  2.  
  3. program Project1;
  4.  
  5. {$mode objfpc}{$H+}
  6.  
  7. uses
  8.   {$IFDEF UNIX}{$IFDEF UseCThreads}
  9.   cthreads,
  10.   {$ENDIF}{$ENDIF}
  11.   Classes
  12.   { you can add units after this };
  13. type tablica = array[1..11] of integer;
  14. var
  15. nazwa : string;
  16. i : integer ;
  17. t : tablica;
  18. plik : Text;
  19. Function srednia(t : tablica) : real;
  20. var sr : real;
  21.   suma : real;
  22.  
  23. begin
  24. suma:=0;
  25. srednia:=0;
  26. for i:=1 to 11 do
  27. begin
  28. suma:=suma+t[i];
  29.  
  30. end;
  31. srednia:=suma/11;
  32. end;
  33. procedure iloscpowtorzen(t : tablica);
  34. var iloscp : integer;
  35. begin
  36. iloscp:=0;
  37. for i:=1 to 11 do
  38. if(t[i]=t[1]) then iloscp := iloscp + 1;
  39.  
  40. writeln('ilosc powtorzen',iloscp);
  41. end;
  42. begin
  43. for i:=1 to 11 do
  44. begin
  45. writeln('t[',i,']');
  46.     readln(t[i]);
  47. end;
  48. for i:=1 to 11 do
  49. begin
  50.    writeln('t[',i,']=',t[i]);
  51. end;
  52.  
  53.  
  54. writeln('srednia wynosi:' ,srednia(t));
  55. iloscpowtorzen(t);
  56. writeln('Podaj nazwe pliku');
  57. readln(nazwa);
  58. Assign(plik,nazwa+'.txt');
  59. rewrite(plik);
  60. begin
  61. for i:=1 to 11 do
  62. writeln(plik,'Element[',i,']=',t[i]);
  63. end;
  64. close(plik);
  65. readln;
  66.  
  67. end.                                    
  68.  
  69.  
  70. ZADANIE 2
  71.  
  72.  Project1;
  73.  
  74. {$mode objfpc}{$H+}
  75.  
  76. uses
  77.   {$IFDEF UNIX}{$IFDEF UseCThreads}
  78.   cthreads,
  79.   {$ENDIF}{$ENDIF}
  80.   Classes
  81.   { you can add units after this };
  82. type tablica= array[1..8] of integer;
  83. var
  84. nazwa : string   ;
  85.  tablica1 : tablica;
  86.  i, ilosc : integer;
  87.  dane : Text;
  88. Function srednia(tablica1:tablica):Real;
  89. var suma : real;
  90.     ilosc : integer;
  91.  begin
  92.  suma:=0;
  93.  ilosc:=0;
  94.  for i:=0 to 8 do
  95.  begin
  96.  if(tablica1[i] mod 2 = 0) then
  97.  begin
  98.  suma:=suma+tablica1[i];
  99.  ilosc:=ilosc+1;
  100.  end;
  101.  end;
  102.  srednia:=suma/ilosc;
  103.  end;
  104. Procedure wartosczblizona(tablica1:tablica;srednia:Real);
  105. begin
  106. for i:=0 to 8 do
  107.     if((srednia-tablica1[i]<=1) and (srednia-tablica1[i]>=-1))  then
  108.     writeln('Liczby zblizone do sredniej to ',tablica1[i]);
  109.  
  110. end;
  111. begin
  112. for i:=1 to 8    do
  113. begin
  114.   writeln('Podaj ',i,' element tablicy');
  115.   readln(tablica1[i]);
  116. end;
  117.  
  118. for i:=1 to 8    do
  119. begin
  120.   writeln('Element[',i,']=',tablica1[i]);
  121.  
  122. end;
  123. writeln('Srednia elementow podzielnych przez dwa wynosi :',srednia(tablica1));
  124. wartosczblizona(tablica1,srednia(tablica1));
  125. writeln('Podaj nazwe pliku');
  126. readln(nazwa) ;
  127. Assign(dane,nazwa+'.txt');
  128. rewrite(dane);
  129. begin
  130. for i :=1 to 8 do
  131. writeln(dane,'Element[',i,']',tablica1[i]);
  132.  
  133. end;
  134. close(dane);
  135. readln;                
  136.  
  137.  
  138.