Będę tu zamieszczał programy napisane w języku pascal, oczywiście przezemnie
PROGRAM NR.1
Program wyszukiwania największej wartości, ze zbioru 3 liczb całkowitych ( warunek złożony + warunek prosty)
Kod: Zaznacz cały
Program max ;
var
x,y,z:integer;
begin
writeln (\'Program wyszukiwania największej wartości\');
writeln (\'Podaj 3 liczby całkowite\');
readln (x,y,z);
if (x>=y) and (x>=z) then
write (\'Największa wartość to \' ,x)
else
if y>=z then
write (\'Największa wartość to \', y)
else
write (\'Największa wartość to \',z);
end.
PROGRAM NR.2
Program sprawdzający 3 liczby dodatnie, czy mogą być długościami boków trójkąta, gdy mogą - obliczający pole wzorem Herona
Kod: Zaznacz cały
program trojkat;
var
a,b,c,p,s:real;
begin
writeln (\'Podaj boki trójkąta\');
readln (a,b,c);
if (a>=b+c) or (b>=a+c) or (c>=a+b) then
write (\'To nie są boki trójkąta\')
else
begin
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
write (\'Pole trójkąta= \', S:5:2);
end;
end.
Do skompilowania programu potrzebne jest nam "ALGO" w dalszych częściach FreePascal