Question

Proszę o wykonanie następujących programów:

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

2) 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.

Answer 1

Zad 1.

 

uses
    crt;

var
   a,b,r:integer;


function menu:char;
begin
     writeln('[K] Pole kwadratu');
     writeln('[P] Pole prostokata');
     writeln('[O] Pole kola');
     writeln('[X] Koniec programu');
     writeln('------------------');
     menu:=upcase(readkey);
end;

function kwadrat(a:integer):integer;
begin
     kwadrat:=a*a;
end;

function prostokat(a,b:integer):integer;
begin
     prostokat:=a*b;
end;

function kolo(r:integer):real;
begin
     kolo:=pi*r*r;
end;

begin
repeat
      clrscr;
      case menu of
           'K':
               begin
                    write('a: '); readln(a);
                    writeln('Pole kwadratu= ',kwadrat(a));
                    readln;
               end;
           'P':
               begin
                    write('a: '); readln(a);
                    write('b: '); readln(b);
                    writeln('Pole prostokata= ',prostokat(a,b));
                    readln;
               end;
           'O':
               begin
                    write('r: '); readln(r);
                    writeln('Pole kola=',kolo(r):2:2);
                    readln;
               end;
           'X':halt;

      end;
until false;
end.

 

Zad 2.

 

uses
    crt;

var
   a,b,r:integer;


function menu:char;
begin
     writeln('[K] Pole kwadratu');
     writeln('[P] Pole prostokata');
     writeln('[O] Pole kola');
     writeln('[X] Koniec programu');
     writeln('------------------');
     menu:=upcase(readkey);
end;

procedure kwadrat(a:integer);
var
   pole:integer;
begin
    pole:=a*a;
    writeln('Pole kwadratu=',pole);
end;

procedure prostokat(a,b:integer);
var
   pole:integer;
begin
     pole:=a*b;
     writeln('Pole prostokata=',pole);
end;

procedure kolo(r:integer);
var
   pole:real;
begin
     pole:=pi*r*r;
     writeln('Pole kola=',pole:2:2);
end;

begin
repeat
      clrscr;
      case menu of
           'K':
               begin
                    write('a: '); readln(a);
                    kwadrat(a);
                    readln;
               end;
           'P':
               begin
                    write('a: '); readln(a);
                    write('b: '); readln(b);
                    prostokat(a,b);
                    readln;
               end;
           'O':
               begin
                    write('r: '); readln(r);
                    kolo(r);
                    readln;
               end;
           'X':halt;

      end;
until false;
end.

 

Zad 3.

 

uses
    crt;

var
   a,b,r:integer;


function menu:char;
begin
     writeln('[K] Obwod kwadratu');
     writeln('[P] Obwod prostokata');
     writeln('[O] Obwod kola');
     writeln('[X] Koniec programu');
     writeln('------------------');
     menu:=upcase(readkey);
end;

function kwadrat(a:integer):integer;
begin
     kwadrat:=4*a;
end;

function prostokat(a,b:integer):integer;
begin
     prostokat:=2*(a+b);
end;

function kolo(r:integer):real;
begin
     kolo:=2*pi*r;
end;

begin
repeat
      clrscr;
      case menu of
           'K':
               begin
                    write('a: '); readln(a);
                    writeln('Obwod kwadratu= ',kwadrat(a));
                    readln;
               end;
           'P':
               begin
                    write('a: '); readln(a);
                    write('b: '); readln(b);
                    writeln('Obwod prostokata= ',prostokat(a,b));
                    readln;
               end;
           'O':
               begin
                    write('r: '); readln(r);
                    writeln('Obwod kola=',kolo(r):2:2);
                    readln;
               end;
           'X':halt;

      end;
until false;
end.

 

Zad 4.

 

uses
    crt;

var
   a,b,r:integer;


function menu:char;
begin
     writeln('[K] Obwod kwadratu');
     writeln('[P] Obwod prostokata');
     writeln('[O] Obwod kola');
     writeln('[X] Koniec programu');
     writeln('------------------');
     menu:=upcase(readkey);
end;

procedure kwadrat(a:integer);
var
   obwod:integer;
begin
     obwod:=4*a;
     writeln('Obwod kwadratu=',obwod);
end;

procedure prostokat(a,b:integer);
var
   obwod:integer;
begin
     obwod:=2*(a+b);
     writeln('Obwod prostokata=',obwod);
end;

procedure kolo(r:integer);
var
   obwod:real;
begin
     obwod:=2*pi*r;
     writeln('Obwod kola=',obwod:2:2);
end;

begin
repeat
      clrscr;
      case menu of
           'K':
               begin
                    write('a: '); readln(a);
                    kwadrat(a);
                    readln;
               end;
           'P':
               begin
                    write('a: '); readln(a);
                    write('b: '); readln(b);
                    prostokat(a,b);
                    readln;
               end;
           'O':
               begin
                    write('r: '); readln(r);
                    kolo(r);
                    readln;
               end;
           'X':halt;

      end;
until false;
end.

 

Zadanie czytalnie - wysłane na PW :)

W razie pytań - wal jak w dym.