Технический форум - Огромная просьба о помощи в решении задач

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

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

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

Цитата:

Сообщение от Air (Сообщение 1098464)

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

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

Код:

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.

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

borland turbo pascal

Цитата:

Сообщение от lockhid (Сообщение 1098531)

borland turbo pascal

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

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