Question

1) Wykonaj program który liczy pola dowolnych figur za pomocą funkcji.

2) Wykonaj program który liczy pola dowolnych figur za pomocą procedur.

3) Program który liczy obwody dowolnych figur za pomocą funkcji.

3) Program który liczy obwody dowolnych figur za pomocą procedur.

4) Wykonaj program, który po wprowadzeniu przez użytkownika pewnych liczb do macierzy zlicza ilość wystąpień zer (proszę o zastosowanie procedur: array oraz randomize).

(Mają być to jak najprościej napisane programy)

Answer 1

ad1)

  var
  a,b:byte;

  function pole (a:byte;b:byte):longint;
  var kwadrat,prostokat,trojkat,rab :integer;
  begin
        kwadrat:=a*a;

       prostokat:=a*b

       trojkat:=(a*b)/2;

       rab:=a*b/2;   
  end;

 

ad2)

procedure pole (a:byte;b:byte)

var kwadrat,trojkat,rab,prostokat:integer;

begin

       kwadrat:=a*a;

       prostokat:=a*b

       trojkat:=(a*b)/2;

       rab:=a*b/2;

end;

 

ad3)

 function obw (a,b:byte):longint;

var kwadrat,prostokat,rab:integer;

begin

kwadrat:=4*a;

prostokat:=2*(a+b);

rab:=4*a

end;

 

ad4)

procedure obw1 (a,b:byte);

var kwadrat,prostokat,rab:integer;

begin

kwadrat:=4*a;

prostokat:=2*(a+b);

rab:=4*a

end;

 

ad5)

 

program zliczanie;
var
  s:string;
  tab:array [32..126] of integer;
  i:integer;
begin
  for i:=32 to 126 do
    Tab[i]:=0;
  write('Podaj tekst: ');
  readln(s);
  for i:=1 to Length(s) do
    if ord(s[i]) in [32..64,65..90,97..127] then
      inc(Tab[ord(s[i])]);
 for i:=32 to 126 do
    if Tab[i]<>0 then
      writeln(chr(i),' - ',Tab[i]);
  readln;
end.

 

Liczę na najlepszą odpowiedź..

Pozdro: ProProgramer