Помощ с задача на Pascal

[bganonymous]

EDIT: Благодаря на всички!

 

[anonimen]

Без абсолютно никакви познания по този език и само чрез търсене в гугъл:

Program Lesson2_Program1;
Var x, y;
                     
Begin
 Write('Enter x:');
 readln(x);
 if ( x < 0 ) then
   y := 2*x + 5;
 else if (x > 0 ) then
  y := x*x + 4;

 Writeln(y);
End.

http://pascal-programming.info/lessonindex.html
http://www.tutorialspoint.com/pascal/pascal_if_then_else_statement.htm

Няма да се учудя и ако работи...

 

[ivo75]

да накрая само едно

end.

 

[anonimen]

да накрая само едно

end.

Да, мерси за уточнението. Оправих го.

 

[bganonymous]

Къде е грешката?

 

[anonimen]

Къде е грешката? - http://store.picbg.net/pubpic/E8/63/2f7112a9ac5de863.png

С малко четене ще разбереш, че трябва да зададеш тип на променливите х и у - в случая инт.

Program Lesson2_Program1;
Var x, y:integer;
                     
Begin
 Writeln('Enter x:');
 readln(x);
 Writeln('You wrote: ', x);
 if ( x < 0 ) then
   y := 2*x + 5
 else if (x > 0 ) then
  y := 9*x*x + 4;

 Writeln('The result is: ',y);
End.

Ето работещата програма:
http://ideone.com/6TTHNU

По-долу ще видиш примерния вход и изхода на програмата.

Само си добави и 9ката пред Х-квадрат :?:

Оправих го

 

[pLe0mAx]

Само си добави и 9ката пред Х-квадрат :?: