Pascal

[shady^baby]

Здравейте!
Някой може ли да ми помогне със следните задачи на Паскал,защото аз нищо не разбирам,а ми трябват спешно
1.Да се състави програма, която въвежда от клавиатура две реални числа х и у.За стойности х<0 да извежда по-голямото от двете числа.В противен случай по-малкото от тях.

2.Да се състави програма, която въвежда от клавиатура три реални числа a,b,c.Програмата да определя дали съществува триъгълник със страни a,b,c и ако такъв съществува,да изчислява и извежда лицето му. (тук трябва да се използва Хероновата формула, която не зная каква е).

3.Да се състави програма,която въвежда от клавиатура 3 цели числа a,b,c.Програмата да определя дали съществува триъгълник със страни a,b,c и ако такъв съществува да се определи видът му:разностранен, равнобедрен или равностранен.

4.Да се състави програма, която въвежда от клавиатура естествено число n и след него n на брой реални числа.Да се изведат максималното и минималното от тях.

[comics]

Те0ремата не е ли питагорова? :D

[RoyTheReaper]

Баси от кога не съм писал на Паскал...

program Task1;
var x,y: real;
begin
write('Vavedete x: ');
readln(x);
write('Vavedete y: ');
readln(y);
if x<0 then begin
if x>y then begin
writeln('x=',x:6:2); readln;
end
else begin
writeln('y=',y:6:2); readln;
end;
end
else begin
if x<y then begin
writeln('x=',x:6:2); readln;
end
else begin
writeln('y=',y:6:2); readln;
end;
end
end.

За тази задача не съм взимал предвид случаите когато х=0 или х=у, защото не е написано нищо и реших да не се престаравам. :P

program Task2;
var a,b,c,p, s: real;
begin
write('Vavedete a: ');
readln(a);
write('Vavedete b: ');
readln(b);
write('Vavedete c: ');
readln(c);
if (a+b>c) AND (b+c>a) AND (a+c>b) then begin
writeln('Triagalnika sashtestvuva!');
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Liceto mu e:', s:6:2); readln;
end
else writeln('Nema takav triagalnik, bate'); readln;
end.

Не съм правил проверка за въвеждане на отрицателни числа, мързи ме. :D

program Task3;
var a,b,c,p, s: real;
begin
{ TODO -oUser -cConsole Main : Insert code here }
write('Vavedete a: ');
readln(a);
write('Vavedete b: ');
readln(b);
write('Vavedete c: ');
readln(c);
if (a+b>c) AND (b+c>a) AND (a+c>b) then begin
writeln('Triagalnika sashtestvuva!');
if (a<>b) AND (b<>c) AND (a<>c) then begin
writeln('Raznostranen'); readln;
end
else if (a<>b) OR (b<>c) OR (a<>c) then begin
writeln('Ravnobedren'); readln;
end
else
writeln('Ravnostranen'); readln;
end
else
writeln('Takav triagalnik ne sa6testvuva'); readln;
end.

Същата уговорка.

program Task4;
var n, min, max, current: real;
i:integer;

begin
write('Vavedete n: ');
readln(n);
i:=1;
while i<=n do begin
write('Vavedete chislo: ');
readln(current);
if i=1 then begin
min:=current;
max:=current;
end;
if current<min then min:=current;
if current>max then max:=current;
inc(i);
end;
writeln('Maksimalnoto: ',max:6:2);
writeln('Minimalnoto: ',min:6:2);
readln;
end.

Сега вече е окей. :-P

[shady^baby]

Blagodarq ti mnogo :grin: :-) :-) :-) :-) :-) prosto ne zn kolko mn mi pomaga6