Ветвление

[Woxx]

Добрый день!!!
Решить с помощью ветвления!!!!
Дано число X. Напечатать в порядке возрастания числа:
sin x, cos x, ln x. Если при каком-либо x некоторые из выражений не имеют смысла, вывести сообщение об этом и сравнивать только тех, которые имеют смысл.

[Stilet]

Решить с помощью ветвления!!!!

Это приказ?
Где наработки? Ато тебе ща тут напишут с классами, а ты будешь от преподавателя получать ананас в нору геморроя.

[_-Re@l-_]

Ато тебе ща тут напишут с классами,

Ага

type
      chislo  = class(TObject)

[Woxx]

Сообщение от Stilet

Это приказ?
Где наработки? Ато тебе ща тут напишут с классами, а ты будешь от преподавателя получать ананас в нору геморроя.

Вот мой пример, тока не знаю правильно ли я его делаю

program albert;
label m1;
var a,b,c,d,f:real;
begin
write('Введите X ');
readln(a);
b:=sin(a);
c:=cos(a);
d:=ln(a);
readln(d);
if d<0 then writeln('Ln(x) не может быть меньше нуля')
   else
   begin
   if ((b>c)and(b>d)) then writeln('SIN(X) наибольший');
   if ((c>b)and(c>d)) then writeln('COS(X) наибольший');
   if ((d>b)and(d>c)) then writeln('LN(X) наибольший');
   if ((b<c)and(b<d)) then writeln('SIN(X) наименьший');
   if ((c<b)and(c<d)) then writeln('COS(X) наименьший');
   if ((d<c)and(d<b)) then writeln('LN(X) наименьший');
   if (((b>c)and(b<d))or((b>d)and(b<c))) then writeln('SIN(X) средний');
   if (((c>b)and(c<d))or((c>d)and(c<b))) then writeln('COS(X) средний');
   if (((d>c)and(d<d))or((d>b)and(d<c))) then writeln('LN(X) средний');
   end;
end.

[Stilet]

Woxx

Уже лучше. А теперь учись работать правильно - Запусти этот код в компиляторе, что компилятор скажет. Если все верно написано программа пойдет. Результаты проверь на калькуляторе - так делают все неленивые программисты.

[_-Re@l-_]

Только вот зачем это

label m1;

Он у тебя в программе как бы всё равно не используется

[Mad_Cat]

так пойдет???

var a:array[1..3] of Real;
      b:array[1..3] of string = ('sin','cos','ln');
      i:Integer;
      x:real;
      sw:boolean;
      s:string;
      n:integer;
begin
   write('x=');
   readln(x);
   a[1]:=sin(x);
   a[2]:=cos(x);
   a[3]:=ln(x);
repeat
sw:=false;
n:=3;
for i:=1 to n-1 do
if a[i]<a[i+1] then
begin
  a[i]:= a[i]+a[i+1];
  a[i+1]:=a[i]-a[i+1];
  a[i]:=a[i]-a[i+1];
  s:=b[i];
  b[i]:=b[i+1];
  b[i+1]:=s;
  sw:=true;
end;
  n:=n-1;
until not sw;
for i:=1 to 3 do
    writeln(b[i],'=',a[i]:6:3);
readln;
end.