DSC00444

program Pole_Trapezu;

uses crt;

var

a,b,h:integer;

P:real;

begin

clrscr;

writeln('Program oblicza pole tapezu ); write('Podaj długość boku a='); read(a);

writeC'Podaj długość boku b='); read(b);

write('Podaj wysokość h='); read(h);

P:=((a+b)*h)/2;

writeln('Pole trapezu wynosi P=',P:5:2);

readln;

readln;

end.

wm,:.

'«^y ®k^J^^;

u>_£^₁^,j_ei«j j«jcu    mir

-*f * f • V|.

A i ;oj I 'jSp.

. ic A.ncbJ. *.i.

^A

n\^xlr^y x

^6'V> \r*

c'

program odcinek;

uses crtj

VAR

xa,xb,ya,yb:real;

BEGIN

clrscr:

write( Program oblicza długość odcinka'); writeln;

write('Podaj wspułrzędną xa='); read(xa);

writeln('Podaj wspułrzędną xb='); read(xb);

writeln('Podaj wspułrzędną ya='); read(ya);

writelnC'Podaj wspułrzędną yb='); read(yb);

d:=sqrt(sqr(xa-xb)+sqr(ya-yb)); writelnC'odcinek ma długość',d:9:3); readln; readln;

END.