Witam serdecznie w drugiej czΩ╢ci kursu. Bez zbΩdnego gadania przejd╝my od razu do nauki. Najpierw jednak rozwi▒zania zada± z ostatniej czΩ╢ci kursu. St▒d mo┐ecie pobraµ pliki ╝r≤d│owe do program≤w omawianych w tym odcinku kursu.

Program 1 (licz▒cy pole i obw≤d prostok▒ta).
===============
program program017;

uses crt;

var a,b,pole,obwod :word;

begin;
clrscr;
writeln('_______________');
writeln('|             |');
writeln('|             |');
writeln('|             | b');
writeln('|             |');
writeln('|_____________|');
writeln('    a');
writeln;
write('Podaj dlugosc boku a:');
readln(a);
write('Podaj dlugosc boku b:');
readln(b);
pole:=a*b;
obwod:=2*(a+b);
writeln('P=',pole);
write('Ob=',obwod);
repeat until keypressed;
end.

===============

Program 2 (licz▒cy pole i obw≤d kwadratu (wczytujemy a)).

===============

program program017;

uses crt;

var a,pole,obwod :word;

begin;
clrscr;
writeln('____________');
writeln('|          |');
writeln('|          |');
writeln('|          | a');
writeln('|          |');
writeln('|__________|');
writeln('     a');
writeln;
write('Podaj dlugosc boku a:');
readln(a);
pole:=a*a;
obwod:=4*a;
writeln('P=',pole);
write('Ob=',obwod);
repeat until keypressed;
end.

===============

Program 3 (licz▒cy energiΩ kinetyczn▒ cia│a o masie m i prΩdko╢ci v)

===============

program program019;

uses crt;

var m,v :word;
ek :real;

begin;
clrscr;
write('Podaj mase ciala[kg]:');
readln(m);
write('Podaj predkosc z jaka porusza sie cialo[m/s]:');
readln(v);
ek:=(m*v*v)/2;
writeln('Energia kinetyczna tego ciala to:',ek:0:2,'J');
repeat until keypressed;
end.

===============

Program 4 (licz▒cy przebyt▒ drogΩ)

===============

program program020;

uses crt;

var s,v,t:word;

begin;
clrscr;
write('Podaj predkosc ciala[m/s]:');
readln(v);
write('Podaj czas jazdy[s]:');
readln(t);
s:=v*t;
write('Droga wynosi:',s,'m');
repeat until keypressed;
end.

===============

   Program≤w nie trzeba t│umaczyµ, gdy┐ bazuj▒ one na wiedzy z poprzedniego odcinka. Teraz bierzemy siΩ za nowe rzeczy.

   PRZEJD¼ DALEJ