www.ispwsznysa.fora.pl

Mardok

Programowanie: Informatyka I

Lista8

Zadanie 1.
Napisz funkcję obliczającą sumę następującego ciągu:

1-1/2+3-1/4+5-…-1/n

Parametrem wywołania funkcji ma być N, które jest liczbą parzystą wprowadzoną z klawiatury. Funkcja ma zwracać sumę ciągu. Podczas wykonywania funkcja ma wypisywać każdy element ciągu na ekran.

Np. Ciąg ma postać:
1-1/2+3-1/4
Suma = 3.25

Zadanie 2.
Napisz funkcję sprawdzającą elementy tablicy dwuwymiarowej 10x10, będącej parametrem wywołania funkcji. Funkcja ma zwracać tablicę, której elementami będą:
- 0, jeżeli element parametru (tablicy) jest parzysty.
- 1, jeżeli element parametru (tablicy) nie jest parzysty.

Zadanie 3.
Napisz funkcję obliczającą element Max i Min tablicy dwuwymiarowej 10x10, będącej parametrem wywołania funkcji. Funkcja ma zwracać tablicę 6 elementową, której elementami będą wartości: Max, współrzędna 1 Max, współrzędna 2 Max, Min, współrzędna 1 Min, współrzędna 2 Min. Obie tablice mają być wyświetlone na ekran.

Zadanie 4.
Napisz procedurę, która wypełnia elementy tablicy dwuwymiarowej 10x10 losowymi liczbami rzeczywistymi z zakresu <-10,10>. Parametrem procedury ma być tablica. Tablica ma być wyświetlona na ekran.

Zadanie 5.
Napisz procedurę, która będzie wywoływana z dwoma parametrami (Tab1 i Tab2). Parametry będą tablicami dwuwymiarowymi o rozmiarze 10x10. Procedura będzie wypełniać elementy tablicy Tab2 kwadratem wartości elementu tablicy Tab1.

Zadanie 6.
Napisz procedurę, która będzie sprawdzała ilość elementów większych i mniejszych od 0 w tablicy będącej parametrem wywołania procedury. Tablica ma być wyświetlona na ekranie.

Mardok

program Halik_L8Z1;

{$APPTYPE CONSOLE}

uses
SysUtils;

function ciag(n : integer) : real;
var
i : integer;
r : real;

begin
r:=0;
write('Ciag = ');
for i:=1 to n do
begin
if (i mod 2) = 1 then
begin
r:=r + i;
if i = 1 then write(i)
else write('+',i);
end
else begin
r:=r - 1/i;
write('-1/',i);
end;
end;
writeln;
ciag:=r;
end;

begin
writeln('Suma = ',ciag(4):0:2);
readln;
end.

Mardok

program Halik_L8Z2;

{$APPTYPE CONSOLE}

uses
SysUtils;

type
tablica = array[1..10,1..10] of byte;

var
tab : tablica;
i,j : byte;

function fu(tab : tablica) : tablica;
var
i,j : byte;
begin
for i:=1 to 10 do
for j:=1 to 10 do
if ((i mod 2) = 0) or ((j mod 2) = 0) then fu[i,j]:=0
else fu[i,j]:=1;
end;

begin
tab:=fu(tab);

for i:=1 to 10 do
begin
for j:=1 to 10 do write(tab[i,j]);
writeln;
end;

readln;
end.

Mardok

program Halik_L8Z3;

{$APPTYPE CONSOLE}

uses
SysUtils;

type
tablica = array[1..10,1..10] of integer;
info = array[1..6] of integer;

var
i,j : byte;
tab : tablica;
inf : info;

function find(tab : tablica) : info;
var
i,j : byte;
min,max : integer;
begin
find[1]:=tab[1,1];
max:=tab[1,1];
find[2]:=1;
find[3]:=1;
find[4]:=tab[1,1];
min:=tab[1,1];
find[5]:=1;
find[6]:=1;

for i:=1 to 10 do
for j:=1 to 10 do
begin
if tab[i,j] > max then
begin
max:=tab[i,j];
find[1]:=tab[i,j];
find[2]:=i;
find[3]:=j;
end;
if tab[i,j] < min then
begin
min:=tab[i,j];
find[4]:=tab[i,j];
find[5]:=i;
find[6]:=j;
end;
end;

end;

begin
randomize;

for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
tab[i,j]:=random(10);
write(tab[i,j]:3);
end;
writeln;
end;

writeln;
inf:=find(tab);

for i:=1 to 6 do
begin
if i = 4 then writeln;
write(inf[i]:3);
end;

readln;
end.

Mardok

program Halik_L8Z4;

{$APPTYPE CONSOLE}

uses
SysUtils;

type
tablica = array[1..10,1..10] of integer;

var
tab : tablica;

procedure losuj(tab : tablica);
var
i,j : byte;
begin
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
tab[i,j]:=random(21)-10;
write(tab[i,j]:3);
end;
writeln;
end;
end;

begin
randomize;
losuj(tab);
readln;
end.

Mardok

program Halik_L8Z5;

{$APPTYPE CONSOLE}

uses
SysUtils;

type
tablica = array[1..10,1..10] of integer;

procedure kawadrat(tab1 : tablica; var tab2 : tablica);
var
i,j : byte;
begin
for i:=1 to 10 do
for j:=1 to 10 do
tab2[i,j]:=sqr(tab1[i,j]);
end;

var
i,j : integer;
t1,t2 : tablica;

begin
randomize;

for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
t1[i,j]:=random(4);
write(t1[i,j]:3);
end;
writeln;
end;

writeln;
kawadrat(t1,t2);

for i:=1 to 10 do
begin
for j:=1 to 10 do write(t2[i,j]:3);
writeln;
end;

readln;
end.

Mardok

program Halik_L8Z6;

{$APPTYPE CONSOLE}

uses
SysUtils;

const
n = 3;

type
tab = array[1..n,1..n] of integer;

var
tt : tab;
i,j : byte;

procedure spr(t : tab);
var
i,j : integer;
min,max : integer;
begin
min:=0;
max:=0;
for i:=1 to n do
begin
for j:=1 to n do
begin
if t[i,j] > 0 then inc(max);
if t[i,j] < 0 then inc(min);
write(t[i,j]:4);
end;
writeln;
end;
writeln;
writeln('Liczb w tablicy wiekszych od zera : ',max);
writeln('Liczb w tablicy mniejszych od zera : ',min);
end;

begin
randomize;
for i:=1 to n do for j:=1 to n do tt[i,j]:=random(101)-50;
spr(tt);
readln;
end.