Rozwiązania zadań domowych

 

1.

Nagłówek

                program moja_nazwa

Część deklaracyjna

                uses

                    nazwy modułów

                const

                    definicje stałych

                var

                    deklaracje zmiennych, procedur i funkcji.

Część główna

                begin

                    instrukcje;

                end.

 

 

2.

program pole_prostokata

uses crt;

var a,b,p:longint;

begin

writeln('wpisz długosć pierwszego boku');

readln(a);

writeln('wpisz długosć drugiego boku');

readln(b);

p:=a*b;

writeln('pole = ' ,p);

readln;

end.

 

 

program pole_trojkata

uses crt;

var pole:real: a,h:integer;

begin

writeln('wpisz dł. podstawy trójkąta');

readln(a);

writeln('wpisz dł. wysokoci trójkąta');

readln(h);

pole:=a*h/2;

writeln('pole =' ', pole);

readln;

end.

 

 

program pole_rombu

uses crt;

var a,k:integer;

begin

writeln('podaj wartosć boku a');

readln(a);

writeln('podaj wartosć kąta ostrego k);

readln(k);

writeln('pole rombu = ',sqr(a)*sin(k);

readln;

end.

 

 

ZADANIA WYKONANE Z POMOCĄ ZESZYTU PRZEDMIOTOWEGO.