Огромная просьба о помощи в решении задач

[Air]

Огромная просьба о помощи в решении задач

Совсем не понимаю ничего в программировании, но учась на заочном, это нужно сдать((( помогите, пожалуйста:dyra:

 

[Vladimir_S]

Совсем не понимаю ничего в программировании, но учась на заочном, это нужно сдать((( помогите, пожалуйста

Ох. "Терпеть ненавижу" (как говорил один киногерой) оказывать "помощь" тем, кто "знать не знаю, не желаю, вы пишите, я скатаю", но да что с Вами сделаешь - если и впрямь заочник, то ладно.

Var
 x,c:Real;
Begin
 Write('x = ');
 Readln(x);
 Write('c = ');
 Readln(c);
 if x<=0.2 then writeln('f = ',(Abs(x)+c*x-4):0:3)
 else writeln('f = ',(Sqr(Sin(x)-1)):0:3);
 Readln
End.

Var
 K,M,N:Word;
 A,B,P,P1:Real;
Begin
 Write('Количество коров: ');
 Readln(K);
 Write('Количество лошадей: ');
 Readln(M);
 Write('Норма кормления коровы: ');
 Readln(A);
 Write('Норма кормления лошади: ');
 Readln(B);
 Write('Количество дней: ');
 Readln(N);
 Write('Наличный запас сена: ');
 Readln(P);
 P1:=(1.0*A*K+1.0*B*M)*N;
 If (P-P1)<0 then writeln('Не хватает ',Trunc(P1-P)+1,' кг сена')
 else writeln('Сена хватит');
 Readln
End.

Var
 S,x:Real;
 i:Byte;
Begin
 Write('x = ');
 Readln(x);
 S:=0;
 For i:=3 to 20 do
  S:=S+Abs(x+1.0*i);
 Writeln('S = ',S:0:3);
 Readln
End.

 

[Air]

СПАСИБО!

Прям гигантское Вам СПАСИБО!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Очень-очень благодарна!!!!!!!!!!!!!!!!
А если Вас не затруднит, Вы могли бы ещё написать для какого именно это Паскаль???tehno042

 

[lockhid]

borland turbo pascal

 

[Vladimir_S]

borland turbo pascal

Да, из этой серии.
Если у Вас АВС, то, во-первых, приляпайте первой строкой Program Tututu; , во-вторых - замените тип Word на Integer и в-третьих, уберите Readln перед завершающим End.

 

[Air]

Ещё раз ОГРОМНОЕ СПАСИБО!!!!:wo: