Question

1Napisz program, który oblicza przekątną kwadratu i wyświetla wynik na końcu.(PASCAL).

2. Napisz program który oblicza pole trójkąta.(PASCAL).

Answer 1

1. program

program przekątna;
uses crt;
var
a:integer;
wynik:real;

begin
clrscr;
writeln('Program oblicza dlugosc przekatnej kwadratu');
writeln('Podaj bok kwadratu');
readln(a);
wynik:=(sqrt(2))*a;
writeln('Przekatna kwadratu o boku: ', (a), (' wynosi '), wynik:2:2);

readln;
end.

 

2.

program pole;
uses crt;
var
a,h:integer;
wynik:real;

begin
clrscr;
writeln('Program oblicza pole trojkata');
writeln('Podaj podstawe trojkata');
readln(a);
writeln('Podaj wysokosc trojkata');
readln(h);
wynik:=(a/2)*h;
writeln('Pole tego trojkata wynosi ', wynik:2:2);

readln;
end.

 

 

Oraz w załącznikach

Answer 2

1. PRZEKĄTNA KWADRATU

 

program przekatna_kwadratu;
var
a:integer;
d:real;

begin
writeln('Program oblicza przekatna kwadratu');
writeln('Podaj bok kwadratu');
readln(a);

d:=a*sqrt(2);

writeln('Przekatna kwadratu wynosi ',d:2:2);
readln;
end.

 

 

 

 

2. POLE TROJKĄTA

 

program pole_trojkata;
var
a,h:integer;
p:real;
begin
writeln('Program obliczajacy pole trojkata');
writeln('Podaj podstawe a');
readln(a);
writeln('Podaj wysokosc trojkata');
readln(h);

p:=(a*h)/2 ;

writeln('Pole trojkata wynosi ' , p:2:2);
readln;
end.

 

----------------------------------

 

Co do zmiennych a,h i d możesz użyć także zmiennej real.