Informatika - Za novu profesorku nova tema! :D

[Carce]

Jos jednom da vas zamolim da koristite code tagove oko koda da bi bilo preglednije tj:

Kod Izaberi Expand

stavite [code] ispred i [/code] iza koda :)


Prvi zadatak

Kod Izaberi Expand

program Project5;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  f,g:file of integer;
  temp,i,j:integer;
  x:array[1..1000] of integer;
function zbirKubova(x:integer): Integer;
var
  zbir:integer;
begin
  zbir:=0;
  while x>0 do begin
    zbir:=zbir+(x mod 10)*(x mod 10)*(x mod 10);
    x:=x div 10;
  end;
  zbirKubova:=zbir;
end;
begin
  Assign(f,'prviFajl.ninja');
  Reset(f);

  i:=1;
  while NOT EOF(f) do begin
    Read(f,temp);
    if zbirKubova(temp) = temp then begin
      x[i]:=temp;
      i:=i+1;
    end;
  end;
  Close(f);

  Assign(g,'drugiFajl.ninja');
  Rewrite(g);
  for j := 1 to i do begin
    Write(g,x[j]);
  end;

end.

[Carce]

Kod Izaberi Expand

program Project5;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  f,g:file of integer;
  temp,i,j:integer;
  x:array[1..1000] of integer;
procedure KreirajF();
var y:file of integer;
    bla,yyy:integer;
begin
  Assign(y,'prviFajl.ninja');
  bla:=123;
  Rewrite(y);
  for yyy := 1 to  10 do
  Write(y,bla);
  Close(y);
end;

function zbirKubova(x:integer): Integer;
var
  zbir:integer;
begin
  zbir:=0;
  while x>0 do begin
    zbir:=zbir+(x mod 10)*(x mod 10)*(x mod 10);
    x:=x div 10;
  end;
  zbirKubova:=zbir;
end;
begin
  KreirajF();

  Assign(f,'prviFajl.ninja');
  Reset(f);

  i:=1;
  while NOT EOF(f) do begin
    Read(f,temp);
    if zbirKubova(temp) = temp then begin
      x[i]:=temp;
      i:=i+1;
    end;
  end;
  Close(f);

  Assign(g,'drugiFajl.ninja');
  Rewrite(g);
  for j := 1 to i do begin
    Write(g,x[j]);
  end;

end.

[Pavle]

Kod Izaberi Expand

program p;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
A:array[1..9, 1..9] of char;
i,j,k,z,t:integer;
s:char;
begin
for i := 1 to 9 do
begin
  a[i,9]:='0';
  a[9,i]:='0';
end;
for i:=1 to 8 do
  begin
  for j := 1 to 8 do
   begin
   read(a[i,j]);
   if a[i,j]='+' then begin a[9,j]:=chr(ord(a[9,j])+1);
                            a[i,9]:=chr(ord(a[i,9])+1);
                        end;
   end;
  end;
read(k);
  for I := 1 to k do
   begin
    s:='9';

    for j := 1 to 8 do
      if a[9,j]<s then begin z:=9;t:=j; s:=a[9,j]; end;

    for j := 1 to 8 do
      if a[j,9]<s then begin z:=j;t:=9; s:=a[j,9]; end;

  if z=9 then begin
               for j := 1 to 8 do
                begin
                  case a[j,t] of
                   '+':begin a[j,t]:='-'; a[j,9]:=chr(ord(a[9,j])-1); end;
                   '-':begin a[j,t]:='+'; a[j,9]:=chr(ord(a[9,j])+1); end;
                  end;
                end;
               a[z,t]:=chr(8-(ord(a[z,t])-48)+48);
              end
               else begin  for j := 1 to 8 do
                begin
                  case a[z,j] of
                   '+':begin a[z,j]:='-'; a[j,9]:=chr(ord(a[j,9])-1); end;
                   '-':begin a[z,j]:='+'; a[j,9]:=chr(ord(a[j,9])+1); end;
                  end;
                end;
               a[z,t]:= chr(8-(ord(a[z,t])-48)+48);
               end;
              end;
  k:=0;
for I := 1 to 8 do
  k:=k+ord (a[i,9])+ord(a[9,i])-96;
writeln(k);
end.

treba da se doradi

[the Pera]

@Carce: IZMENI MALO !znace da je kao moje..

Kod Izaberi Expand


program zad2;

{$APPTYPE CONSOLE}
{Napisati program koji u tekstualnoj datoteci u
kojoj se nalaze realni brojevi pronalazi najveću vrednost i
ispisuje je.}
uses
  SysUtils;

var f:text;
a,max :real;
begin
assign(f,'input.txt');
reset(f);
read(f,a);
max:=a;
while not eof(f) do
begin
   read(f,a);
   if max<a then   max:=a;
  end;
writeln(max:10:2);
readln
end.