ПОМОГИТЕ СОСТАВИТЬ ПРОГРАММУ В ПАСКАЛЕ. ДАНА ФУНКЦИЯ:

начало

• Дайняшка 30.01.13 17:22

  ответ для: jadwe84suzcg

  
  понятно.
• Дайняшка 30.01.13 17:21

  ответ для: jadwe84suzcg

  
  Спасибо большое!
• jadwe84suzcg 30.01.13 17:20

  ответ для: Дайняшка

  
  

  Дайняшка писал(а): извините, а вы где работаете, я сама информатикой увлекаюсь, и ее хотела сдавать, хотелось бы узнать в какой сфере.

  
  Я ща нигде не работаю - в декрете. В прошлом году закончила вышку по информационным технологиям.
  По началу фрилансила, ща ребенок не дает))))
• jadwe84suzcg 30.01.13 17:15

  ответ для: Дайняшка

  
  Можно больше написать :)
  Program primer1;
  Var x, y : integer;
  Begin
  Write ('x=') ;
  Read (x) ;
  If x>=0
  Then begin
  Writeln ('вы ввели неотрицательное число, будем считать по формуле y=sqrt (69+7x-3x^2)');
  y :=(sqrt...);
  End;
  Else begin
  Writeln ('вы ввели отрицательное число, будем считать по формуле y=6x^2...');
  y :=(6×(x^2)...);
  End;
  Writeln ('y =',y);
  End.
  Разумеется должно быть красивенько и с отступами:)
  Мож в моей проге есть незначительные ошибки. Пишу с телефона и проверить мне на чем. Паскаль... давно это было..
• Дайняшка 30.01.13 17:09

  ответ для: jadwe84suzcg

  
  извините, а вы где работаете, я сама информатикой увлекаюсь, и ее хотела сдавать, хотелось бы узнать в какой сфере.
• jadwe84suzcg 30.01.13 17:05
  
  Ой, в 4-ой строке недоисправила
  Program primer1;
  Var x, y : integer;
  Begin
  Write ('x=') ;
  Read (x) ;
  If x>=0
  then y :=(sqrt...);
  Else y :=(6×(x^2)...);
  Writeln ('y =',y);
  End.
• Дайняшка 30.01.13 17:03

  ответ для: jadwe84suzcg

  
  программа сама работает, просто якобы не правильно написала..Спасибо вам за программку.
• jadwe84suzcg 30.01.13 16:58

  ответ для: jadwe84suzcg

  
  Как неправильно? Чем обосновал?
  Мож ко знакам придирался? Прогу вообще проверяли в среде?
  Program primer1;
  Var x, y : integer;
  Begin
  Write aposx=apos ;
  Readln x ;
  If x>=0
  then y :=(sqrt...);
  Else y :=(6×(x^2)...);
  Writeln ('y =',y);
  End.
• jadwe84suzcg 30.01.13 16:53

  ответ для: Дайняшка

  
  

  Дайняшка писал(а): вот это полное выражение, нужно для него написать программу.надеюсь, хорошо видно..

  
  Ага, значит после
  then y:= выражение под корнем;
  Else y:= первое выражение;
  Writeln ('y=“, y);
• Дайняшка 30.01.13 16:51

  ответ для: jadwe84suzcg

  
  я так все и делала на уроке, а учитель говорит, что у меня не правильно..
• Дайняшка 30.01.13 16:46

  ответ для: jadwe84suzcg

  
  вот это полное выражение, нужно для него написать программу.надеюсь, хорошо видно..
• jadwe84suzcg 30.01.13 16:45

  ответ для: Дайняшка

  
  

  Дайняшка писал(а): вы правильно написали, только еще же надо, чтобы условие выполнялось существует или нет, там же в корне отрицательные числа быть не могут..на словах знаю, а в паскале не получается правильно сделать..

  
  Правильно, мы ж программно и задаем машинке “если х неотрицательное, тогда выполни это“
  В той проге, что я написала, перед выводом у добавьте строчку
  Else writeln (' х-отрицательное, считать принципиально не хочу');